TestDPick.prg
Code: Select all
// Testing DatePickers
#include "FiveMac.ch"
function Main()
local oDlg, oDPick
DEFINE DIALOG oDlg TITLE "Test DatePicker" ;
FROM 20, 300 TO 400, 200
@ 20, 20 DATEPICKER oDPick OF oDlg SIZE 400, 300
@ 20, 200 BUTTON "Value" OF oDlg ACTION MsgInfo( oDPick:GetText() )
@ 20, 300 BUTTON "End" OF oDlg ACTION oDlg:End()
ACTIVATE DIALOG oDlg
return nil