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

$PBExportHeader$w_inputbox_long.srw
$PBExportComments$long数据类型输入框
forward
global type w_inputbox_long from w_publ_base
end type
type st_1 from statictext within w_inputbox_long
end type
type em_1 from editmask within w_inputbox_long
end type
end forward

global type w_inputbox_long from w_publ_base
integer height = 468
string title = "输入整数"
boolean minbox = false
windowtype windowtype = response!
boolean center = true
st_1 st_1
em_1 em_1
end type
global w_inputbox_long w_inputbox_long

type variables
s_inputbox ins_parm
end variables

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

on w_inputbox_long.destroy
call super::destroy
destroy(this.st_1)
destroy(this.em_1)
end on

event open;call super::open;ins_parm = Message.PowerObjectParm
if (IsNull(ins_parm)) then
	Close(this)
	return
end if
if (not IsValid(ins_parm)) then
	Close(this)
	return
end if

this.Title = ins_parm.title
st_1.Text = ins_parm.msg
em_1.Text = string(ins_parm.long_a)

em_1.SetFocus()
em_1.SelectText(1, len(em_1.Text))

ins_parm.ifret = false
end event

event close;call super::close;CloseWithReturn(this, ins_parm)
end event

type cb_func from w_publ_base`cb_func within w_inputbox_long
integer x = 699
integer y = 276
integer taborder = 10
string text = "确认"
boolean default = true
end type

event cb_func::clicked;ins_parm.long_a = long(em_1.Text)
ins_parm.ifret = true

Close(parent)
end event

type cb_exit from w_publ_base`cb_exit within w_inputbox_long
integer x = 1015
integer y = 276
integer taborder = 20
end type

type st_1 from statictext within w_inputbox_long
integer y = 4
integer width = 2007
integer height = 148
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "ins_parm.msg"
boolean focusrectangle = false
end type

type em_1 from editmask within w_inputbox_long
integer x = 800
integer y = 172
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 = "0"
alignment alignment = Center!
borderstyle borderstyle = stylelowered!
string mask = "#####"
boolean spin = true
end type