[RBASE-L] - Re: How do I add a Theme to GETDATE

[A. Razzak Memon]

At 07:11 PM 4/14/2011, Victor Timmons wrote:

How do I add a Theme to GETDATE

Victor,

Here's how:

-- Example 01 (Hard Coded Approach)
   SET VAR vDate DATE = NULL
   SET VAR vDate = (GETDATE('Select Date|THEMENAME Soft Blue'))
   RETURN

-- Example 02 (Dynamic Approach using Global Variables)
   SET VAR vDate DATE = NULL
   SET VAR vThemeName TEXT = 'Vista CG'
   SET VAR vCaption TEXT = 'Select Date'
   SET VAR vQuotes TEXT = (CVAL('QUOTES'))
   SET VAR vString TEXT = +
   ('SET VAR vDate = (GETDATE('+.vQuotes+.vCaption+ +
    '|THEMENAME'&.vThemeName+.vQuotes+'))')
   &vString
   CLEAR VARIABLE vThemeName,vCaption,vQuotes,vString
   RETURN
   -- End here ...

   You may dynamically change any global variable, if you wish!

Note:
Calendar color and fonts are dependent on your Windows settings.

Have fun!

Very Best R:egards,

Razzak.