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

$PBExportHeader$w_taoda_backgroud_setting.srw
forward
global type w_taoda_backgroud_setting from window
end type
type st_9 from statictext within w_taoda_backgroud_setting
end type
type st_8 from statictext within w_taoda_backgroud_setting
end type
type st_7 from statictext within w_taoda_backgroud_setting
end type
type st_6 from statictext within w_taoda_backgroud_setting
end type
type st_5 from statictext within w_taoda_backgroud_setting
end type
type st_4 from statictext within w_taoda_backgroud_setting
end type
type st_3 from statictext within w_taoda_backgroud_setting
end type
type st_2 from statictext within w_taoda_backgroud_setting
end type
type cb_3 from commandbutton within w_taoda_backgroud_setting
end type
type st_1 from statictext within w_taoda_backgroud_setting
end type
type sle_5 from singlelineedit within w_taoda_backgroud_setting
end type
type sle_4 from singlelineedit within w_taoda_backgroud_setting
end type
type sle_3 from singlelineedit within w_taoda_backgroud_setting
end type
type sle_2 from singlelineedit within w_taoda_backgroud_setting
end type
type sle_1 from singlelineedit within w_taoda_backgroud_setting
end type
type cb_2 from commandbutton within w_taoda_backgroud_setting
end type
type cb_1 from commandbutton within w_taoda_backgroud_setting
end type
end forward

global type w_taoda_backgroud_setting from window
integer width = 1833
integer height = 660
boolean titlebar = true
string title = "套打背景设置"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
st_9 st_9
st_8 st_8
st_7 st_7
st_6 st_6
st_5 st_5
st_4 st_4
st_3 st_3
st_2 st_2
cb_3 cb_3
st_1 st_1
sle_5 sle_5
sle_4 sle_4
sle_3 sle_3
sle_2 sle_2
sle_1 sle_1
cb_2 cb_2
cb_1 cb_1
end type
global w_taoda_backgroud_setting w_taoda_backgroud_setting

type variables
s_background_rslt s_rslt
end variables

on w_taoda_backgroud_setting.create
this.st_9=create st_9
this.st_8=create st_8
this.st_7=create st_7
this.st_6=create st_6
this.st_5=create st_5
this.st_4=create st_4
this.st_3=create st_3
this.st_2=create st_2
this.cb_3=create cb_3
this.st_1=create st_1
this.sle_5=create sle_5
this.sle_4=create sle_4
this.sle_3=create sle_3
this.sle_2=create sle_2
this.sle_1=create sle_1
this.cb_2=create cb_2
this.cb_1=create cb_1
this.Control[]={this.st_9,&
this.st_8,&
this.st_7,&
this.st_6,&
this.st_5,&
this.st_4,&
this.st_3,&
this.st_2,&
this.cb_3,&
this.st_1,&
this.sle_5,&
this.sle_4,&
this.sle_3,&
this.sle_2,&
this.sle_1,&
this.cb_2,&
this.cb_1}
end on

on w_taoda_backgroud_setting.destroy
destroy(this.st_9)
destroy(this.st_8)
destroy(this.st_7)
destroy(this.st_6)
destroy(this.st_5)
destroy(this.st_4)
destroy(this.st_3)
destroy(this.st_2)
destroy(this.cb_3)
destroy(this.st_1)
destroy(this.sle_5)
destroy(this.sle_4)
destroy(this.sle_3)
destroy(this.sle_2)
destroy(this.sle_1)
destroy(this.cb_2)
destroy(this.cb_1)
end on

event open;s_rslt = message.powerobjectparm

sle_1.Text = s_rslt.filename
sle_2.Text = string(s_rslt.x)
sle_3.text = string(s_rslt.y)
sle_4.Text = string(s_rslt.width)
sle_5.Text = string(s_rslt.height)
s_rslt.ifok = 0
end event

event close;closewithreturn(this, s_rslt)
end event

type st_9 from statictext within w_taoda_backgroud_setting
integer x = 663
integer y = 328
integer width = 224
integer height = 52
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "毫米(mm)"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_8 from statictext within w_taoda_backgroud_setting
integer x = 663
integer y = 192
integer width = 224
integer height = 52
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "毫米(mm)"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_7 from statictext within w_taoda_backgroud_setting
integer x = 1545
integer y = 328
integer width = 224
integer height = 52
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "毫米(mm)"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_6 from statictext within w_taoda_backgroud_setting
integer x = 1545
integer y = 192
integer width = 224
integer height = 52
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "毫米(mm)"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_5 from statictext within w_taoda_backgroud_setting
integer x = 946
integer y = 328
integer width = 197
integer height = 52
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "高度"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_4 from statictext within w_taoda_backgroud_setting
integer x = 910
integer y = 192
integer width = 233
integer height = 52
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "垂直偏移"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_3 from statictext within w_taoda_backgroud_setting
integer x = 50
integer y = 328
integer width = 197
integer height = 52
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "宽度"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_2 from statictext within w_taoda_backgroud_setting
integer x = 14
integer y = 192
integer width = 233
integer height = 52
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "水平偏移"
alignment alignment = right!
boolean focusrectangle = false
end type

type cb_3 from commandbutton within w_taoda_backgroud_setting
integer x = 1632
integer y = 40
integer width = 137
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;String FileType
FileType += "JPG(*.JPG),*.JPG,"
FileType += "位图文件(*.bmp),*.bmp,"
FileType += "GIF文件(*.GIF),*.GIF"

String ls_filename, is_temp

IF GetFileOpenName("Select File",ls_filename,is_temp,"all",FileType) = 1 THEN
	sle_1.Text = ls_filename
END IF

end event

type st_1 from statictext within w_taoda_backgroud_setting
integer x = 50
integer y = 56
integer width = 197
integer height = 52
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "背景图"
alignment alignment = right!
boolean focusrectangle = false
end type

type sle_5 from singlelineedit within w_taoda_backgroud_setting
integer x = 1143
integer y = 312
integer width = 402
integer height = 84
integer taborder = 50
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type sle_4 from singlelineedit within w_taoda_backgroud_setting
integer x = 261
integer y = 312
integer width = 402
integer height = 84
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type sle_3 from singlelineedit within w_taoda_backgroud_setting
integer x = 1143
integer y = 176
integer width = 402
integer height = 84
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type sle_2 from singlelineedit within w_taoda_backgroud_setting
integer x = 261
integer y = 176
integer width = 402
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 sle_1 from singlelineedit within w_taoda_backgroud_setting
integer x = 261
integer y = 40
integer width = 1367
integer height = 84
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

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

event clicked;close(parent)
end event

type cb_1 from commandbutton within w_taoda_backgroud_setting
integer x = 1088
integer y = 448
integer width = 274
integer height = 96
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "确定"
end type

event clicked;s_rslt.Filename = sle_1.Text
s_rslt.X = Double(sle_2.Text)
s_rslt.Y = Double(sle_3.Text)
s_rslt.Width = Double(sle_4.Text)
s_rslt.Height = Double(sle_5.Text)

if not FileExists(s_rslt.Filename) then
	MessageBox('提示', '文件不存在' + s_rslt.Filename)
	return
end if

s_rslt.ifok = 1
close(parent)

end event