PBMiner

$PBExportHeader$u_explorer_sample1.sru
forward
global type u_explorer_sample1 from u_explorer
end type
type uo_1 from u_sheets_explorer within u_explorer_sample1
end type
type tv_1 from u_tv_explorer within u_explorer_sample1
end type
end forward

global type u_explorer_sample1 from u_explorer
integer width = 1957
integer height = 1140
uo_1 uo_1
tv_1 tv_1
end type
global u_explorer_sample1 u_explorer_sample1

type variables
n_explorer inv_sample
end variables
on u_explorer_sample1.create
int iCurrent
call super::create
this.uo_1=create uo_1
this.tv_1=create tv_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.uo_1
this.Control[iCurrent+2]=this.tv_1
end on

on u_explorer_sample1.destroy
call super::destroy
destroy(this.uo_1)
destroy(this.tv_1)
end on

event destructor;call super::destructor;IF ISVALID(inv_sample) THEN DESTROY inv_sample
end event

event ke_postopen;call super::ke_postopen;inv_sample = CREATE n_explorer
inv_sample.of_Register(tv_1, uo_1)
inv_sample.of_setmodules("explorer_sample1")
inv_sample.of_populatemodules()
end event

type uo_1 from u_sheets_explorer within u_explorer_sample1
integer x = 878
integer y = 32
integer width = 1024
integer height = 1056
integer taborder = 20
boolean #anchortop = true
boolean #anchorleft = true
boolean #anchorright = true
boolean #anchorbottom = true
boolean #showtabs = false
end type

on uo_1.destroy
call u_sheets_explorer::destroy
end on

type tv_1 from u_tv_explorer within u_explorer_sample1
integer x = 37
integer y = 32
integer width = 805
integer height = 1056
integer taborder = 10
boolean haslines = false
boolean linesatroot = false
boolean fullrowselect = true
boolean #anchortop = true
boolean #anchorleft = true
boolean #anchorbottom = true
end type