Anyone experience this?
.PRG
- Code: Select all Expand view
FUNCTION uIssues()
LOCAL oDlg,;
oFld
LOCAL aVar := { cToD(''),;
cToT('') }
aGet := Array( Len(aVar) )
DEFINE DIALOG oDlg RESOURCE 'DLG_ZZZTEST';
PIXEL
REDEFINE DTPICKER aGet[ 1 ] VAR aVar[ 1 ];
ID 1001 OF oDlg UPDATE;
PICTURE 'MM/DD/YYYY'
REDEFINE TMPICKER aGet[ 2 ] VAR aVar[ 2 ];
ID 1002 OF oDlg UPDATE
ACTIVATE DIALOG oDlg;
ON INIT ( aGet[1]:bchange := {|| Msginfo('Date Changed')},;
aGet[2]:bchange := {|| Msginfo('Time Changed')} )
RETURN( NIL )
.RC
- Code: Select all Expand view
DLG_XXXTEST DIALOGEX 0,0,284,123
FONT 9,"Verdana"
STYLE WS_CHILDWINDOW|WS_VISIBLE
BEGIN
CONTROL "",1001,"SysDateTimePick32",WS_VISIBLE|WS_DISABLED|WS_TABSTOP|DTS_SHOWNONE,14,16,61,13
CONTROL "",1002,"SysDateTimePick32",WS_VISIBLE|WS_DISABLED|WS_TABSTOP|DTS_TIMEFORMAT|DTS_SHOWNONE,14,32,61,13
END
