forward
global type uo_calendar from userobject
end type
type ole_date from olecustomcontrol within uo_calendar
end type
end forward

global type uo_calendar from userobject
integer width = 526
integer height = 128
long backcolor = 67108864
string text = "none"
long tabtextcolor = 33554432
long picturemaskcolor = 536870912
ole_date ole_date
end type
global uo_calendar uo_calendar

on uo_calendar.create
this.ole_date=create ole_date
this.Control[]={this.ole_date}
end on

on uo_calendar.destroy
destroy(this.ole_date)
end on

type ole_date from olecustomcontrol within uo_calendar
event callbackkeydown ( integer keycode, integer shift, string callbackfield, ref datetime callbackdate )
event change ( )
event closeup ( )
event dropdown ( )
event format ( string callbackfield, ref string formattedstring )
event formatsize ( string callbackfield, ref integer size )
event click ( )
event dblclick ( )
event keydown ( integer keycode, integer shift )
event keyup ( integer keycode, integer shift )
event keypress ( integer keyascii )
event mousedown ( integer button, integer shift, long ocx_x, long ocx_y )
event mousemove ( integer button, integer shift, long ocx_x, long ocx_y )
event mouseup ( integer button, integer shift, long ocx_x, long ocx_y )
event olestartdrag ( ref oleobject data, ref long allowedeffects )
event olegivefeedback ( ref long effect, ref boolean defaultcursors )
event olesetdata ( ref oleobject data, ref integer dataformat )
event olecompletedrag ( ref long effect )
event oledragover ( ref oleobject data, ref long effect, ref integer button, ref integer shift, ref real ocx_x, ref real ocx_y, ref integer state )
event oledragdrop ( ref oleobject data, ref long effect, ref integer button, ref integer shift, ref real ocx_x, ref real ocx_y )
integer y = 4
integer width = 512
integer height = 96
integer taborder = 10
borderstyle borderstyle = stylelowered!
boolean focusrectangle = false
string binarykey = "uo_calendar.udo"
integer textsize = -8
integer weight = 400
fontcharset fontcharset = russiancharset!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "MS Sans Serif"
long textcolor = 33554432
end type

event change();string ls_Temp
date ld_date
ls_Temp = String(This.Object.Year) + "-"
ls_Temp += String(This.Object.Month ) + "-"
ls_Temp += String(This.Object.Day)
ld_date = Date(ls_Temp)
end event