FXApp/ws_objects/app_cust_fx.pbl.src/w_fx_refuse_reason_edit.srw

$PBExportHeader$w_fx_refuse_reason_edit.srw
$PBExportComments$拒绝原因编辑
forward
global type w_fx_refuse_reason_edit from w_publ_base
end type
type mle_1 from multilineedit within w_fx_refuse_reason_edit
end type
end forward

global type w_fx_refuse_reason_edit from w_publ_base
integer y = 388
string title = "请输入拒绝原因"
boolean minbox = false
windowtype windowtype = response!
long backcolor = 16777215
string icon = "graphics\chain_link_128px.ico"
boolean center = true
mle_1 mle_1
end type
global w_fx_refuse_reason_edit w_fx_refuse_reason_edit

type variables
s_open_packet s_tran
end variables

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

on w_fx_refuse_reason_edit.destroy
call super::destroy
destroy(this.mle_1)
end on

event open;call super::open;s_tran.returnflag = 0

string msg
msg = Message.StringParm

if not IsNull(msg) then
	mle_1.Text = msg
end if
end event

event close;call super::close;closewithreturn(this, s_tran)
end event

type cb_func from w_publ_base`cb_func within w_fx_refuse_reason_edit
integer x = 691
integer y = 947
string text = "确定"
end type

event cb_func::clicked;call super::clicked;s_tran.returnflag = 1
s_tran.postscript = mle_1.Text
close(parent)
end event

type cb_exit from w_publ_base`cb_exit within w_fx_refuse_reason_edit
integer x = 1006
integer y = 947
end type

type mle_1 from multilineedit within w_fx_refuse_reason_edit
integer width = 1997
integer height = 928
integer taborder = 10
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean vscrollbar = true
borderstyle borderstyle = stylelowered!
end type