At 08:46 AM 11/1/2005, James Hageman wrote:
How does one set Themes for CHOOSE, DIALOG, and PAUSE commands in 7.5?
James, Simply add the additional parameter of '|THEMENAME themename' in your OPTIONs for CHOOSE, DIALOG or PAUSE commands. Supported Themes: . 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 Take a look at the samples included on the 2005 R:BASE Developers' Conference USB Flash Drive. Folder: . \Razzak_Memon\DLViews (Dynamic List Views) . \Razzak_Memon\RBThemes (R:BASE 7.5 Themes) . \Razzak_Memon\RPresentation (Presentation) . \Razzak_Memon\RRBYW10_CE (Running R:BASE Your Way! Part 10) A few examples: Example 01. Using R:BASE Themes in CHOOSE Command -- Start CONNECT RRBYW10 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 + |THEMENAME R:BASE Rocks! IF vCustIDTxt IS NULL OR vCustIDTxt = '[Esc]' THEN GOTO Done ELSE SET VAR vCustID = .vCustIDTxt ENDIF -- Do what you have to do here with the variable CustID LABEL Done CLEAR VAR vCustIDTxt, vCustID RETURN -- End Example 02. Using R:BASE Themes in DIALOG Command -- Start CLS DIALOG 'DIALOG Message Here ...' vResponse=26 vEndKey 1 + CAPTION 'DIALOG Caption Here ...' ICON APPS + OPTION TITLE_FONT_COLOR 5142690 + |TITLE_FONT_NAME ARIAL + |TITLE_BOLD ON + |BUTTON_OK_CAPTION &Continue + |BUTTON_CANCEL_CAPTION C&ancel + |BUTTON_FONT_COLOR GREEN + |THEMENAME R:BASE Rocks! RETURN -- End Example 03: Using R:BASE Themes in PAUSE 2 Command -- Start CLS PAUSE 2 USING 'Displaying Test Message for PAUSE 2 with R:Themes...' + CAPTION 'PAUSE 2 with R:Themes' + OPTION THEMENAME Mac OS RETURN -- End Example 04: Using R:BASE Themes in PAUSE 3 Command -- Start CLEAR VAR vPauseMsg SET VAR vPauseMsg TEXT = ((CHAR(013))+(CHAR(009))+ + 'Collecting Data - Please Wait ...') CLS PAUSE 3 USING .vPauseMsg + CAPTION ' Pause 3 with R:Themes' + OPTION ICON_FILE Hourglass.GIF + |BACK_COLOR WHITE + |MESSAGE_COLOR WHITE + |MESSAGE_FONT_COLOR RED + |THEMENAME R:BASE Rocks! RETURN -- End Need more samples/examples? Feel free to ask. Enjoy and make sure to have fun! Very Best R:egards, Razzak.
