Q5/ws_objects/Ew_mrp.pbl.src/w_inputbox_decimal.srw

$PBExportHeader$w_inputbox_decimal.srw
forward
global type w_inputbox_decimal from w_publ_base
end type
type cb_que from uo_imflatbutton within w_inputbox_decimal
end type
type em_1 from editmask within w_inputbox_decimal
end type
end forward

global type w_inputbox_decimal from w_publ_base
integer x = 23
integer y = 24
integer width = 1920
integer height = 364
string title = "请填入"
boolean controlmenu = false
boolean minbox = false
windowtype windowtype = response!
long backcolor = 67108864
cb_que cb_que
em_1 em_1
end type
global w_inputbox_decimal w_inputbox_decimal

type variables
S_INPUTBOX_decimal S_OBJSTRU

end variables

on w_inputbox_decimal.create
int iCurrent
call super::create
this.cb_que=create cb_que
this.em_1=create em_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_que
this.Control[iCurrent+2]=this.em_1
end on

on w_inputbox_decimal.destroy
call super::destroy
destroy(this.cb_que)
destroy(this.em_1)
end on

event open;call super::open;S_OBJSTRU=MESSAGE.PowerObjectParm
S_OBJSTRU.has_rslt = 0
this.title=S_OBJSTRU.TITLE
em_1.TEXT=string(S_OBJSTRU.value)
em_1.setfocus()
em_1.selecttext(1,len(em_1.TEXT))


end event

event close;CloseWithReturn(this,S_OBJSTRU)
end event

type cb_func from w_publ_base`cb_func within w_inputbox_decimal
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_decimal
integer x = 1477
integer y = 156
integer width = 325
string text = "取消"
end type

type cb_que from uo_imflatbutton within w_inputbox_decimal
integer x = 1115
integer y = 156
integer width = 325
integer height = 96
integer taborder = 30
boolean default = true
string normalpicname = "ok.bmp"
end type

event clicked;call super::clicked;S_OBJSTRU.value = dec(em_1.Text)
S_OBJSTRU.has_rslt = 1

Close(parent)
end event

type em_1 from editmask within w_inputbox_decimal
integer x = 87
integer y = 52
integer width = 1714
integer height = 84
integer taborder = 10
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = decimalmask!
string mask = "#,###,###,##0.########"
end type