PBMiner

$PBExportHeader$u_explorer_sample3.sru
forward
global type u_explorer_sample3 from u_explorer
end type
type uo_toolbar from u_dwtb_explorer within u_explorer_sample3
end type
type cbx_1 from u_cbx within u_explorer_sample3
end type
type st_1 from u_st within u_explorer_sample3
end type
type uo_splitter from u_splitcontainer_explorer within u_explorer_sample3
end type
type uo_1 from u_sheets_explorer within u_explorer_sample3
end type
type tv_1 from u_tv_explorer within u_explorer_sample3
end type
end forward

global type u_explorer_sample3 from u_explorer
integer width = 1957
integer height = 1140
uo_toolbar uo_toolbar
cbx_1 cbx_1
st_1 st_1
uo_splitter uo_splitter
uo_1 uo_1
tv_1 tv_1
end type
global u_explorer_sample3 u_explorer_sample3

type variables
n_explorer inv_sample
end variables

on u_explorer_sample3.create
int iCurrent
call super::create
this.uo_toolbar=create uo_toolbar
this.cbx_1=create cbx_1
this.st_1=create st_1
this.uo_splitter=create uo_splitter
this.uo_1=create uo_1
this.tv_1=create tv_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.uo_toolbar
this.Control[iCurrent+2]=this.cbx_1
this.Control[iCurrent+3]=this.st_1
this.Control[iCurrent+4]=this.uo_splitter
this.Control[iCurrent+5]=this.uo_1
this.Control[iCurrent+6]=this.tv_1
end on

on u_explorer_sample3.destroy
call super::destroy
destroy(this.uo_toolbar)
destroy(this.cbx_1)
destroy(this.st_1)
destroy(this.uo_splitter)
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, uo_toolbar, uo_splitter)
inv_sample.of_setmodules("explorer_sample1")
inv_sample.of_populatemodules()
end event

type uo_toolbar from u_dwtb_explorer within u_explorer_sample3
integer x = 37
integer y = 144
integer taborder = 20
long #sizeorder = 1
boolean #dock = true
long #docktype = 1
string #dock_control_top = "st_1"
boolean #mdiparent = true
end type

on uo_toolbar.destroy
call u_dwtb_explorer::destroy
end on

type cbx_1 from u_cbx within u_explorer_sample3
integer x = 1481
integer y = 16
string text = "ShowTabs"
end type

event clicked;call super::clicked;uo_1.of_Showtabs(Checked)
end event

type st_1 from u_st within u_explorer_sample3
integer x = 37
integer y = 16
integer width = 1394
integer height = 100
string text = "Again, the previous explorer sample with a toolbar and splitter."
end type

type uo_splitter from u_splitcontainer_explorer within u_explorer_sample3
integer x = 805
integer y = 544
integer taborder = 20
long #sizeorder = 2
boolean #dock = true
long #docktype = 5
string #dock_control_top = "uo_toolbar"
string #lefttopcontrol = "tv_1"
string #rightbottomcontrol = "uo_1"
boolean #usethemecolors = false
end type

on uo_splitter.destroy
call u_splitcontainer_explorer::destroy
end on

type uo_1 from u_sheets_explorer within u_explorer_sample3
integer x = 55
integer y = 576
integer taborder = 20
long #sizeorder = -1
boolean #showborder = true
boolean #usethemecolors = false
boolean #showtabs = false
long #tabstyle = 2
end type

on uo_1.destroy
call u_sheets_explorer::destroy
end on

type tv_1 from u_tv_explorer within u_explorer_sample3
integer x = 37
integer y = 208
integer width = 905
integer taborder = 10
boolean haslines = false
boolean linesatroot = false
boolean fullrowselect = true
long #sizeorder = -1
end type