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

$PBExportHeader$uo_tlbar_menuseperator.sru
$PBExportComments$ToolBar 用户对象
forward
global type uo_tlbar_menuseperator from UserObject
end type
type ln_grey from line within uo_tlbar_menuseperator
end type
type ln_white from line within uo_tlbar_menuseperator
end type
end forward

global type uo_tlbar_menuseperator from UserObject
int Width=8201
int Height=8
long BackColor=79741120
long PictureMaskColor=25166016
long TabBackColor=67108864
event mousemove pbm_mousemove
ln_grey ln_grey
ln_white ln_white
end type
global uo_tlbar_menuseperator uo_tlbar_menuseperator

on uo_tlbar_menuseperator.create
this.ln_grey=create ln_grey
this.ln_white=create ln_white
this.Control[]={this.ln_grey,&
this.ln_white}
end on

on uo_tlbar_menuseperator.destroy
destroy(this.ln_grey)
destroy(this.ln_white)
end on

type ln_grey from line within uo_tlbar_menuseperator
boolean Enabled=false
int EndX=8201
int LineThickness=4
long LineColor=8421504
end type

type ln_white from line within uo_tlbar_menuseperator
boolean Enabled=false
int BeginY=4
int EndX=8201
int EndY=4
int LineThickness=4
long LineColor=16777215
end type