File: u_layout_dock3.sru
Size: 3195
Date: Mon, 07 Apr 2008 21:33:13 +0200
$PBExportHeader$u_layout_dock3.sru
forward
global type u_layout_dock3 from u_explorer
end type
type cbx_1 from u_cbx within u_layout_dock3
end type
type hpb_1 from u_hpb within u_layout_dock3
end type
type st_1 from u_st within u_layout_dock3
end type
type cb_3 from u_cb within u_layout_dock3
end type
type cb_2 from u_cb within u_layout_dock3
end type
type uo_1 from u_layout_dock3_child within u_layout_dock3
end type
type cb_1 from u_cb within u_layout_dock3
end type
end forward

global type u_layout_dock3 from u_explorer
integer width = 2053
integer height = 1220
cbx_1 cbx_1
hpb_1 hpb_1
st_1 st_1
cb_3 cb_3
cb_2 cb_2
uo_1 uo_1
cb_1 cb_1
end type
global u_layout_dock3 u_layout_dock3

on u_layout_dock3.create
int iCurrent
call super::create
this.cbx_1=create cbx_1
this.hpb_1=create hpb_1
this.st_1=create st_1
this.cb_3=create cb_3
this.cb_2=create cb_2
this.uo_1=create uo_1
this.cb_1=create cb_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cbx_1
this.Control[iCurrent+2]=this.hpb_1
this.Control[iCurrent+3]=this.st_1
this.Control[iCurrent+4]=this.cb_3
this.Control[iCurrent+5]=this.cb_2
this.Control[iCurrent+6]=this.uo_1
this.Control[iCurrent+7]=this.cb_1
end on

on u_layout_dock3.destroy
call super::destroy
destroy(this.cbx_1)
destroy(this.hpb_1)
destroy(this.st_1)
destroy(this.cb_3)
destroy(this.cb_2)
destroy(this.uo_1)
destroy(this.cb_1)
end on

type cbx_1 from u_cbx within u_layout_dock3
integer x = 1701
integer y = 368
integer width = 306
string text = "Marquee"
boolean #anchorright = true
end type

event clicked;call super::clicked;hpb_1.of_SetMarquee(Checked)
end event

type hpb_1 from u_hpb within u_layout_dock3
integer y = 16
integer setstep = 1
boolean smoothscroll = true
long #sizeorder = 1
boolean #dock = true
long #docktype = 1
end type

type st_1 from u_st within u_layout_dock3
integer x = 421
integer y = 1104
integer width = 1600
integer height = 116
string text = "The userobject above is docked fill but is bound based on the controls defined in #dock_control_top, etc. It also uses dock padding to have spaces."
boolean #anchorleft = true
boolean #anchorright = true
boolean #anchorbottom = true
end type

type cb_3 from u_cb within u_layout_dock3
integer x = 1682
integer y = 228
integer taborder = 30
string text = "Test"
boolean #anchorright = true
end type

type cb_2 from u_cb within u_layout_dock3
integer x = 1682
integer y = 112
integer taborder = 30
string text = "Test"
boolean #anchorright = true
end type

type uo_1 from u_layout_dock3_child within u_layout_dock3
integer x = 640
integer y = 256
integer taborder = 30
long #sizeorder = 5
boolean #dock = true
long #docktype = 5
long #dockpadtop = 48
long #dockpadright = 48
long #dockpadbottom = 48
string #dock_control_top = "hpb_1"
string #dock_control_right = "cb_2"
string #dock_control_bottom = "cb_1"
end type

on uo_1.destroy
call u_layout_dock3_child::destroy
end on

type cb_1 from u_cb within u_layout_dock3
integer x = 37
integer y = 1104
integer taborder = 10
long #sizeorder = 1
boolean #anchorbottom = true
end type