PBMiner

$PBExportHeader$u_layout_dock1.sru
forward
global type u_layout_dock1 from u_explorer
end type
type st_2 from u_st within u_layout_dock1
end type
type rb_fill from u_rb within u_layout_dock1
end type
type rb_bottom from u_rb within u_layout_dock1
end type
type rb_right from u_rb within u_layout_dock1
end type
type rb_left from u_rb within u_layout_dock1
end type
type rb_top from u_rb within u_layout_dock1
end type
type gb_1 from u_gb within u_layout_dock1
end type
type st_1 from u_st within u_layout_dock1
end type
end forward

global type u_layout_dock1 from u_explorer
st_2 st_2
rb_fill rb_fill
rb_bottom rb_bottom
rb_right rb_right
rb_left rb_left
rb_top rb_top
gb_1 gb_1
st_1 st_1
end type
global u_layout_dock1 u_layout_dock1

forward prototypes
public subroutine of_dock (readonly integer ai_docktype)
end prototypes

public subroutine of_dock (readonly integer ai_docktype);//for demo purposes, reset size
this.SetRedraw(FALSE)
st_1.Resize(329, 64)

st_1.#Dock = TRUE
st_1.#DockType = ai_docktype

//re-apply sizing
of_ResizeObjects(TRUE)
this.SetRedraw(TRUE)
end subroutine

on u_layout_dock1.create
int iCurrent
call super::create
this.st_2=create st_2
this.rb_fill=create rb_fill
this.rb_bottom=create rb_bottom
this.rb_right=create rb_right
this.rb_left=create rb_left
this.rb_top=create rb_top
this.gb_1=create gb_1
this.st_1=create st_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.st_2
this.Control[iCurrent+2]=this.rb_fill
this.Control[iCurrent+3]=this.rb_bottom
this.Control[iCurrent+4]=this.rb_right
this.Control[iCurrent+5]=this.rb_left
this.Control[iCurrent+6]=this.rb_top
this.Control[iCurrent+7]=this.gb_1
this.Control[iCurrent+8]=this.st_1
end on

on u_layout_dock1.destroy
call super::destroy
destroy(this.st_2)
destroy(this.rb_fill)
destroy(this.rb_bottom)
destroy(this.rb_right)
destroy(this.rb_left)
destroy(this.rb_top)
destroy(this.gb_1)
destroy(this.st_1)
end on

type st_2 from u_st within u_layout_dock1
integer x = 347
integer y = 816
integer width = 1083
string text = "Docking a Control overrides its Anchor properties"
end type

type rb_fill from u_rb within u_layout_dock1
integer x = 567
integer y = 672
string text = "Fill"
end type

event clicked;call super::clicked;of_Dock(CDock.FILL)
end event

type rb_bottom from u_rb within u_layout_dock1
integer x = 567
integer y = 584
string text = "Bottom"
end type

event clicked;call super::clicked;of_Dock(CDock.BOTTOM)
end event

type rb_right from u_rb within u_layout_dock1
integer x = 567
integer y = 496
string text = "Right"
end type

event clicked;call super::clicked;of_Dock(CDock.RIGHT)
end event

type rb_left from u_rb within u_layout_dock1
integer x = 567
integer y = 408
string text = "Left"
end type

event clicked;call super::clicked;of_Dock(CDock.LEFT)
end event

type rb_top from u_rb within u_layout_dock1
integer x = 567
integer y = 320
string text = "Top"
end type

event clicked;call super::clicked;of_Dock(CDock.TOP)
end event

type gb_1 from u_gb within u_layout_dock1
integer x = 475
integer y = 224
integer width = 759
integer height = 564
integer taborder = 10
string text = "Dock (Try resizing the window!)"
borderstyle borderstyle = stylebox!
end type

type st_1 from u_st within u_layout_dock1
integer x = 1262
integer y = 272
integer width = 329
integer height = 64
string text = "Dock Me!"
alignment alignment = center!
boolean border = true
long bordercolor = 134217857
end type