Q5/ws_objects/longjoe_report_uo.pbl.src/w_rpt_preview_setdwoprp.srw

$PBExportHeader$w_rpt_preview_setdwoprp.srw
forward
global type w_rpt_preview_setdwoprp from w_publ_base
end type
type cb_ok from uo_imflatbutton within w_rpt_preview_setdwoprp
end type
type em_width from editmask within w_rpt_preview_setdwoprp
end type
type st_2 from statictext within w_rpt_preview_setdwoprp
end type
type em_height from editmask within w_rpt_preview_setdwoprp
end type
type st_3 from statictext within w_rpt_preview_setdwoprp
end type
type em_x from editmask within w_rpt_preview_setdwoprp
end type
type st_4 from statictext within w_rpt_preview_setdwoprp
end type
type em_y from editmask within w_rpt_preview_setdwoprp
end type
type st_5 from statictext within w_rpt_preview_setdwoprp
end type
type st_6 from statictext within w_rpt_preview_setdwoprp
end type
type gb_1 from groupbox within w_rpt_preview_setdwoprp
end type
type st_7 from statictext within w_rpt_preview_setdwoprp
end type
type mle_text from multilineedit within w_rpt_preview_setdwoprp
end type
type cb_resettext from commandbutton within w_rpt_preview_setdwoprp
end type
end forward

global type w_rpt_preview_setdwoprp from w_publ_base
integer x = 5
integer y = 288
integer width = 2926
integer height = 832
boolean minbox = false
windowtype windowtype = response!
long backcolor = 80269524
cb_ok cb_ok
em_width em_width
st_2 st_2
em_height em_height
st_3 st_3
em_x em_x
st_4 st_4
em_y em_y
st_5 st_5
st_6 st_6
gb_1 gb_1
st_7 st_7
mle_text mle_text
cb_resettext cb_resettext
end type
global w_rpt_preview_setdwoprp w_rpt_preview_setdwoprp

type variables
s_preview_dwoprp_tran S_SREU
end variables

on w_rpt_preview_setdwoprp.create
int iCurrent
call super::create
this.cb_ok=create cb_ok
this.em_width=create em_width
this.st_2=create st_2
this.em_height=create em_height
this.st_3=create st_3
this.em_x=create em_x
this.st_4=create st_4
this.em_y=create em_y
this.st_5=create st_5
this.st_6=create st_6
this.gb_1=create gb_1
this.st_7=create st_7
this.mle_text=create mle_text
this.cb_resettext=create cb_resettext
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_ok
this.Control[iCurrent+2]=this.em_width
this.Control[iCurrent+3]=this.st_2
this.Control[iCurrent+4]=this.em_height
this.Control[iCurrent+5]=this.st_3
this.Control[iCurrent+6]=this.em_x
this.Control[iCurrent+7]=this.st_4
this.Control[iCurrent+8]=this.em_y
this.Control[iCurrent+9]=this.st_5
this.Control[iCurrent+10]=this.st_6
this.Control[iCurrent+11]=this.gb_1
this.Control[iCurrent+12]=this.st_7
this.Control[iCurrent+13]=this.mle_text
this.Control[iCurrent+14]=this.cb_resettext
end on

on w_rpt_preview_setdwoprp.destroy
call super::destroy
destroy(this.cb_ok)
destroy(this.em_width)
destroy(this.st_2)
destroy(this.em_height)
destroy(this.st_3)
destroy(this.em_x)
destroy(this.st_4)
destroy(this.em_y)
destroy(this.st_5)
destroy(this.st_6)
destroy(this.gb_1)
destroy(this.st_7)
destroy(this.mle_text)
destroy(this.cb_resettext)
end on

event open;call super::open;
S_SREU=Message.PowerObjectParm

this.title='属性调整:'+S_SREU.dwotype+'>>'+S_SREU.dwoname
em_height.text=string(S_SREU.height)
em_width.text=string(S_SREU.width)
em_x.text=string(S_SREU.x)
em_y.text=string(S_SREU.y)

if LOWER(LEFT(S_SREU.dwotype,4))='text'  then
	mle_text.TEXT=S_SREU.dwotext
else
	mle_text.TEXT=''
	mle_text.enabled=false
	cb_resettext.enabled=false
end if
if S_SREU.dwotype='report' then em_height.enabled=false

end event

event close;closewithreturn(this,S_SREU)
end event

type cb_func from w_publ_base`cb_func within w_rpt_preview_setdwoprp
boolean visible = false
integer x = 1673
integer y = 612
boolean enabled = false
end type

type cb_exit from w_publ_base`cb_exit within w_rpt_preview_setdwoprp
integer x = 2459
integer y = 612
string text = "取消"
end type

type cb_ok from uo_imflatbutton within w_rpt_preview_setdwoprp
integer x = 2034
integer y = 612
integer width = 311
integer height = 96
integer taborder = 90
end type

event clicked;call super::clicked;
S_SREU.yn=1
S_SREU.x=integer(em_x.text)
S_SREU.y=integer(em_y.text)
S_SREU.width=integer(em_width.text)
S_SREU.height=integer(em_height.text)

if mle_text.enabled=true then S_SREU.dwotext=mle_text.text

close(parent)
end event

type em_width from editmask within w_rpt_preview_setdwoprp
integer x = 654
integer y = 156
integer width = 242
integer height = 80
integer taborder = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "#####0"
end type

type st_2 from statictext within w_rpt_preview_setdwoprp
integer x = 498
integer y = 168
integer width = 155
integer height = 64
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
string text = "宽度:"
alignment alignment = right!
boolean focusrectangle = false
end type

type em_height from editmask within w_rpt_preview_setdwoprp
integer x = 219
integer y = 156
integer width = 242
integer height = 80
integer taborder = 40
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "#####0"
end type

type st_3 from statictext within w_rpt_preview_setdwoprp
integer x = 69
integer y = 168
integer width = 146
integer height = 64
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
string text = "高度:"
alignment alignment = right!
boolean focusrectangle = false
end type

type em_x from editmask within w_rpt_preview_setdwoprp
integer x = 219
integer y = 56
integer width = 242
integer height = 80
integer taborder = 50
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "#####0"
end type

type st_4 from statictext within w_rpt_preview_setdwoprp
integer x = 123
integer y = 60
integer width = 91
integer height = 64
boolean bringtotop = true
integer textsize = -11
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
string text = "x:"
alignment alignment = right!
boolean focusrectangle = false
end type

type em_y from editmask within w_rpt_preview_setdwoprp
integer x = 654
integer y = 52
integer width = 242
integer height = 80
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "#####0"
end type

type st_5 from statictext within w_rpt_preview_setdwoprp
integer x = 571
integer y = 56
integer width = 82
integer height = 64
boolean bringtotop = true
integer textsize = -11
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
string text = "y:"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_6 from statictext within w_rpt_preview_setdwoprp
integer x = 27
integer y = 304
integer width = 151
integer height = 64
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
string text = "文本:"
alignment alignment = right!
boolean focusrectangle = false
end type

type gb_1 from groupbox within w_rpt_preview_setdwoprp
integer x = 18
integer width = 1413
integer height = 260
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
end type

type st_7 from statictext within w_rpt_preview_setdwoprp
integer x = 933
integer y = 168
integer width = 466
integer height = 64
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
string text = "(161.9单位约1cm)"
boolean focusrectangle = false
end type

type mle_text from multilineedit within w_rpt_preview_setdwoprp
integer x = 192
integer y = 296
integer width = 2702
integer height = 288
integer taborder = 70
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

type cb_resettext from commandbutton within w_rpt_preview_setdwoprp
integer x = 5
integer y = 372
integer width = 178
integer height = 76
integer taborder = 80
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "恢复"
end type

event clicked;mle_text.TEXT=S_SREU.dwotext
end event