Q5/ws_objects/Ew_aifmb.pbl.src/w_aifmb_linkmsg.srw

$PBExportHeader$w_aifmb_linkmsg.srw
forward
global type w_aifmb_linkmsg from window
end type
type cb_2 from commandbutton within w_aifmb_linkmsg
end type
type cb_1 from commandbutton within w_aifmb_linkmsg
end type
type st_2 from statictext within w_aifmb_linkmsg
end type
type sle_1 from singlelineedit within w_aifmb_linkmsg
end type
type st_1 from statictext within w_aifmb_linkmsg
end type
type mle_1 from multilineedit within w_aifmb_linkmsg
end type
end forward

global type w_aifmb_linkmsg from window
integer width = 1371
integer height = 1092
boolean titlebar = true
string title = "发送连接消息"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
cb_2 cb_2
cb_1 cb_1
st_2 st_2
sle_1 sle_1
st_1 st_1
mle_1 mle_1
end type
global w_aifmb_linkmsg w_aifmb_linkmsg

type variables
s_aifmb_linkmsg ins_rslt
end variables

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

on w_aifmb_linkmsg.destroy
destroy(this.cb_2)
destroy(this.cb_1)
destroy(this.st_2)
destroy(this.sle_1)
destroy(this.st_1)
destroy(this.mle_1)
end on

event close;closewithreturn(this, ins_rslt)
end event

type cb_2 from commandbutton within w_aifmb_linkmsg
integer x = 1120
integer y = 884
integer width = 201
integer height = 104
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "取消"
end type

event clicked;ins_rslt.ifok = 0
close(parent)
end event

type cb_1 from commandbutton within w_aifmb_linkmsg
integer x = 841
integer y = 884
integer width = 201
integer height = 104
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "确定"
end type

event clicked;ins_rslt.ifok = 1
ins_rslt.MsgContent = mle_1.text
ins_rslt.LinkString = sle_1.text
close(parent)
end event

type st_2 from statictext within w_aifmb_linkmsg
integer y = 788
integer width = 142
integer height = 48
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_aifmb_linkmsg
integer x = 155
integer y = 772
integer width = 1193
integer height = 84
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type st_1 from statictext within w_aifmb_linkmsg
integer width = 142
integer height = 72
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 mle_1 from multilineedit within w_aifmb_linkmsg
integer x = 155
integer y = 4
integer width = 1193
integer height = 744
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