Q5/ws_objects/Ew_publ903.pbl.src/w_calendar.srw

$PBExportHeader$w_calendar.srw
$PBExportComments$日历控件窗口
forward
global type w_calendar from window
end type
type uo_1 from uo_calendar within w_calendar
end type
end forward

global type w_calendar from window
integer x = 1221
integer y = 652
integer width = 928
integer height = 892
boolean titlebar = true
string title = "日期"
windowtype windowtype = response!
long backcolor = 134217731
uo_1 uo_1
end type
global w_calendar w_calendar

type variables

end variables

on w_calendar.create
this.uo_1=create uo_1
this.Control[]={this.uo_1}
end on

on w_calendar.destroy
destroy(this.uo_1)
end on

event open;s_calender_arg s_calender
s_calender = Message.PowerObjectParm


THIS.X = s_calender.PointerX + s_calender.X
THIS.Y = s_calender.PointerY + s_calender.Y


uo_1.init_cal(Today())
uo_1.set_date_format ( 'yyyy-mm-dd')





end event

type uo_1 from uo_calendar within w_calendar
integer width = 1376
integer taborder = 10
borderstyle borderstyle = stylelowered!
end type

on uo_1.destroy
call uo_calendar::destroy
end on