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

$PBExportHeader$w_sys_wait_jdt.srw
$PBExportComments$单进度条
forward
global type w_sys_wait_jdt from w_publ_base
end type
type r_back from rectangle within w_sys_wait_jdt
end type
type st_msg from statictext within w_sys_wait_jdt
end type
type p_logo from picture within w_sys_wait_jdt
end type
type st_3 from statictext within w_sys_wait_jdt
end type
type r_obj from picture within w_sys_wait_jdt
end type
type hpb_1 from hprogressbar within w_sys_wait_jdt
end type
type ln_6 from line within w_sys_wait_jdt
end type
type ln_1 from line within w_sys_wait_jdt
end type
end forward

global type w_sys_wait_jdt from w_publ_base
integer x = 626
integer y = 488
integer width = 1824
integer height = 508
boolean titlebar = false
string title = ""
boolean controlmenu = false
boolean minbox = false
long backcolor = 67108864
r_back r_back
st_msg st_msg
p_logo p_logo
st_3 st_3
r_obj r_obj
hpb_1 hpb_1
ln_6 ln_6
ln_1 ln_1
end type
global w_sys_wait_jdt w_sys_wait_jdt

type variables
int ls_x
double obj_tol=0,obj_inc=0
string old_msg
end variables

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

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

Double bf = 0
IF obj_tol = 0 THEN
	st_3.Text = '0.0%'
	hpb_1.position = 0
	RETURN 0
END IF

bf = (obj_inc/obj_tol)

st_3.Text = String(bf,'0.0%')

IF bf > 1 THEN bf = 1

hpb_1.position = bf * 1000

//r_obj.Width = r_back.Width*bf

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

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

end function

on w_sys_wait_jdt.create
int iCurrent
call super::create
this.r_back=create r_back
this.st_msg=create st_msg
this.p_logo=create p_logo
this.st_3=create st_3
this.r_obj=create r_obj
this.hpb_1=create hpb_1
this.ln_6=create ln_6
this.ln_1=create ln_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.r_back
this.Control[iCurrent+2]=this.st_msg
this.Control[iCurrent+3]=this.p_logo
this.Control[iCurrent+4]=this.st_3
this.Control[iCurrent+5]=this.r_obj
this.Control[iCurrent+6]=this.hpb_1
this.Control[iCurrent+7]=this.ln_6
this.Control[iCurrent+8]=this.ln_1
end on

on w_sys_wait_jdt.destroy
call super::destroy
destroy(this.r_back)
destroy(this.st_msg)
destroy(this.p_logo)
destroy(this.st_3)
destroy(this.r_obj)
destroy(this.hpb_1)
destroy(this.ln_6)
destroy(this.ln_1)
end on

event open;call super::open;ls_x=p_logo.x
wf_accepttol(0)
wf_inc(0)
old_msg=st_msg.text

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;//wf_accepttol(0)
//wf_inc(0)


end event

event activate;//timer(0.1)
end event

event show;//wf_accepttol(0)
//wf_inc(0)
end event

event other;////open(w_sys_wait_jdt) //打开进度窗口
////w_sys_wait_jdt.WF_ACCEPTTOL(dw_contract.ROWCOUNT()) //初始化进度条
////w_sys_wait_jdt.wf_set_msg('新提示内容,请稍候...')
////FOR LS_LONG =1 TO dw_contract.ROWCOUNT()
////	///处理
////	w_sys_wait_jdt.WF_INC(LS_LONG) //进度
////NEXT
////messagebox('操作完成','新建合约收费明细 '+STRING(OBJ_RC)+' 个,请核对!')
////close(w_sys_wait_jdt) 
end event

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

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

type r_back from rectangle within w_sys_wait_jdt
boolean visible = false
long linecolor = 8421504
integer linethickness = 4
long fillcolor = 16777215
integer x = 87
integer y = 204
integer width = 1568
integer height = 52
end type

type st_msg from statictext within w_sys_wait_jdt
integer x = 27
integer y = 188
integer width = 1760
integer height = 108
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_logo from picture within w_sys_wait_jdt
integer width = 1829
integer height = 160
boolean bringtotop = true
boolean originalsize = true
string picturename = "graphics\jdt_banner.jpg"
boolean focusrectangle = false
end type

type st_3 from statictext within w_sys_wait_jdt
integer x = 731
integer y = 316
integer width = 288
integer height = 64
boolean bringtotop = true
integer textsize = -11
integer weight = 700
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long backcolor = 67108864
boolean enabled = false
string text = "45.6%"
alignment alignment = center!
boolean focusrectangle = false
end type

type r_obj from picture within w_sys_wait_jdt
boolean visible = false
integer x = 87
integer y = 204
integer width = 37
integer height = 52
boolean bringtotop = true
string picturename = "graphics\jdt.bmp"
boolean focusrectangle = false
end type

type hpb_1 from hprogressbar within w_sys_wait_jdt
integer x = 73
integer y = 384
integer width = 1678
integer height = 68
boolean bringtotop = true
unsignedinteger maxposition = 1000
unsignedinteger position = 50
integer setstep = 10
end type

type ln_6 from line within w_sys_wait_jdt
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_jdt
long linecolor = 268435456
integer linethickness = 4
integer beginx = -9
integer beginy = 160
integer endx = 2002
integer endy = 160
end type