$PBExportHeader$w_publ_base_style.srw
forward
global type w_publ_base_style from w_publ_base
end type
type ln_bar from line within w_publ_base_style
end type
type ln_bar2 from line within w_publ_base_style
end type
type r_bar from rectangle within w_publ_base_style
end type
end forward

global type w_publ_base_style from w_publ_base
ln_bar ln_bar
ln_bar2 ln_bar2
r_bar r_bar
end type
global w_publ_base_style w_publ_base_style

event resize;call super::resize;ln_bar.endx = this.width
ln_bar2.endx = this.width
r_bar.width = this.width
end event

on w_publ_base_style.create
int iCurrent
call super::create
this.ln_bar=create ln_bar
this.ln_bar2=create ln_bar2
this.r_bar=create r_bar
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.ln_bar
this.Control[iCurrent+2]=this.ln_bar2
this.Control[iCurrent+3]=this.r_bar
end on

on w_publ_base_style.destroy
call super::destroy
destroy(this.ln_bar)
destroy(this.ln_bar2)
destroy(this.r_bar)
end on

type cb_func from w_publ_base`cb_func within w_publ_base_style
integer width = 151
integer height = 164
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type cb_exit from w_publ_base`cb_exit within w_publ_base_style
integer x = 151
integer width = 151
integer height = 164
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type ln_bar from line within w_publ_base_style
long linecolor = 268435456
integer linethickness = 4
integer beginy = 168
integer endx = 2007
integer endy = 168
end type

type ln_bar2 from line within w_publ_base_style
long linecolor = 16777215
integer linethickness = 4
integer beginy = 172
integer endx = 2039
integer endy = 172
end type

type r_bar from rectangle within w_publ_base_style
long linecolor = 16777215
integer linethickness = 4
long fillcolor = 1073741824
integer x = 1531
integer width = 146
integer height = 68
end type

event constructor;this.fillcolor = 14215660
this.linecolor = 14215660
this.x = -1
this.y = -1
this.height = ln_bar.beginy - 5

end event

