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.
--- RBASE-L
================================================
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)
================================================
TO SEE MESSAGE POSTING GUIDELINES:
Send a plain text email to [email protected]
In the message SUBJECT, put just one word: INTRO
================================================
TO UNSUBSCRIBE:
Send a plain text email to [email protected]
In the message SUBJECT, put just one word: UNSUBSCRIBE
================================================
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.
================================================
