These parameters can be used to change the "look and feel" of a CHOOSE window. In addition to the parameters below, you can also alter the CHOOSE Title, List, and Buttons.
Parameter |
Value |
Description |
WINDOW_CAPTION |
OFF SMALL |
Customizes the window caption. The OFF value makes window caption invisible. The SMALL value makes window caption small (tool window). |
WINDOW_BACK_COLOR |
value |
Changes the color of the window background area. User can specify the integer value or type one of the predefined values. |
TOP |
value |
Moves the CHOOSE box location, in pixels, from the top of the screen down. |
LEFT |
value |
Moves the CHOOSE box location, in pixels, from the left of the screen right. |
WHERE_CLAUSE |
value |
Allows you to pre-load a WHERE Clause into the WHERE Builder window when using "#WHERE IN tblview". |
SHOW_ALL_BUTTON |
ON OFF |
Displays a "Select All" button when using the CHKBOX option. |
SINGLE_CLICK |
ON OFF |
Limits the user to select a single option from the displayed list, and then immediately close. This option works only when user can select single item from a list. For multiple item selection this feature will be ignored. |
INITPOS |
value(s) |
Specifies the preselected initial position(s) for the items in the list. The first value in the list is assigned zero, and increments for the number of values in the list. |
INITVAL |
value(s) |
Specifies the preselected initial value(s) for the items in the list |
THEMENAME |
value |
Specifies one of 86 pre-defined Themes, or a custom Theme loaded into R:BASE. See Themes.
NOTE: All previously defined CHOOSE commands which are redefined to use Themes should be thoroughly checked prior to putting into production as objects and text may look substantially different. |
-- Example Using INITPOS Option
IF (CVAL('DATABASE')) <> 'RRBYW20' OR (CVAL('DATABASE')) IS NULL THEN
CONNECT RRBYW20 IDENTIFIED BY NONE
ENDIF
SET VAR vTitle TEXT = 'Choose Table(s)'
SET VAR vCaption TEXT = 'Using INITPOS Option in CHOOSE Command'
SET VAR vChoose TEXT = NULL
CLS
CHOOSE vChoose FROM #TABLES CHKBOX 2 +
TITLE .vTitle +
CAPTION .vCaption +
LINES 27 +
OPTION INITPOS 2,5 +
|WINDOW_BACK_COLOR WHITE +
|TITLE_BACK_COLOR WHITE +
|TITLE_FONT_NAME Tahoma +
|TITLE_FONT_COLOR NAVY +
|TITLE_FONT_SIZE 14 +
|LIST_BACK_COLOR WHITE +
|LIST_FONT_NAME Tahoma +
|LIST_FONT_COLOR NAVY +
|LIST_FONT_SIZE 12 +
|BUTTONS_SHOW_Glyph ON +
|BUTTONS_BACK_COLOR WHITE
IF vChoose = '[Esc]' THEN
GOTO Done
ENDIF
-- Do what you have to do here ...
LABEL Done
CLEAR VARIABLES vTitle,vCaption,vChoose
RETURN
-- Example Using INITVAL Option
IF (CVAL('DATABASE')) <> 'RRBYW20' OR (CVAL('DATABASE')) IS NULL THEN
CONNECT RRBYW20 IDENTIFIED BY NONE
ENDIF
SET VAR vTitle TEXT = 'Choose Table(s)'
SET VAR vCaption TEXT = 'Using INITVAL Option in CHOOSE Command'
SET VAR vChoose TEXT = NULL
CLS
CHOOSE vChoose FROM #TABLES CHKBOX 3 +
TITLE .vTitle +
CAPTION .vCaption +
LINES 27 +
OPTION INITVAL Customer,InvoiceHeader,Titles +
|WINDOW_BACK_COLOR WHITE +
|TITLE_BACK_COLOR WHITE +
|TITLE_FONT_NAME Tahoma +
|TITLE_FONT_COLOR NAVY +
|TITLE_FONT_SIZE 14 +
|LIST_BACK_COLOR WHITE +
|LIST_FONT_NAME Tahoma +
|LIST_FONT_COLOR NAVY +
|LIST_FONT_SIZE 12 +
|BUTTONS_SHOW_Glyph ON +
|BUTTONS_BACK_COLOR WHITE
IF vChoose = '[Esc]' THEN
GOTO Done
ENDIF
-- Do what you have to do here ...
LABEL Done
CLEAR VARIABLES vTitle,vCaption,vChoose
RETURN
