$include "windowssdk.inc"

WINDOW win

CONST DTM_FIRST = 0x1000
CONST DTM_SETFORMAT = (DTM_FIRST+5)
CONST DTM_SETMCCOLOR = (DTM_FIRST+6)

OpenWindow win,0,0,406,329,@CAPTION|@SYSMENU,0,"Time Picker",&main
	UINT dtPick=DateTimePicker(win,"Set the Time",40,40,140,30,@DTS_TIMEFORMAT,0,100)
	SENDMESSAGE win,DTM_SETFORMAT,0,"HH:mm",100
	UINT hFont=CreateFontA(14,0,0,0,400,0,0,0,1,0,0,0,0,"Verdana")
	SendMessage dtPick,WM_SETFONT,hFont,100
	SendMessage dtPick,0x133,RGB(0,0,255),100 'WM_CTLCOLOR

SETCAPTION win,TIME$
	SETFONT win,"Verdana",10,400
	MOVE win,40,90
	PRINT win,"Verdana 10pt "+TIME$

WAITUNTIL ISWINDOWCLOSED(win)
	END

SUB main(), INT
	SELECT @MESSAGE
CASE @IDCREATE
	CENTERWINDOW win
CASE @IDCONTROL
	SELECT @CONTROLID
CASE 100 'respond to control notifications here
	tStr=GETCONTROLTEXT(win,100)
	SETCAPTION win,tStr
ENDSELECT
CASE @IDCLOSEWINDOW
	CLOSEWINDOW win
ENDSELECT
RETURN 0
ENDSUB