Q5/ws_objects/Ew_fingerprint.pbl.src/w_sys_wait_fp.srw

$PBExportHeader$w_sys_wait_fp.srw
forward
global type w_sys_wait_fp from w_publ_base
end type
type st_2 from statictext within w_sys_wait_fp
end type
type p_1 from picture within w_sys_wait_fp
end type
end forward

global type w_sys_wait_fp from w_publ_base
integer x = 626
integer y = 488
integer width = 1138
integer height = 236
boolean titlebar = false
string title = ""
boolean controlmenu = false
boolean minbox = false
long backcolor = 16776960
st_2 st_2
p_1 p_1
end type
global w_sys_wait_fp w_sys_wait_fp

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_fp.create
int iCurrent
call super::create
this.st_2=create st_2
this.p_1=create p_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.st_2
this.Control[iCurrent+2]=this.p_1
end on

on w_sys_wait_fp.destroy
call super::destroy
destroy(this.st_2)
destroy(this.p_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_fp
boolean visible = false
boolean enabled = false
end type

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

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

type p_1 from picture within w_sys_wait_fp
integer x = 23
integer y = 48
integer width = 183
integer height = 120
boolean bringtotop = true
boolean originalsize = true
string picturename = "graphics\report_sp.bmp"
boolean focusrectangle = false
end type