Q5/ws_objects/Ew_dw2xls.pbl.src/w_dw2xls_progress.srw

$PBExportHeader$w_dw2xls_progress.srw
forward
global type w_dw2xls_progress from window
end type
type p_1 from picture within w_dw2xls_progress
end type
type cb_cancel from commandbutton within w_dw2xls_progress
end type
type st_remain from statictext within w_dw2xls_progress
end type
type st_1 from statictext within w_dw2xls_progress
end type
type hpb_1 from hprogressbar within w_dw2xls_progress
end type
end forward

global type w_dw2xls_progress from window
integer width = 1819
integer height = 496
boolean titlebar = true
string title = "数据发送"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
p_1 p_1
cb_cancel cb_cancel
st_remain st_remain
st_1 st_1
hpb_1 hpb_1
end type
global w_dw2xls_progress w_dw2xls_progress

type variables
n_dw2xls_progress         inv_Progress 
end variables

on w_dw2xls_progress.create
this.p_1=create p_1
this.cb_cancel=create cb_cancel
this.st_remain=create st_remain
this.st_1=create st_1
this.hpb_1=create hpb_1
this.Control[]={this.p_1,&
this.cb_cancel,&
this.st_remain,&
this.st_1,&
this.hpb_1}
end on

on w_dw2xls_progress.destroy
destroy(this.p_1)
destroy(this.cb_cancel)
destroy(this.st_remain)
destroy(this.st_1)
destroy(this.hpb_1)
end on

event open;IF Not IsValid(Message.PowerObjectParm) Then
	Close(This)
	Return
END IF

This.SetPosition(ToTop!)

inv_Progress = Message.PowerObjectParm

//This.Title =inv_Progress.inv_Requestor.Dynamic OF_GetCompanyName() 


This.p_1.PictureName = inv_Progress.inv_Res.PicFileName

This.st_1.FaceName = inv_Progress.inv_Res.FontName 
This.st_1.Text = inv_Progress.inv_Res.WorkInProcessing 

This.st_Remain.FaceName =  inv_Progress.inv_Res.FontName 

This.cb_Cancel.FaceName = inv_Progress.inv_Res.FontName
This.cb_Cancel.Text = inv_Progress.inv_Res.Cancel 

inv_Progress.iu_hpb = This.hpb_1 
inv_Progress.inv_Requestor.PostEvent("ue_Process_Export")
 
end event

type p_1 from picture within w_dw2xls_progress
integer x = 96
integer y = 64
integer width = 110
integer height = 96
boolean originalsize = true
string picturename = "graphics\report_sp.bmp"
boolean focusrectangle = false
end type

type cb_cancel from commandbutton within w_dw2xls_progress
integer x = 1490
integer y = 284
integer width = 270
integer height = 92
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "取消"
end type

event clicked;IF MessageBox(inv_Progress.inv_Res.Tips, inv_Progress.inv_Res.CancelQuestion,Question!,YesNo!,2)=2 Then
	Return
END IF

This.Enabled=False
inv_Progress.ib_Cancel =TRUE 
Parent.Hide()

	
end event

type st_remain from statictext within w_dw2xls_progress
integer x = 59
integer y = 288
integer width = 1234
integer height = 68
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 67108864
boolean focusrectangle = false
end type

type st_1 from statictext within w_dw2xls_progress
integer x = 229
integer y = 96
integer width = 1394
integer height = 64
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 67108864
string text = "正在生成Excel文件,请稍侯....."
boolean focusrectangle = false
end type

type hpb_1 from hprogressbar within w_dw2xls_progress
integer x = 41
integer y = 200
integer width = 1737
integer height = 64
unsignedinteger maxposition = 100
integer setstep = 1
end type