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

$PBExportHeader$w_inputbox_datetime.srw
forward
global type w_inputbox_datetime from w_publ_base
end type
type cb_ok from uo_imflatbutton within w_inputbox_datetime
end type
type em_nr from editmask within w_inputbox_datetime
end type
end forward

global type w_inputbox_datetime from w_publ_base
integer x = 23
integer y = 24
integer width = 1042
integer height = 468
string title = "请填入内容"
boolean controlmenu = false
boolean minbox = false
windowtype windowtype = response!
cb_ok cb_ok
em_nr em_nr
end type
global w_inputbox_datetime w_inputbox_datetime

type variables
S_INPUTBOX S_OBJSTRU
string rt_str
end variables

on w_inputbox_datetime.create
int iCurrent
call super::create
this.cb_ok=create cb_ok
this.em_nr=create em_nr
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_ok
this.Control[iCurrent+2]=this.em_nr
end on

on w_inputbox_datetime.destroy
call super::destroy
destroy(this.cb_ok)
destroy(this.em_nr)
end on

event open;call super::open;S_OBJSTRU = Message.PowerObjectParm

THIS.Title = S_OBJSTRU.Title


em_nr.Text = S_OBJSTRU.OLD_TEXT
em_nr.SetFocus()




end event

event close;CloseWithReturn(this,rt_str)
end event

type cb_func from w_publ_base`cb_func within w_inputbox_datetime
boolean visible = false
integer x = 859
integer y = 124
boolean enabled = false
end type

type cb_exit from w_publ_base`cb_exit within w_inputbox_datetime
integer x = 599
integer y = 264
integer width = 325
string text = "取消"
end type

type cb_ok from uo_imflatbutton within w_inputbox_datetime
integer x = 91
integer y = 264
integer width = 325
integer height = 96
integer taborder = 30
boolean default = true
end type

event clicked;call super::clicked;
rt_str=em_nr.text
Close(parent)
end event

type em_nr from editmask within w_inputbox_datetime
integer x = 302
integer y = 64
integer width = 402
integer height = 84
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "none"
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datetimemask!
string mask = "yyyy-mm-dd"
boolean autoskip = true
boolean spin = true
end type

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


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