PBMiner

$PBExportHeader$u_layout_dock2.sru
forward
global type u_layout_dock2 from u_explorer
end type
type mle_2 from u_mle within u_layout_dock2
end type
type mle_1 from u_mle within u_layout_dock2
end type
type sle_1 from u_sle within u_layout_dock2
end type
type ddlb_1 from u_ddlb within u_layout_dock2
end type
end forward

global type u_layout_dock2 from u_explorer
integer width = 2053
integer height = 1220
mle_2 mle_2
mle_1 mle_1
sle_1 sle_1
ddlb_1 ddlb_1
end type
global u_layout_dock2 u_layout_dock2

on u_layout_dock2.create
int iCurrent
call super::create
this.mle_2=create mle_2
this.mle_1=create mle_1
this.sle_1=create sle_1
this.ddlb_1=create ddlb_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.mle_2
this.Control[iCurrent+2]=this.mle_1
this.Control[iCurrent+3]=this.sle_1
this.Control[iCurrent+4]=this.ddlb_1
end on

on u_layout_dock2.destroy
call super::destroy
destroy(this.mle_2)
destroy(this.mle_1)
destroy(this.sle_1)
destroy(this.ddlb_1)
end on

event ke_postopen;call super::ke_postopen;ddlb_1.SelectItem(1)
end event

type mle_2 from u_mle within u_layout_dock2
integer x = 1042
integer y = 304
integer width = 905
integer taborder = 30
string text = ""
boolean vscrollbar = true
long #sizeorder = 4
boolean #dock = true
long #docktype = 5
string #dock_control_top = "ddlb_1"
string #dock_control_left = "mle_1"
string #dock_control_bottom = "sle_1"
end type

event constructor;call super::constructor;this.text += "mle_2"
this.text += "~r~nDockFill (SizeOrder 4)"
this.text += "~r~nDockControlTop = ddlb_1"
this.text += "~r~nDockControlBottom = sle_1"
this.text += "~r~nDockControlLeft = mle_1"

this.text += "~r~n"
this.text += "~r~n"
this.text += "~r~n"
this.text += "~r~n"
this.text += "~r~n"

this.text += "In this example, SizeOrder plays an important role. "
this.text += "Make sure you know how to order the docking and identify the controls that the dock definition will consider as boundaries. "

this.text += "~r~n"
this.text += "Check out the controls and look at the values for #dock_control_top, #dock_control_bottom, #dock_control_left and #dock_control_right"

this.text += "~r~n"
this.text += "~r~n"
this.text += "~r~nTry Resizing the window!"

end event

type mle_1 from u_mle within u_layout_dock2
integer x = 110
integer y = 304
integer width = 905
integer taborder = 20
string text = ""
long #sizeorder = 3
boolean #dock = true
long #docktype = 2
string #dock_control_top = "ddlb_1"
string #dock_control_bottom = "sle_1"
end type

event constructor;call super::constructor;this.text = "mle_1"
this.text += "~r~nDockLeft (SizeOrder 3)"
this.text += "~r~nDockControlTop = ddlb_1"
this.text += "~r~nDockControlBottom = sle_1"
end event

type sle_1 from u_sle within u_layout_dock2
integer x = 457
integer y = 880
integer taborder = 20
string text = "sle_1 DockBottom (SizeOrder 2)"
long #sizeorder = 2
boolean #dock = true
long #docktype = 4
end type

type ddlb_1 from u_ddlb within u_layout_dock2
integer x = 347
integer y = 80
integer taborder = 10
string item[] = {"ddlb_1 DockTop (SizeOrder 1)"}
long #sizeorder = 1
boolean #dock = true
long #docktype = 1
end type