PBMiner

$PBExportHeader$w_memtest.srw
forward
global type w_memtest from w_main
end type
type uo_sheets from u_sheets_explorer within w_memtest
end type
type tv_1 from u_tv_explorer within w_memtest
end type
type uo_splitter from u_splitcontainer_explorer within w_memtest
end type
type uo_toolbar from u_dwtb_explorer within w_memtest
end type
type cb_1 from commandbutton within w_memtest
end type
type inv_x from n_explorer within w_memtest
end type
end forward

global type w_memtest from w_main
integer height = 1796
string menuname = "m_main"
uo_sheets uo_sheets
tv_1 tv_1
uo_splitter uo_splitter
uo_toolbar uo_toolbar
cb_1 cb_1
inv_x inv_x
end type
global w_memtest w_memtest

on w_memtest.create
int iCurrent
call super::create
if this.MenuName = "m_main" then this.MenuID = create m_main
this.uo_sheets=create uo_sheets
this.tv_1=create tv_1
this.uo_splitter=create uo_splitter
this.uo_toolbar=create uo_toolbar
this.cb_1=create cb_1
this.inv_x=create inv_x
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.uo_sheets
this.Control[iCurrent+2]=this.tv_1
this.Control[iCurrent+3]=this.uo_splitter
this.Control[iCurrent+4]=this.uo_toolbar
this.Control[iCurrent+5]=this.cb_1
end on

on w_memtest.destroy
call super::destroy
if IsValid(MenuID) then destroy(MenuID)
destroy(this.uo_sheets)
destroy(this.tv_1)
destroy(this.uo_splitter)
destroy(this.uo_toolbar)
destroy(this.cb_1)
destroy(this.inv_x)
end on

event ke_postopen;call super::ke_postopen;inv_x.of_Register(tv_1, uo_sheets, uo_toolbar, uo_splitter)
end event

type uo_sheets from u_sheets_explorer within w_memtest
integer x = 1371
integer y = 768
integer taborder = 40
long #sizeorder = -1
end type

on uo_sheets.destroy
call u_sheets_explorer::destroy
end on

type tv_1 from u_tv_explorer within w_memtest
integer x = 165
integer y = 560
integer width = 1061
integer height = 320
integer taborder = 30
long #sizeorder = -1
end type

type uo_splitter from u_splitcontainer_explorer within w_memtest
integer x = 347
integer y = 880
integer taborder = 30
long #sizeorder = 2
boolean #dock = true
long #docktype = 5
string #dock_control_top = "uo_toolbar"
string #lefttopcontrol = "tv_1"
string #rightbottomcontrol = "uo_sheets"
end type

on uo_splitter.destroy
call u_splitcontainer_explorer::destroy
end on

type uo_toolbar from u_dwtb_explorer within w_memtest
integer x = 329
integer y = 256
integer width = 1536
integer height = 160
integer taborder = 20
boolean #dock = true
long #docktype = 1
boolean #largeicons = true
end type

on uo_toolbar.destroy
call u_dwtb_explorer::destroy
end on

type cb_1 from commandbutton within w_memtest
integer x = 55
integer y = 512
integer width = 343
integer height = 92
integer taborder = 30
boolean bringtotop = true
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "none"
end type

event clicked;uo_toolbar.of_ButtonCheck("3", TRUE)
end event

type inv_x from n_explorer within w_memtest descriptor "pb_nvo" = "true" 
string #moduledatastore = "explorer_main"
end type

on inv_x.create
call super::create
end on

on inv_x.destroy
call super::destroy
end on