Q5/ws_objects/longjoe_report_uo.pbl.src/uo_tlbar_space.sru

$PBExportHeader$uo_tlbar_space.sru
$PBExportComments$ToolBar 用户对象
forward
global type uo_tlbar_space from UserObject
end type
type ln_1 from line within uo_tlbar_space
end type
type ln_2 from line within uo_tlbar_space
end type
end forward

global type uo_tlbar_space from UserObject
int Width=18
int Height=160
long BackColor=79741120
long PictureMaskColor=536870912
long TabTextColor=33554432
long TabBackColor=67108864
ln_1 ln_1
ln_2 ln_2
end type
global uo_tlbar_space uo_tlbar_space

type variables
uo_tlbar iuo_tlbar
end variables

on uo_tlbar_space.create
this.ln_1=create ln_1
this.ln_2=create ln_2
this.Control[]={this.ln_1,&
this.ln_2}
end on

on uo_tlbar_space.destroy
destroy(this.ln_1)
destroy(this.ln_2)
end on

type ln_1 from line within uo_tlbar_space
boolean Enabled=false
int BeginX=5
int BeginY=8
int EndX=5
int EndY=156
int LineThickness=4
long LineColor=276856960
end type

type ln_2 from line within uo_tlbar_space
boolean Enabled=false
int BeginX=9
int BeginY=8
int EndX=9
int EndY=156
int LineThickness=4
long LineColor=1090519039
end type