#TAB (declare a page of a #SHEET control)


 Top  Previous  Next

#TAB( text ) [, HLP( helpid ) ] [,FINISH( expression )] [,WHERE( expression )]

  prompts

#ENDTAB

#TAB

Declares a group of prompts that constitute one of the multiple "pages" within a #SHEET structure.

text

A string constant containing the text to display on the tab, or as the title of the window, if the WIZARD attribute is present on the #UTILITY.

HLP

Specifies on-line help is available.

FINISH

Specifies the "Finish" button is present. Valid only in a #UTILITY with the WIZARD attribute.

expression

An expression that specifies whether the "Finish" button is enabled or disabled. If the expression is true, the button is enabled, if false, the button is disabled.

WHERE

Specifies that the tab control is visible only for those instances where the expression is true.

expression

An expression that specifies the condition for use.

prompts

One or more #PROMPT statements. This may also contain #DISPLAY, #VALIDATE, #ENABLE, and #BUTTON statements.

#ENDTAB

Terminates the page of prompts.

The #TAB structure declares a group of prompts that constitute one of the multiple "pages" of controls contained within a #SHEET structure. The multiple #TAB controls in the #SHEET structure define the "pages" displayed to the user.

Example:

#UTILITY(ApplicationWizard,'Create a New Database Application'),WIZARD

#!

#SHEET

#TAB('Application Wizard'),FINISH(0)             #!Finish button dim

   #IMAGE('CMPAPP.BMP')

   #DISPLAY('This wizard will create a new Application.'),AT(90,8,235,24)

   #DISPLAY('To begin creating your new Application, click Next.'),AT(90)

#ENDTAB

#TAB('Application Wizard - File Usage'),FINISH(1)       #!Finish button active

   #IMAGE('WINAPP.BMP')

   #DISPLAY('You can gen procs for all files, or select them'),AT(90,8,235,24)

   #PROMPT('Use all files in DCT',CHECK),%GenAllFiles,AT(90,,180),DEFAULT(1)

#ENDTAB

#TAB('Select Files to Use'),WHERE(NOT %GenAllFiles),FINISH(1)

   #IMAGE('WINAPP.BMP')

   #PROMPT('File Select',FROM(%File)),%FileSelect,INLINE,SELECTION('File Select')

#ENDTAB

#TAB('Application Wizard - Finally...'),FINISH(1)

   #IMAGE('WINAPP.BMP')

   #DISPLAY('Old procs can be overwritten or new procs suppressed')

   #PROMPT('Overwrite existing procs',CHECK),%OverwriteAll,AT(90,,235),DEFAULT(0)

   #IMAGE('<255,1,4,127>'),AT(90,55)

   #DISPLAY('Your First Procedure is always overwritten!'),AT(125,54,200,20)

#ENDTAB

#ENDSHEET