PBMiner

$PBExportHeader$u_controls_splitcontainer.sru
forward
global type u_controls_splitcontainer from u_explorer
end type
type st_2 from u_st within u_controls_splitcontainer
end type
type st_1 from u_st within u_controls_splitcontainer
end type
type uo_1 from u_controls_splitcontainer_child within u_controls_splitcontainer
end type
type cbx_2 from u_cbx within u_controls_splitcontainer
end type
type cbx_1 from u_cbx within u_controls_splitcontainer
end type
type rb_6 from u_rb within u_controls_splitcontainer
end type
type rb_5 from u_rb within u_controls_splitcontainer
end type
type rb_4 from u_rb within u_controls_splitcontainer
end type
type rb_3 from u_rb within u_controls_splitcontainer
end type
type rb_2 from u_rb within u_controls_splitcontainer
end type
type rb_1 from u_rb within u_controls_splitcontainer
end type
type gb_1 from u_gb within u_controls_splitcontainer
end type
type gb_2 from u_gb within u_controls_splitcontainer
end type
end forward

global type u_controls_splitcontainer from u_explorer
integer width = 1970
integer height = 1140
st_2 st_2
st_1 st_1
uo_1 uo_1
cbx_2 cbx_2
cbx_1 cbx_1
rb_6 rb_6
rb_5 rb_5
rb_4 rb_4
rb_3 rb_3
rb_2 rb_2
rb_1 rb_1
gb_1 gb_1
gb_2 gb_2
end type
global u_controls_splitcontainer u_controls_splitcontainer

forward prototypes
public subroutine of_showpanel1 (readonly integer ai_mode)
public subroutine of_showpanel2 (readonly integer ai_mode)
end prototypes

public subroutine of_showpanel1 (readonly integer ai_mode);uo_1.uo_split1.of_showsplitpart(ai_mode)
end subroutine

public subroutine of_showpanel2 (readonly integer ai_mode);uo_1.uo_split2.of_showsplitpart(ai_mode)
end subroutine

on u_controls_splitcontainer.create
int iCurrent
call super::create
this.st_2=create st_2
this.st_1=create st_1
this.uo_1=create uo_1
this.cbx_2=create cbx_2
this.cbx_1=create cbx_1
this.rb_6=create rb_6
this.rb_5=create rb_5
this.rb_4=create rb_4
this.rb_3=create rb_3
this.rb_2=create rb_2
this.rb_1=create rb_1
this.gb_1=create gb_1
this.gb_2=create gb_2
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.st_2
this.Control[iCurrent+2]=this.st_1
this.Control[iCurrent+3]=this.uo_1
this.Control[iCurrent+4]=this.cbx_2
this.Control[iCurrent+5]=this.cbx_1
this.Control[iCurrent+6]=this.rb_6
this.Control[iCurrent+7]=this.rb_5
this.Control[iCurrent+8]=this.rb_4
this.Control[iCurrent+9]=this.rb_3
this.Control[iCurrent+10]=this.rb_2
this.Control[iCurrent+11]=this.rb_1
this.Control[iCurrent+12]=this.gb_1
this.Control[iCurrent+13]=this.gb_2
end on

on u_controls_splitcontainer.destroy
call super::destroy
destroy(this.st_2)
destroy(this.st_1)
destroy(this.uo_1)
destroy(this.cbx_2)
destroy(this.cbx_1)
destroy(this.rb_6)
destroy(this.rb_5)
destroy(this.rb_4)
destroy(this.rb_3)
destroy(this.rb_2)
destroy(this.rb_1)
destroy(this.gb_1)
destroy(this.gb_2)
end on

type st_2 from u_st within u_controls_splitcontainer
integer x = 475
integer y = 1068
integer width = 1216
integer height = 68
integer weight = 700
string text = "Doubleclicking the splitter will resize it to 1/2"
boolean #anchorleft = true
boolean #anchorright = true
boolean #anchorbottom = true
end type

type st_1 from u_st within u_controls_splitcontainer
integer x = 73
integer y = 16
integer width = 1838
integer height = 116
integer weight = 700
string text = "When assigning controls to the split container, make sure that they have #sizeorder = -1"
boolean #anchorleft = true
boolean #anchorright = true
end type

type uo_1 from u_controls_splitcontainer_child within u_controls_splitcontainer
integer x = 494
integer y = 144
integer height = 908
integer taborder = 20
boolean #anchortop = true
boolean #anchorleft = true
boolean #anchorright = true
boolean #anchorbottom = true
end type

on uo_1.destroy
call u_controls_splitcontainer_child::destroy
end on

type cbx_2 from u_cbx within u_controls_splitcontainer
integer x = 110
integer y = 952
string text = "Lock Split"
end type

event clicked;call super::clicked;uo_1.uo_split2.of_locksizing(this.checked)
end event

type cbx_1 from u_cbx within u_controls_splitcontainer
integer x = 110
integer y = 480
string text = "Lock Split"
end type

event clicked;call super::clicked;uo_1.uo_split1.of_locksizing(this.checked)
end event

type rb_6 from u_rb within u_controls_splitcontainer
integer x = 110
integer y = 696
string text = "Both"
boolean checked = true
end type

event clicked;call super::clicked;of_showpanel2(2)
end event

type rb_5 from u_rb within u_controls_splitcontainer
integer x = 110
integer y = 784
string text = "Left"
end type

event clicked;call super::clicked;of_showpanel2(1)
end event

type rb_4 from u_rb within u_controls_splitcontainer
integer x = 110
integer y = 872
string text = "Right"
end type

event clicked;call super::clicked;of_showpanel2(0)
end event

type rb_3 from u_rb within u_controls_splitcontainer
integer x = 110
integer y = 400
string text = "Right"
end type

event clicked;call super::clicked;of_showpanel1(3)
end event

type rb_2 from u_rb within u_controls_splitcontainer
integer x = 110
integer y = 312
string text = "Left"
end type

event clicked;call super::clicked;of_showpanel1(1)
end event

type rb_1 from u_rb within u_controls_splitcontainer
integer x = 110
integer y = 224
string text = "Both"
boolean checked = true
end type

event clicked;call super::clicked;of_showpanel1(0)
end event

type gb_1 from u_gb within u_controls_splitcontainer
integer x = 55
integer y = 128
integer height = 452
integer taborder = 10
string text = "Container 1"
borderstyle borderstyle = stylebox!
end type

type gb_2 from u_gb within u_controls_splitcontainer
integer x = 55
integer y = 604
integer height = 452
integer taborder = 20
string text = "Container 2"
borderstyle borderstyle = stylebox!
end type