Q5/ws_objects/Ew_publ903.pbl.src/uo_editmask_date.sru

$PBExportHeader$uo_editmask_date.sru
forward
global type uo_editmask_date from editmask
end type
end forward

global type uo_editmask_date from editmask
integer width = 443
integer height = 88
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "none"
alignment alignment = center!
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datetimemask!
string mask = "yyyy-mm-dd"
boolean spin = true
end type
global uo_editmask_date uo_editmask_date

on uo_editmask_date.create
end on

on uo_editmask_date.destroy
end on

event rbuttondown;s_calender_arg s_calender
s_calender.PointerX = THIS.PointerX()
s_calender.PointerY = THIS.PointerY()
s_calender.X = THIS.X
s_calender.Y = THIS.Y


OpenWithParm(w_calendar,s_calender)
THIS.Text = String(id_date_selected)
end event