At 01:15 PM 2/28/2010, Alastair Burr wrote:
I seem to remember that colours can be defined in property
commands using numeric values.
Maybe it was something added in an upgrade after my version
of 7.6 (7.6.5.31125) but I cannot get any value to work.
Can anybody enlighten me, please, on the correct format?
Alastair,
Yes, you can define colors (standard or custom) when using
the expanded OPTION parameters for CHOOSE, DIALOG, PAUSE,
and PRINT commands. You may also specify your favorite COLOR
by referring to standard name, numeric value, or even RGB
values, using the PROPERTY command.
-- Standard Colors
· AQUA
· BLACK
· BLUE
· CREAM
· DARK GRAY
· FUCHSIA
· GRAY
· GREEN
· LIME
· LIGHT GRAY
· MAROON
· MEDIUM GRAY
· MINT GREEN
· NAVY
· OLIVE
· PURPLE
· RED
· SILVER
· SKY BLUE
· TEAL
· WHITE
· YELLOW
-- Custom RGB Colors
. [R123,G82,B41]
. [R138,G92,B47]
. [R234,G234,B234]
. [R64,G89,B57]
. [R95,G133,B84]
. [R0,G105,B155]
. [R0,G126,B187]
. [R247,G204,B91]
. [R250,G223,B154]
. [R169,G176,B209]
. [R198,G202,B225]
. [R254,G224,B52]
. [R254,G233,B114]
. [R200,G154,B121]
. [R255,G102,B0]
. [R160,G160,B223]
. [R160,G160,B233]
. [R209,G194,B186]
. [R255,G102,B0]
-- Custom Numeric Colors
See URLs below
-- Example 01 (Using RGB Colors in CHOOSE Command)
IF (CVAL('DATABASE')) <> 'RRBYW15' OR (CVAL('DATABASE')) IS NULL THEN
CONNECT RRBYW15 IDENTIFIED BY NONE
ENDIF
CLEAR VAR vCustIDTxt,vCustID,vLines,vRows,vCaption,vYesNo,vEndKey,iv%
SET VAR vCustIDTxt TEXT = NULL
SET VAR vCustID INTEGER = NULL
SET VAR vLines INTEGER = 0
SET VAR vRows INTEGER = 0
SET VAR vYesNo TEXT = 'No'
SET VAR vCaption TEXT = ' Update Existing Customer(s)'
SELECT COUNT(*) INTO vLines INDIC ivLines FROM Customer
IF vLines = 0 THEN
PAUSE 2 USING 'No Customer(s) on File!' CAPTION ' ' ICON STOP
GOTO Done
ENDIF
IF vLines > 20 THEN
SET VAR vLines = 20
ENDIF
CLS
CHOOSE vCustIDTxt FOR #VALUES +
FOR ((LJS(Company,34))&(LJS((CTXT(CustID)),9))&(LJS(CustCity,18))& +
(LJS(CustState,6))&(LJS(CustZip,10))),CustID +
FROM Customer ORDER BY Company CHKBOX 1 +
TITLE 'Highlightustomer and then click on [OK] button to continue' +
CAPTION .vCaption LINES .vLines FORMATTED +
OPTION LIST_FONT_COLOR MAROON +
|TITLE_FONT_COLOR MAROON +
|TITLE_BACK_COLOR [R234,G234,B234] +
|WINDOW_BACK_COLOR [R234,G234,B234] +
|TITLE_FONT_SIZE 10 +
|TITLE_FONT_NAME VERDANA +
|LIST_BACK_COLOR [R234,G234,B234] +
|BUTTONS_SHOW_GLYPH ON +
|THEMENAME R:BASE Rocks!
RETURN
-- Example 02 (Using Numeric Values for Colors in CHOOSE Command)
IF (CVAL('DATABASE')) <> 'RRBYW15' OR (CVAL('DATABASE')) IS NULL THEN
CONNECT RRBYW15 IDENTIFIED BY NONE
ENDIF
CLS
SET VAR vCaption TEXT = ' '
SET VAR vLines INTEGER = 10
CHOOSE vCustIDTxt FOR #VALUES +
FOR ((LJS(Company,34))&(LJS(CustCity,18))&(LJS(CustState,6))),CustID +
FROM Customer ORDER BY Company CHKBOX 1 +
TITLE 'Highlight customer and then click on [OK] button to continue' +
CAPTION .vCaption LINES .vLines FORMATTED +
OPTION LIST_FONT_COLOR WHITE +
|TITLE_FONT_COLOR 11040854 +
|TITLE_BACK_COLOR WHITE +
|WINDOW_BACK_COLOR WHITE +
|TITLE_FONT_SIZE 12 +
|TITLE_FONT_NAME VERDANA +
|LIST_BACK_COLOR 11040854 +
|WINDOW_CAPTION +
|BUTTONS_SHOW_GLYPH ON +
|BUTTONS_BACK_COLOR WHITE
RETURN
-- Complete List of Colors, Names, Integer, and RGB Values
-- Part of Data Dictionary (F3) in R:BASE eXtreme 9.0
http://www.rbaseextreme.com/colors/Data_Dictionary_Colors_01.png
http://www.rbaseextreme.com/colors/Data_Dictionary_Colors_02.png
http://www.rbaseextreme.com/colors/Data_Dictionary_Colors_03.png
http://www.rbaseextreme.com/colors/Data_Dictionary_Colors_04.png
http://www.rbaseextreme.com/colors/Data_Dictionary_Colors_05.png
http://www.rbaseextreme.com/colors/Data_Dictionary_Colors_06.png
http://www.rbaseextreme.com/colors/Data_Dictionary_Colors_07.png
http://www.rbaseextreme.com/colors/Data_Dictionary_Colors_08.png
http://www.rbaseextreme.com/colors/Data_Dictionary_Colors_09.png
http://www.rbaseextreme.com/colors/Data_Dictionary_Colors_10.png
http://www.rbaseextreme.com/colors/Data_Dictionary_Colors_11.png
Hope that helps!
Very Best R:egards,
Razzak.
--- RBASE-L
=======================3D=======================3
D=
TO POST A MESSAGE TO ALL MEMBERS:
Send a plain text email to [email protected]
(Don't use any of these words as your Subject:
INTRO, SUBSCRIBE, UNSUBSCRIBE, SEARCH,
REMOVE, SUSPEND, RESUME, DIGEST, RESEND, HELP)
=======================3D=======================3
D=
TO SEE MESSAGE POSTING GUIDELINES:
Send a plain text email to [email protected]
In the message SUBJECT, put just one word: INTRO
=======================3D=======================3
D=
TO UNSUBSCRIBE:
Send a plain text email to [email protected]
In the message SUBJECT, put just one word: UNSUBSCRIBE
=======================3D=======================3
D=
TO SEARCH ARCHIVES:
Send a plain text email to [email protected]
In the message SUBJECT, put just one word: SEARCH-n
(where n is the number of days). In the message body,
place any
text to search for.
=======================3D=======================3
D=
