PBMiner

$PBExportHeader$u_controls_splitcontainer_child.sru
forward
global type u_controls_splitcontainer_child from u_base_container
end type
type mle_2 from u_mle within u_controls_splitcontainer_child
end type
type mle_1 from u_mle within u_controls_splitcontainer_child
end type
type tv_1 from u_tv within u_controls_splitcontainer_child
end type
type uo_split2 from u_splitcontainer within u_controls_splitcontainer_child
end type
type uo_split1 from u_splitcontainer within u_controls_splitcontainer_child
end type
end forward

global type u_controls_splitcontainer_child from u_base_container
integer width = 1431
integer height = 812
mle_2 mle_2
mle_1 mle_1
tv_1 tv_1
uo_split2 uo_split2
uo_split1 uo_split1
end type
global u_controls_splitcontainer_child u_controls_splitcontainer_child

on u_controls_splitcontainer_child.create
int iCurrent
call super::create
this.mle_2=create mle_2
this.mle_1=create mle_1
this.tv_1=create tv_1
this.uo_split2=create uo_split2
this.uo_split1=create uo_split1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.mle_2
this.Control[iCurrent+2]=this.mle_1
this.Control[iCurrent+3]=this.tv_1
this.Control[iCurrent+4]=this.uo_split2
this.Control[iCurrent+5]=this.uo_split1
end on

on u_controls_splitcontainer_child.destroy
call super::destroy
destroy(this.mle_2)
destroy(this.mle_1)
destroy(this.tv_1)
destroy(this.uo_split2)
destroy(this.uo_split1)
end on

event ke_preopen;call super::ke_preopen;n_ds lds
n_svc_mgr lnv_svc
n_svc_tv lnv_tv
long ll_node

lds = CREATE n_ds
lds.of_SetDataobject("d_2tv")

lnv_svc.of_LoadSvc(lnv_tv, CSvc.TV)
lnv_tv.of_Convertdatastore(lnv_svc, &
                  lds, &
                  tv_1, &
                  "-1")
end event

type mle_2 from u_mle within u_controls_splitcontainer_child
integer x = 585
integer y = 428
integer taborder = 40
string text = "Another multiline edit"
long #sizeorder = -1
end type

type mle_1 from u_mle within u_controls_splitcontainer_child
integer x = 110
integer y = 432
integer taborder = 30
string text = "This is a multiline edit"
long #sizeorder = -1
end type

type tv_1 from u_tv within u_controls_splitcontainer_child
integer x = 91
integer y = 64
integer width = 777
integer taborder = 10
boolean #standardimages = true
boolean #stateimages = true
long #sizeorder = -1
end type

type uo_split2 from u_splitcontainer within u_controls_splitcontainer_child
integer x = 549
integer y = 144
integer taborder = 40
long #sizeorder = -1
boolean #dock = true
long #docktype = 5
boolean #verticalorientation = true
string #lefttopcontrol = "mle_1"
string #rightbottomcontrol = "mle_2"
boolean #usethemecolors = false
end type

on uo_split2.destroy
call u_splitcontainer::destroy
end on

type uo_split1 from u_splitcontainer within u_controls_splitcontainer_child
integer width = 1408
integer height = 788
integer taborder = 20
long #sizeorder = 1
boolean #dock = true
long #docktype = 5
string #lefttopcontrol = "tv_1"
string #rightbottomcontrol = "uo_split2"
boolean #usethemecolors = false
end type

on uo_split1.destroy
call u_splitcontainer::destroy
end on