FiveTech Support Forums

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 )

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