windows calendar gadget

BlitzMax Forums/MaxGUI Module/windows calendar gadget
r	(Posted 2009) [#1]
hello,
This is the standard windows calendar gadget.
If someone can help to finish it and catch calendar events...
'windows calendar gadget by zaphod - 29/08/2009


Framework maxgui.drivers
Import brl.eventqueue


Global window0:TGadget = CreateWindow:TGadget("calendar",207,48,300,300,Null,WINDOW_TITLEBAR|WINDOW_MENU |WINDOW_STATUS |WINDOW_CLIENTCOORDS|window_center )
Local cal:tcalendargadget=Createcalendar(10,10,200,200,window0)
Local but:tgadget=CreateButton("Button",10,220,120,30,window0,BUTTON_PUSH)


Repeat
	WaitEvent()

	Select EventID()

	Case EVENT_GADGETACTION
		
			Select EventSource()
				Case but
				cal.setdate(20,8,2009)
				cal.getdate()
				Print "day : "+cal.date.day
				Print "month : "+cal.date.month
				Print "year : "+cal.date.year
				
			End Select

	
		Case EVENT_WINDOWCLOSE
		Select EventSource()
			Case window0 close()	
		End Select
	End Select
Forever

Function close()
End
EndFunction

'////////////////////
Type _initcommoncontrolsex
	Field dwsize:Int
	Field dwlicc:Int
End Type

Type _systemtime
	Field year:Short
	Field month:Short
	Field dayofweek:Short
	Field day:Short
	Field hour:Short
	Field minute:Short
	Field second:Short
	Field milliseconds:Short
EndType

'/////////////
Function CreateCalendar:TcalendarGadget(x,y,w,h,group:TGadget)
	Return TcalendarGadget.Create(x,y,w,h,group)
EndFunction
'
'==============================================================================
Type Tcalendargadget Extends TProxyGadget
'==============================================================================
'
Const MCM_SETTODAY=$1000+$C
Const MCM_SETCURSEL=$1000+$2
Const MCM_GETCURSEL=4097
'
Field date:_systemtime
Field handle:Int

	Function Create:Tcalendargadget(x, y, w=200, h=200, group:TGadget)
	Local cal:tcalendargadget=New tcalendargadget
	
	Local icex:_initcommoncontrolsex=New _initcommoncontrolsex
	icex.dwsize=SizeOf(icex)
	icex.dwlicc=ICC_DATE_CLASSES
	InitCommonControlsEx(Byte Ptr icex)
	'
	Local parent
	parent=group.query(query_hwnd_client)
	cal.handle=CreateWindowExW(0,"SysMonthCal32","Cal",WS_CHILD|WS_VISIBLE|WS_BORDER,x,y,w,h,parent,Null,GetModuleHandleA(Null),Null)
	cal.setproxy(cal.handle)
	'
	Return cal
	EndFunction

	Method getdate()
	SendMessageW(handle,MCM_GETCURSEL,0,Int(Byte Ptr date)) 
	EndMethod

	Method Cleanup()
		Super.cleanup()
	EndMethod

	Method setdate(day:Int,month:Int,year:Int)
	date.year=year
	date.day=day
	date.month=month
	'
	SendMessageW(handle,MCM_SETCURSEL,0,Int(Byte Ptr date))
	EndMethod

EndType