Getting Dates (The DATEPICKER Control)
The easiest way to get dates from user is the DATEPICKER control.
Code: Select all
@ 10,10 DATEPICKER Date_1
Code: Select all
#include <minigui.ch>
Function Main
DEFINE WINDOW Win_1 ;
AT 0,0 ;
WIDTH 400 ;
HEIGHT 200 ;
TITLE 'DatePicker Test' ;
MAIN
DEFINE MAIN MENU
POPUP "First Popup"
ITEM 'Change DatePicker Value' ACTION ;
Win_1.date_1.Value := Date()
ITEM 'Retrieve DatePicker Value' ACTION ;
MsgInfo ( dtoc(Win_1.Date_1.Value))
END POPUP
END MENU
@ 10,10 DATEPICKER Date_1
END WINDOW
CENTER WINDOW Win_1
ACTIVATE WINDOW Win_1
Return
DatePicker is very handy, clever and useful control. For it's details look by buildig and running C:\hmg\SAMPLES\DATEPICKER\Demo.prg.
Regards
esgici