Q5/ws_objects/Ew_publ903.pbl.src/w_sys_wait.srw

$PBExportHeader$w_sys_wait.srw
forward
global type w_sys_wait from w_publ_base
end type
type st_2 from statictext within w_sys_wait
end type
type p_1 from picture within w_sys_wait
end type
type ln_6 from line within w_sys_wait
end type
type ln_1 from line within w_sys_wait
end type
end forward

global type w_sys_wait from w_publ_base
integer x = 626
integer y = 488
integer width = 1815
integer height = 356
boolean enabled = false
boolean titlebar = false
string title = ""
boolean controlmenu = false
boolean minbox = false
long backcolor = 67108864
st_2 st_2
p_1 p_1
ln_6 ln_6
ln_1 ln_1
end type
global w_sys_wait w_sys_wait

type variables
int ls_x
end variables

forward prototypes
public function integer wf_set_msg (string arg_msg)
end prototypes

public function integer wf_set_msg (string arg_msg);//wf_set_msg()
st_2.text=arg_msg
return 0
end function

on w_sys_wait.create
int iCurrent
call super::create
this.st_2=create st_2
this.p_1=create p_1
this.ln_6=create ln_6
this.ln_1=create ln_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.st_2
this.Control[iCurrent+2]=this.p_1
this.Control[iCurrent+3]=this.ln_6
this.Control[iCurrent+4]=this.ln_1
end on

on w_sys_wait.destroy
call super::destroy
destroy(this.st_2)
destroy(this.p_1)
destroy(this.ln_6)
destroy(this.ln_1)
end on

event open;call super::open;ls_x=p_1.x

end event

event timer;//if p_1.x=ls_x then 
//	p_1.x=ls_x+20
//else
//	p_1.x=ls_x
//end if
//

	
end event

event hide;timer(0)
end event

event activate;//timer(0.1)
end event

event deactivate;timer(0)
end event

type cb_func from w_publ_base`cb_func within w_sys_wait
boolean visible = false
boolean enabled = false
end type

type cb_exit from w_publ_base`cb_exit within w_sys_wait
boolean visible = false
boolean enabled = false
end type

type st_2 from statictext within w_sys_wait
integer x = 50
integer y = 188
integer width = 1678
integer height = 120
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 67108864
boolean enabled = false
string text = "系统正在处理,请稍候..."
boolean focusrectangle = false
end type

type p_1 from picture within w_sys_wait
integer width = 1829
integer height = 160
boolean bringtotop = true
boolean originalsize = true
string picturename = "graphics\jdt_banner.jpg"
boolean focusrectangle = false
end type

type ln_6 from line within w_sys_wait
long linecolor = 16777215
integer linethickness = 4
integer beginx = -9
integer beginy = 164
integer endx = 2002
integer endy = 164
end type

type ln_1 from line within w_sys_wait
long linecolor = 268435456
integer linethickness = 4
integer beginx = -9
integer beginy = 160
integer endx = 2002
integer endy = 160
end type