uo_comctl_datetime.sru

一个漂亮的下拉日历

$PBExportHeader$uo_comctl_datetime.sru
$PBExportComments$下拉式时间控件
forward
global type uo_comctl_datetime from userobject
end type
end forward

global type uo_comctl_datetime from userobject
integer width = 389
integer height = 100
userobjects objecttype = externalvisual!
long backcolor = 0
string classname = "sysdatetimepick32"
string libraryname = "comctl32.dll"
long style = 1174405120
end type
global uo_comctl_datetime uo_comctl_datetime

type variables
Private nvo_comctl_datetime	iuoDateTime
end variables

forward prototypes
public subroutine of_getobject (ref nvo_comctl_datetime auoDateTimePicker)
end prototypes

public subroutine of_getobject (ref nvo_comctl_datetime auoDateTimePicker);auoDateTimePicker = This.iuoDateTime

RETURN

end subroutine

event constructor;This.iuoDateTime.of_SetHandle( Handle(This) )

RETURN 0


end event

on uo_comctl_datetime.create
end on

on uo_comctl_datetime.destroy
end on