[RBASE-L] - Re: Dialog Pop-up Clock

[James Bentley]

Razzak,
It would be helpfull it this was example and  its syntax was included included 
in the RBase76 help files.  I am using the latest and greatest help downloaded 
last week.

Jim Bentley
American Celiac Society
[EMAIL PROTECTED]
tel: 1-504-737-3293


--- On Sat, 8/2/08, A. Razzak Memon <[EMAIL PROTECTED]> wrote:

> From: A. Razzak Memon <[EMAIL PROTECTED]>
> Subject: [RBASE-L] - Re: Dialog Pop-up Clock
> To: "RBASE-L Mailing List" <rbase-l@rbase.com>
> Date: Saturday, August 2, 2008, 11:29 PM
> At 11:25 PM 8/2/2008, Tom Frederick wrote:
> 
> >Is there some way to use the Pop-up Clock for Time with
> the Data/Time
> >Picker much like the Calender pops up for the Date
> portion?
> 
> 
> Tom,
> 
> Use POPUP_DIALOG_TYPE DATETIME option for date and time to
> return the
> variable as DATETIME.
> 
> Once the Calendar (for Date) and the Clock (for Time)
> options are
> displayed, click on the appropriate day to select the date.
> Use left
> click to set Hour and right click to set minute. Ctrl key
> restricts
> to 5 minutes.
> 
> Here's how:
> 
> Example:
> 
> -- Start here ...
> IF (CVAL('DATABASE')) <> 'RRBYW14' OR
> (CVAL('DATABASE')) IS NULL THEN
>     CONNECT RRBYW14 IDENTIFIED BY NONE
> ENDIF
> CLS
> CLEAR VAR vDateTimeTxt, vDateTime
> SET VAR vDateTimeTxt TEXT = NULL
> SET VAR vDateTime DATETIME = NULL
> DIALOG 'Enter Date and Time (mm/dd/yyyy hh:mm:ss
> ap)' +
> vDateTimeTxt=32 vEndKey 1 +
> CAPTION 'DIALOG with DateTime Pop-up' ICON APP
> OPTION +
> POPUP_ENABLED TRUE +
> |POPUP_DIALOG_TYPE DATETIME +
> |POPUP_CLOCK_BACK_COLOR WHITE +
> |POPUP_CLOCK_FACE_COLOR MINT BLACK +
> |POPUP_CLOCK_HANDS_COLOR RED +
> |POPUP_CLOCK_NUMBERS_COLOR GREEN +
> |POPUP_CLOCK_HOURTICKS_COLOR GREEN +
> |POPUP_CLOCK_MINUTETICKS_COLOR RED +
> |POPUP_CALENDAR_BACK_COLOR WHITE +
> |POPUP_CALENDAR_DAYS_COLOR BLACK +
> |POPUP_CALENDAR_FILLDAYS_COLOR MINT BLUE +
> |POPUP_CALENDAR_DAYSOFWEEK_COLOR RED +
> |POPUP_CALENDAR_LINES_COLOR BLACK +
> |POPUP_CALENDAR_SELBACK_COLOR WHITE +
> |POPUP_CALENDAR_SELFORE_COLOR RED +
> |POPUP_CALENDAR_TODAYFRAME_COLOR MAROON +
> |THEMENAME Sports Blue
> IF vDateTimeTxt IS NULL OR vDateTimeTxt = '[Esc]'
> THEN
>     GOTO Done
> ELSE
>     SET VAR vDateTime = .vDateTimeTxt
>     -- Do what else you have to do here ..
> ENDIF
> LABEL Done
> CLEAR VAR vDateTimeTxt,vDateTime,vEndKey
> RETURN
> -- End here ...
> 
> Hope that's what you are looking for!
> 
> Very Best R:egards,
> 
> Razzak.