Q5/ws_objects/Ew_email.pbl.src/w_getname.srw

$PBExportHeader$w_getname.srw
forward
global type w_getname from window
end type
type cb_2 from commandbutton within w_getname
end type
type cb_1 from commandbutton within w_getname
end type
type st_1 from statictext within w_getname
end type
type sle_1 from singlelineedit within w_getname
end type
end forward

global type w_getname from window
integer width = 832
integer height = 368
boolean titlebar = true
string title = "Untitled"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
cb_2 cb_2
cb_1 cb_1
st_1 st_1
sle_1 sle_1
end type
global w_getname w_getname

type variables
string name=''
end variables

event open;string pasName
pasname=message.stringparm

if pasname<>'' then
	sle_1.text=pasname
	name=pasname
end if
end event

on w_getname.create
this.cb_2=create cb_2
this.cb_1=create cb_1
this.st_1=create st_1
this.sle_1=create sle_1
this.Control[]={this.cb_2,&
this.cb_1,&
this.st_1,&
this.sle_1}
end on

on w_getname.destroy
destroy(this.cb_2)
destroy(this.cb_1)
destroy(this.st_1)
destroy(this.sle_1)
end on

event close;closewithreturn(this,name)
end event

type cb_2 from commandbutton within w_getname
integer x = 439
integer y = 180
integer width = 274
integer height = 84
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "取消"
end type

event clicked;name=''
close(parent)
end event

type cb_1 from commandbutton within w_getname
integer x = 110
integer y = 180
integer width = 274
integer height = 84
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "确定"
end type

event clicked;if sle_1.text='' then
	messagebox('','请输入名称')
	return
end if

name=sle_1.text
close(parent)
end event

type st_1 from statictext within w_getname
integer x = 41
integer y = 24
integer width = 178
integer height = 68
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "名称:"
boolean focusrectangle = false
end type

type sle_1 from singlelineedit within w_getname
integer x = 238
integer y = 8
integer width = 549
integer height = 96
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type