Q5/ws_objects/xls_Billprint_uo.pbl.src/w_xls_sys_wait_jdt.srw

$PBExportHeader$w_xls_sys_wait_jdt.srw
forward
global type w_xls_sys_wait_jdt from window
end type
type st_3 from statictext within w_xls_sys_wait_jdt
end type
type st_msg from statictext within w_xls_sys_wait_jdt
end type
type r_back from rectangle within w_xls_sys_wait_jdt
end type
type r_obj from rectangle within w_xls_sys_wait_jdt
end type
end forward

global type w_xls_sys_wait_jdt from window
integer x = 626
integer y = 488
integer width = 1595
integer height = 328
windowtype windowtype = popup!
long backcolor = 16776960
string icon = "AppIcon!"
st_3 st_3
st_msg st_msg
r_back r_back
r_obj r_obj
end type
global w_xls_sys_wait_jdt w_xls_sys_wait_jdt

type variables
Boolean dw_edit_mode = FALSE
Boolean if_modify_mode = FALSE
Boolean if_ue_retr = FALSE
Boolean if_ue_filter = FALSE
Boolean if_ue_sort = FALSE
Boolean if_ue_sentdataout = FALSE
Boolean if_ue_showall = FALSE

Long printnum

Int ls_x
Double obj_tol = 0,obj_inc = 0
String old_msg
end variables

forward prototypes
public function integer wf_movetocenter ()
public function integer wf_set_msg (string arg_msg)
public function integer wf_inc (double inc)
public function integer wf_accepttol (double tol)
end prototypes

public function integer wf_movetocenter ();
//wf_movetocenter
environment   exerun_env
GetEnvironment(exerun_env )
THIS.Move ( (PixelsToUnits(exerun_env.ScreenWidth, XPixelsToUnits!) - THIS.Width)/2,&
	(PixelsToUnits(exerun_env.ScreenHeight, XPixelsToUnits!) - THIS.Height - 350 )/2) //
//this.Move ( (exerun_env.screenwidth*4.62 - this.Width)/2, (exerun_env.screenheight*3.87 - this.Height)/2)
RETURN 0
end function

public function integer wf_set_msg (string arg_msg);
//wf_set_msg()
st_msg.Text = arg_msg
RETURN 0
end function

public function integer wf_inc (double inc);
//wf_inc
obj_inc = inc

Double bf = 0
IF obj_tol = 0 THEN
	r_obj.Width = 0
	RETURN 0
END IF

bf = (obj_inc/obj_tol)
st_3.Text = String(bf,'0.0%')
IF bf > 1 THEN bf = 1
r_obj.Width = r_back.Width*bf
//IF  Mod( Long(Right(String(bf),1)) ,2 ) = 0 THEN
//	p_1.Invert = TRUE
//ELSE
//	p_1.Invert = FALSE
//END IF

//messagebox(string(inc)+' '+string(obj_inc),string(r_obj.width)+' '+string(r_back.width))
RETURN 0
end function

public function integer wf_accepttol (double tol);
//wf_accepttol
obj_tol = tol
r_obj.Width = 0
wf_set_msg(old_msg)
RETURN 0
end function

on w_xls_sys_wait_jdt.create
this.st_3=create st_3
this.st_msg=create st_msg
this.r_back=create r_back
this.r_obj=create r_obj
this.Control[]={this.st_3,&
this.st_msg,&
this.r_back,&
this.r_obj}
end on

on w_xls_sys_wait_jdt.destroy
destroy(this.st_3)
destroy(this.st_msg)
destroy(this.r_back)
destroy(this.r_obj)
end on

event open;
THIS.TriggerEvent('ue_before_open')
wf_movetocenter()


//====================================================================
//菜单打开
//if_ue_retr=false
//if_ue_filter=false
//if_ue_sort=false
//if_ue_sentdataout=false
//====================================================================

//ls_x = p_1.X
wf_accepttol(0)
wf_inc(0)
old_msg = st_msg.Text
//
uo_win32api uo_api
uo_api = create uo_win32api
uo_api.u_setwindowpos( handle(this))
//
end event

type st_3 from statictext within w_xls_sys_wait_jdt
integer x = 631
integer y = 148
integer width = 288
integer height = 52
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 = "%"
alignment alignment = center!
boolean focusrectangle = false
end type

type st_msg from statictext within w_xls_sys_wait_jdt
integer x = 69
integer y = 40
integer width = 1435
integer height = 108
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 r_back from rectangle within w_xls_sys_wait_jdt
long linecolor = 65535
integer linethickness = 4
long fillcolor = 16777215
integer x = 87
integer y = 204
integer width = 1381
integer height = 36
end type

type r_obj from rectangle within w_xls_sys_wait_jdt
long linecolor = 16711680
integer linethickness = 4
long fillcolor = 255
integer x = 87
integer y = 204
integer width = 389
integer height = 36
end type