Q5/ws_objects/longjoe_report_uo.pbl.src/w_rpt_statbar.srw

$PBExportHeader$w_rpt_statbar.srw
$PBExportComments$自定义状态条--窗口
forward
global type w_rpt_statbar from window
end type
type dw1 from datawindow within w_rpt_statbar
end type
end forward

global type w_rpt_statbar from window
integer x = 1056
integer y = 484
integer width = 2784
integer height = 72
boolean border = false
windowtype windowtype = popup!
long backcolor = 80269524
dw1 dw1
end type
global w_rpt_statbar w_rpt_statbar

type variables
window iw
end variables

on w_rpt_statbar.create
this.dw1=create dw1
this.Control[]={this.dw1}
end on

on w_rpt_statbar.destroy
destroy(this.dw1)
end on

event resize;x=iw.x+16
y=iw.y + 300 +iw.height -height - 16
width=iw.width -32
dw1.width=width -4
end event

event open;iw=parentwindow()
dw1.insertrow(0)
end event

type dw1 from datawindow within w_rpt_statbar
integer width = 2523
integer height = 72
integer taborder = 10
string dataobject = "dw_rpt_statbar"
boolean border = false
boolean livescroll = true
end type