by fraxzi » Mon May 19, 2008 8:59 am
I Got it!
cDateTime := CToD('')
cTimeDate := ''
....
REDEFINE DTPICKER oDate VAR cDateTime;
ID 114 OF oDlg
REDEFINE DTPICKER oTime VAR cTimeDate;
ID 115 OF oDlg
.....
In RC:
#define DTS_SHOWNONE 0x0002
#define DTS_TIMEFORMAT 0x0009
....Date Format.....
CONTROL "", 114, "SysDateTimePick32", DTS_SHOWNONE| WS_TABSTOP, 53, 186, 76, 16
....Time Format.....
CONTROL "", 115, "SysDateTimePick32", DTS_TIMEFORMAT | DTS_SHOWNONE| WS_TABSTOP, 53, 186, 76, 16
Thank you Mr. Antonio and Mr. Stefan... You gave me a good kickstart!
Kind Regards,
Frances
Fivewin for xHarbour v18.07
xHarbour v1.2.3.x
BCC 7.3 + PellesC8 ( Resource Compiler only)
ADS 10.1 / MariaDB
Crystal Reports 8.5/9.23 DE
xMate v1.15