Q5/ws_objects/xls_Billprint_win.pbl.src/w_xls_gettext.srw

$PBExportHeader$w_xls_gettext.srw
forward
global type w_xls_gettext from w_xls_publ_base
end type
type sle_1 from singlelineedit within w_xls_gettext
end type
end forward

global type w_xls_gettext from w_xls_publ_base
integer width = 1248
integer height = 356
boolean titlebar = false
string title = ""
boolean controlmenu = false
boolean minbox = false
windowtype windowtype = response!
sle_1 sle_1
end type
global w_xls_gettext w_xls_gettext

type variables
string str = ''
end variables

on w_xls_gettext.create
int iCurrent
call super::create
this.sle_1=create sle_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.sle_1
end on

on w_xls_gettext.destroy
call super::destroy
destroy(this.sle_1)
end on

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

event open;call super::open;sle_1.setfocus()

string str1
str1 =  message.stringparm
if isnull(str1) then str1 = ''
sle_1.text = str1
end event

type cb_func from w_xls_publ_base`cb_func within w_xls_gettext
integer x = 174
integer y = 192
string text = "确定"
boolean default = true
end type

event cb_func::clicked;str = sle_1.text
Close(PARENT)
end event

type cb_exit from w_xls_publ_base`cb_exit within w_xls_gettext
integer x = 759
integer y = 192
string text = "取消"
end type

type sle_1 from singlelineedit within w_xls_gettext
event keydown pbm_keydown
integer x = 50
integer y = 64
integer width = 1120
integer height = 96
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!
end type

event keydown;if key = KeyEnter! then
	cb_func.triggerevent( clicked!)
end if
end event