[RBG7-L] - Using R:Themes for CHOOSE, DIALOG and PAUSE Commands

[A. Razzak Memon]

R:BASE 7.5 for Windows (Build: 7.5.4.30414 or higher)

Tip of the day!

In addition to using R:Themes http://www.rbase.com/rbg75/rthemes
for forms, now you can also use the same themes for CHOOSE, DIALOG
and PAUSE commands to customize your R:BASE 7.5 and V-8 "Turbo"
applications, by simply adding "OPTION THEME_NAME <RTheme>".

Where <RTheme> includes the following options:

. Deep Cyan
. Deep Green
. Deep Orange
. Funny Theme
. Gnome
. Green Glass
. Longhorn
. Mac OS
. Matrix
. Media
. One Blue
. One Clear Blue
. One Cyan
. One Green
. One Orange
. Orange Glass
. R:BASE Rocks!
. Razzmatazz
. Real One
. Sports Black
. Sports Blue
. Sports Cyan
. Sports Green
. Sports Orange
. Win Native
. XP Egypt
. XP Green
. XP Grey Scale
. XP Orange
. XP Silver

Example 01 (Using R:Themes with CHOOSE Command):

-- Start
CLS
CHOOSE vCustIDTxt FROM #VALUES FOR +
(LJS(Company,40)&CustCity+','&CustState),CustID +
FROM Customer ORDER BY Company +
CHKBOX 1 TITLE 'Company Name and Location' +
CAPTION 'Colorful CHOOSE with R:Themes' LINES 20 FORMATTED +
OPTION LIST_FONT_COLOR WHITE +
|LIST_BACK_COLOR 3096472 +
|TITLE_FONT_COLOR 3096472 +
|TITLE_BACK_COLOR WHITE +
|WINDOW_BACK_COLOR WHITE +
|TITLE_FONT_SIZE 16 +
|TITLE_FONT_NAME TIMES NEW ROMAN +
|WINDOW_CAPTION +
|BUTTONS_SHOW_GLYPH ON +
|BUTTONS_BACK_COLOR WHITE +
|THEME_NAME R:BASE Rocks!
-- End

Example 02 (Using R:Themes with DIALOG):

-- Start
SET VAR vCCNumber TEXT = NULL
SET VAR vMessage TEXT = 'Enter Credit Card Number||0000-0000-0000-0000;0;_'
SET VAR vCaption TEXT = 'Using R:Themes with DIALOG'
CLS
DIALOG .vMessage vCCNumber=26 vEndKey 1 +
CAPTION .vCaption ICON WINDOWS +
OPTION THEME_NAME R:BASE Rocks!
-- End

Example 03 (Using R:Themes with DIALOG Yes/No):

-- Start
SET VAR vCaption TEXT = 'Using R:Themes with DIALOG'
CLS
DIALOG 'Are you sure?' vYesNo vEndKey YES +
CAPTION .vCaption ICON APPS +
OPTION THEME_NAME Razzmatazz
-- End

Example 04 (Using R:Themes with PAUSE 2):

-- Start
CLS
PAUSE 2 USING 'Displaying Test Message for PAUSE 2 with R:Themes...' +
CAPTION 'Using R:Themes with PAUSE 2' +
OPTION THEME_NAME Mac OS
-- End

Example 05 (Using R:Themes with PAUSE 3):

-- Start
SET VAR vPauseMsg TEXT = +
((CHAR(013))+(CHAR(009))+'Collecting Data - Please Wait ...')
CLS
PAUSE 3 USING .vPauseMsg  +
CAPTION ' Using R:Themes with PAUSE 3' +
OPTION ICON_FILE Hourglass.GIF +
|BACK_COLOR WHITE +
|MESSAGE_COLOR WHITE +
|MESSAGE_FONT_COLOR RED +
|THEME_NAME R:BASE Rocks!
-- End

Enjoy and make sure to have fun!

Very Best R:egards,

Razzak.