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

$PBExportHeader$w_rpt_message.srw
$PBExportComments$进度显示--窗口
forward
global type w_rpt_message from Window
end type
type st_12 from statictext within w_rpt_message
end type
type st_3 from statictext within w_rpt_message
end type
type st_message2 from statictext within w_rpt_message
end type
type st_1 from statictext within w_rpt_message
end type
type st_2 from statictext within w_rpt_message
end type
type st_10 from statictext within w_rpt_message
end type
type st_11 from statictext within w_rpt_message
end type
end forward

global type w_rpt_message from Window
int X=1147
int Y=804
int Width=1376
int Height=268
long BackColor=12632256
WindowType WindowType=popup!
event ue_percent ( integer i_percent )
st_12 st_12
st_3 st_3
st_message2 st_message2
st_1 st_1
st_2 st_2
st_10 st_10
st_11 st_11
end type
global w_rpt_message w_rpt_message

type variables
int ii_percent

end variables

event ue_percent;if ii_percent<i_percent and i_percent<=100 then
	ii_percent=i_percent
	st_10.width=13*i_percent
	st_11.text=string(i_percent)+'%'
end if

end event

on w_rpt_message.create
this.st_12=create st_12
this.st_3=create st_3
this.st_message2=create st_message2
this.st_1=create st_1
this.st_2=create st_2
this.st_10=create st_10
this.st_11=create st_11
this.Control[]={this.st_12,&
this.st_3,&
this.st_message2,&
this.st_1,&
this.st_2,&
this.st_10,&
this.st_11}
end on

on w_rpt_message.destroy
destroy(this.st_12)
destroy(this.st_3)
destroy(this.st_message2)
destroy(this.st_1)
destroy(this.st_2)
destroy(this.st_10)
destroy(this.st_11)
end on

event open;f_wcenter(this)
string ls
ls=message.StringParm
st_1.text=ls
st_10.width=13*0
st_11.text='0%'
if asc(left(ls,1))=asc('%') then
	st_1.text=mid(ls,2)
	this.Height=134
end if
end event

type st_12 from statictext within w_rpt_message
int X=32
int Y=148
int Width=1298
int Height=88
boolean Enabled=false
boolean Border=true
BorderStyle BorderStyle=StyleLowered!
boolean FocusRectangle=false
long BackColor=16777215
int TextSize=-9
int Weight=400
string FaceName="宋体"
FontPitch FontPitch=Variable!
end type

type st_3 from statictext within w_rpt_message
int Y=128
int Width=1371
int Height=132
boolean Enabled=false
boolean Border=true
BorderStyle BorderStyle=StyleRaised!
boolean FocusRectangle=false
long BackColor=79741120
int TextSize=-12
int Weight=400
string FaceName="Arial"
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type

type st_message2 from statictext within w_rpt_message
int X=32
int Y=36
int Width=1294
int Height=84
boolean Enabled=false
Alignment Alignment=Center!
boolean FocusRectangle=false
long TextColor=65280
long BackColor=79741120
int TextSize=-11
int Weight=400
string FaceName="Arial"
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type

type st_1 from statictext within w_rpt_message
int X=32
int Y=24
int Width=1298
int Height=76
boolean Enabled=false
boolean BringToTop=true
boolean Border=true
BorderStyle BorderStyle=StyleLowered!
string Text="提示信息"
Alignment Alignment=Center!
boolean FocusRectangle=false
long TextColor=8388608
long BackColor=79741120
int TextSize=-11
int Weight=400
string FaceName="Arial"
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type

type st_2 from statictext within w_rpt_message
int Width=1371
int Height=128
boolean Enabled=false
boolean Border=true
BorderStyle BorderStyle=StyleRaised!
boolean FocusRectangle=false
long BackColor=79741120
int TextSize=-12
int Weight=400
string FaceName="Arial"
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type

type st_10 from statictext within w_rpt_message
int X=32
int Y=152
int Width=649
int Height=84
boolean Enabled=false
boolean BringToTop=true
boolean Border=true
BorderStyle BorderStyle=StyleLowered!
boolean FocusRectangle=false
long BackColor=16711680
int TextSize=-9
int Weight=400
string FaceName="宋体"
FontPitch FontPitch=Variable!
end type

type st_11 from statictext within w_rpt_message
int X=608
int Y=168
int Width=146
int Height=52
boolean Enabled=false
boolean BringToTop=true
string Text="100%"
boolean FocusRectangle=false
long BackColor=16777215
int TextSize=-9
int Weight=400
string FaceName="宋体"
FontPitch FontPitch=Variable!
end type