PBMiner

$PBExportHeader$m_sheet.srm
forward
global type m_sheet from m_main
end type
type m_- from menu within m_view
end type
type m_sort from menu within m_view
end type
type m_filter from menu within m_view
end type
type m_zoom from menu within m_view
end type
type m_-20 from menu within m_view
end type
type m_firstpage from menu within m_view
end type
type m_nextpage from menu within m_view
end type
type m_priorpage from menu within m_view
end type
type m_lastpage from menu within m_view
end type
type m_view from m_main`m_view within m_sheet
m_- m_-
m_sort m_sort
m_filter m_filter
m_zoom m_zoom
m_-20 m_-20
m_firstpage m_firstpage
m_nextpage m_nextpage
m_priorpage m_priorpage
m_lastpage m_lastpage
end type
end forward

global type m_sheet from m_main
end type
global m_sheet m_sheet

on m_sheet.create
m_sheet=this
call super::create
end on

on m_sheet.destroy
call super::destroy
end on

type m_file from m_main`m_file within m_sheet
end type

on m_file.create
call super::create
end on

on m_file.destroy
call super::destroy
end on

type m_open from m_main`m_open within m_file
end type

on m_open.create
call super::create
end on

on m_open.destroy
call super::destroy
end on

type m_saveas from m_main`m_saveas within m_file
end type

on m_saveas.create
call super::create
this.visible = true
this.enabled = true
end on

on m_saveas.destroy
call super::destroy
end on

type m_excel8 from m_main`m_excel8 within m_saveas
end type

on m_excel8.create
call super::create
end on

on m_excel8.destroy
call super::destroy
end on

type m_excel12 from m_main`m_excel12 within m_saveas
end type

on m_excel12.create
call super::create
end on

on m_excel12.destroy
call super::destroy
end on

type m_html from m_main`m_html within m_saveas
end type

on m_html.create
call super::create
end on

on m_html.destroy
call super::destroy
end on

type m_json from m_main`m_json within m_saveas
end type

on m_json.create
call super::create
end on

on m_json.destroy
call super::destroy
end on

type m_pdf from m_main`m_pdf within m_saveas
end type

on m_pdf.create
call super::create
end on

on m_pdf.destroy
call super::destroy
end on

type m_text from m_main`m_text within m_saveas
end type

on m_text.create
call super::create
end on

on m_text.destroy
call super::destroy
end on

type m_xml from m_main`m_xml within m_saveas
end type

on m_xml.create
call super::create
end on

on m_xml.destroy
call super::destroy
end on

type m_-1 from m_main`m_-1 within m_file
end type

on m_-1.create
call super::create
end on

on m_-1.destroy
call super::destroy
end on

type m_printersetup from m_main`m_printersetup within m_file
end type

on m_printersetup.create
call super::create
end on

on m_printersetup.destroy
call super::destroy
end on

type m_printchoose from m_main`m_printchoose within m_file
end type

on m_printchoose.create
call super::create
this.visible = true
this.enabled = true
end on

on m_printchoose.destroy
call super::destroy
end on

type m_print from m_main`m_print within m_file
end type

on m_print.create
call super::create
this.enabled = true
this.toolbaritemvisible = true
end on

on m_print.destroy
call super::destroy
end on

type m_-2 from m_main`m_-2 within m_file
end type

on m_-2.create
call super::create
end on

on m_-2.destroy
call super::destroy
end on

type m_close from m_main`m_close within m_file
end type

on m_close.create
call super::create
this.visible = true
this.toolbaritemvisible = true
end on

on m_close.destroy
call super::destroy
end on

type m_mostrecent from m_main`m_mostrecent within m_file
end type

on m_mostrecent.create
call super::create
end on

on m_mostrecent.destroy
call super::destroy
end on

type m_recentfiles from m_main`m_recentfiles within m_file
end type

on m_recentfiles.create
call super::create
end on

on m_recentfiles.destroy
call super::destroy
end on

type m_-4 from m_main`m_-4 within m_file
end type

on m_-4.create
call super::create
end on

on m_-4.destroy
call super::destroy
end on

type m_exit from m_main`m_exit within m_file
end type

on m_exit.create
call super::create
end on

on m_exit.destroy
call super::destroy
end on

type m_view from m_main`m_view within m_sheet
m_- m_-
m_sort m_sort
m_filter m_filter
m_zoom m_zoom
m_-20 m_-20
m_firstpage m_firstpage
m_nextpage m_nextpage
m_priorpage m_priorpage
m_lastpage m_lastpage
end type

on m_view.create
call super::create
this.m_-=create m_-
this.m_sort=create m_sort
this.m_filter=create m_filter
this.m_zoom=create m_zoom
this.m_-20=create m_-20
this.m_firstpage=create m_firstpage
this.m_nextpage=create m_nextpage
this.m_priorpage=create m_priorpage
this.m_lastpage=create m_lastpage
this.Item[UpperBound(this.Item)+1]=this.m_-
this.Item[UpperBound(this.Item)+1]=this.m_sort
this.Item[UpperBound(this.Item)+1]=this.m_filter
this.Item[UpperBound(this.Item)+1]=this.m_zoom
this.Item[UpperBound(this.Item)+1]=this.m_-20
this.Item[UpperBound(this.Item)+1]=this.m_firstpage
this.Item[UpperBound(this.Item)+1]=this.m_nextpage
this.Item[UpperBound(this.Item)+1]=this.m_priorpage
this.Item[UpperBound(this.Item)+1]=this.m_lastpage
end on

on m_view.destroy
call super::destroy
destroy(this.m_-)
destroy(this.m_sort)
destroy(this.m_filter)
destroy(this.m_zoom)
destroy(this.m_-20)
destroy(this.m_firstpage)
destroy(this.m_nextpage)
destroy(this.m_priorpage)
destroy(this.m_lastpage)
end on

type m_bigtoolbarbuttons from m_main`m_bigtoolbarbuttons within m_view
end type

on m_bigtoolbarbuttons.create
call super::create
end on

on m_bigtoolbarbuttons.destroy
call super::destroy
end on

type m_tools from m_main`m_tools within m_sheet
end type

on m_tools.create
call super::create
end on

on m_tools.destroy
call super::destroy
end on

type m_clearrecentfiles from m_main`m_clearrecentfiles within m_tools
end type

on m_clearrecentfiles.create
call super::create
end on

on m_clearrecentfiles.destroy
call super::destroy
end on

type m_registerfiletype from m_main`m_registerfiletype within m_tools
end type

on m_registerfiletype.create
call super::create
end on

on m_registerfiletype.destroy
call super::destroy
end on

type m_window from m_main`m_window within m_sheet
end type

on m_window.create
call super::create
end on

on m_window.destroy
call super::destroy
end on

type m_tilevertical from m_main`m_tilevertical within m_window
end type

on m_tilevertical.create
call super::create
end on

on m_tilevertical.destroy
call super::destroy
end on

type m_tilehorizontal from m_main`m_tilehorizontal within m_window
end type

on m_tilehorizontal.create
call super::create
end on

on m_tilehorizontal.destroy
call super::destroy
end on

type m_layer from m_main`m_layer within m_window
end type

on m_layer.create
call super::create
end on

on m_layer.destroy
call super::destroy
end on

type m_cascade from m_main`m_cascade within m_window
end type

on m_cascade.create
call super::create
end on

on m_cascade.destroy
call super::destroy
end on

type m_closeall from m_main`m_closeall within m_window
end type

on m_closeall.create
call super::create
end on

on m_closeall.destroy
call super::destroy
end on

type m_help from m_main`m_help within m_sheet
end type

on m_help.create
call super::create
end on

on m_help.destroy
call super::destroy
end on

type m_about from m_main`m_about within m_help
end type

on m_about.create
call super::create
end on

on m_about.destroy
call super::destroy
end on

type m_- from menu within m_view
end type

on m_-.create
call super::create
this.text = "-"
this.menustyle = contemporarymenu!
this.menutextcolor = 134217735
this.menubackcolor = 134217732
this.menuhighlightcolor = 134217741
this.textsize = 8
this.weight = 400
this.facename = "Tahoma"
this.titlebackcolor = 134217730
this.bitmapbackcolor = 12632256
this.menubitmaps = true
this.titlegradient = true
this.toolbartextcolor = 134217746
this.toolbarbackcolor = 67108864
this.toolbarhighlightcolor = 134217741
this.toolbargradient = true
this.bitmapgradient = true
end on

on m_-.destroy
call super::destroy
end on

type m_sort from menu within m_view
end type

on m_sort.create
call super::create
this.text = "&Sort...~tAlt+S"
this.shortcut = 595
this.microhelp = "Sort the report"
this.menustyle = contemporarymenu!
this.menutextcolor = 134217735
this.menubackcolor = 134217732
this.menuhighlightcolor = 134217741
this.textsize = 8
this.weight = 400
this.facename = "Tahoma"
this.titlebackcolor = 134217730
this.bitmapbackcolor = 12632256
this.menubitmaps = true
this.titlegradient = true
this.toolbartextcolor = 134217746
this.toolbarbackcolor = 67108864
this.toolbarhighlightcolor = 134217741
this.toolbargradient = true
this.bitmapgradient = true
end on

on m_sort.destroy
call super::destroy
end on

event clicked;ParentWindow.TriggerEvent(this.ClassName())

end event

type m_filter from menu within m_view
end type

on m_filter.create
call super::create
this.text = "&Filter...~tAlt+F"
this.shortcut = 582
this.microhelp = "Filter the report"
this.menustyle = contemporarymenu!
this.menutextcolor = 134217735
this.menubackcolor = 134217732
this.menuhighlightcolor = 134217741
this.textsize = 8
this.weight = 400
this.facename = "Tahoma"
this.titlebackcolor = 134217730
this.bitmapbackcolor = 12632256
this.menubitmaps = true
this.titlegradient = true
this.toolbartextcolor = 134217746
this.toolbarbackcolor = 67108864
this.toolbarhighlightcolor = 134217741
this.toolbargradient = true
this.bitmapgradient = true
end on

on m_filter.destroy
call super::destroy
end on

event clicked;ParentWindow.TriggerEvent(this.ClassName())

end event

type m_zoom from menu within m_view
end type

on m_zoom.create
call super::create
this.text = "&Zoom...~tAlt+Z"
this.shortcut = 602
this.microhelp = "Zoom the report"
this.menustyle = contemporarymenu!
this.menutextcolor = 134217735
this.menubackcolor = 134217732
this.menuhighlightcolor = 134217741
this.textsize = 8
this.weight = 400
this.facename = "Tahoma"
this.titlebackcolor = 134217730
this.bitmapbackcolor = 12632256
this.menubitmaps = true
this.titlegradient = true
this.toolbartextcolor = 134217746
this.toolbarbackcolor = 67108864
this.toolbarhighlightcolor = 134217741
this.toolbargradient = true
this.bitmapgradient = true
end on

on m_zoom.destroy
call super::destroy
end on

event clicked;ParentWindow.TriggerEvent(this.ClassName())

end event

type m_-20 from menu within m_view
end type

on m_-20.create
call super::create
this.text = "-"
this.menustyle = contemporarymenu!
this.menutextcolor = 134217735
this.menubackcolor = 134217732
this.menuhighlightcolor = 134217741
this.textsize = 8
this.weight = 400
this.facename = "Tahoma"
this.titlebackcolor = 134217730
this.bitmapbackcolor = 12632256
this.menubitmaps = true
this.titlegradient = true
this.toolbartextcolor = 134217746
this.toolbarbackcolor = 67108864
this.toolbarhighlightcolor = 134217741
this.toolbargradient = true
this.bitmapgradient = true
end on

on m_-20.destroy
call super::destroy
end on

type m_firstpage from menu within m_view
end type

event clicked;ParentWindow.TriggerEvent(this.ClassName())

end event

on m_firstpage.create
call super::create
this.text = "First Page~tCtrl+Shift+F"
this.shortcut = 1350
this.microhelp = "Scroll to the first page"
this.toolbaritemname = "vcrfirst!"
this.toolbaritemtext = "First Page,Scroll to the first page"
this.menuimage = "VCRFirst!"
this.menustyle = contemporarymenu!
this.menutextcolor = 134217735
this.menubackcolor = 134217732
this.menuhighlightcolor = 134217741
this.textsize = 8
this.weight = 400
this.facename = "Tahoma"
this.titlebackcolor = 134217730
this.bitmapbackcolor = 12632256
this.menubitmaps = true
this.titlegradient = true
this.toolbartextcolor = 134217746
this.toolbarbackcolor = 67108864
this.toolbarhighlightcolor = 134217741
this.toolbargradient = true
this.bitmapgradient = true
end on

on m_firstpage.destroy
call super::destroy
end on

type m_nextpage from menu within m_view
end type

event clicked;ParentWindow.TriggerEvent(this.ClassName())

end event

on m_nextpage.create
call super::create
this.text = "Next Page~tCtrl+Shift+N"
this.shortcut = 1358
this.microhelp = "Scroll to the next page"
this.toolbaritemname = "vcrnext!"
this.toolbaritemtext = "Next Page,Scroll to the next page"
this.menuimage = "VCRNext!"
this.menustyle = contemporarymenu!
this.menutextcolor = 134217735
this.menubackcolor = 134217732
this.menuhighlightcolor = 134217741
this.textsize = 8
this.weight = 400
this.facename = "Tahoma"
this.titlebackcolor = 134217730
this.bitmapbackcolor = 12632256
this.menubitmaps = true
this.titlegradient = true
this.toolbartextcolor = 134217746
this.toolbarbackcolor = 67108864
this.toolbarhighlightcolor = 134217741
this.toolbargradient = true
this.bitmapgradient = true
end on

on m_nextpage.destroy
call super::destroy
end on

type m_priorpage from menu within m_view
end type

event clicked;ParentWindow.TriggerEvent(this.ClassName())

end event

on m_priorpage.create
call super::create
this.text = "Prior Page~tCtrl+Shift+P"
this.shortcut = 1360
this.microhelp = "Scroll to the prior page"
this.toolbaritemname = "vcrprior!"
this.toolbaritemtext = "Prior Page,Scroll to the prior page"
this.menuimage = "VCRPrior!"
this.menustyle = contemporarymenu!
this.menutextcolor = 134217735
this.menubackcolor = 134217732
this.menuhighlightcolor = 134217741
this.textsize = 8
this.weight = 400
this.facename = "Tahoma"
this.titlebackcolor = 134217730
this.bitmapbackcolor = 12632256
this.menubitmaps = true
this.titlegradient = true
this.toolbartextcolor = 134217746
this.toolbarbackcolor = 67108864
this.toolbarhighlightcolor = 134217741
this.toolbargradient = true
this.bitmapgradient = true
end on

on m_priorpage.destroy
call super::destroy
end on

type m_lastpage from menu within m_view
end type

event clicked;ParentWindow.TriggerEvent(this.ClassName())

end event

on m_lastpage.create
call super::create
this.text = "Last Page~tCtrl+Shift+L"
this.shortcut = 1356
this.microhelp = "Scroll to the last page"
this.toolbaritemname = "vcrlast!"
this.toolbaritemtext = "Last Page,Scroll to the last page"
this.menuimage = "VCRLast!"
this.menustyle = contemporarymenu!
this.menutextcolor = 134217735
this.menubackcolor = 134217732
this.menuhighlightcolor = 134217741
this.textsize = 8
this.weight = 400
this.facename = "Tahoma"
this.titlebackcolor = 134217730
this.bitmapbackcolor = 12632256
this.menubitmaps = true
this.titlegradient = true
this.toolbartextcolor = 134217746
this.toolbarbackcolor = 67108864
this.toolbarhighlightcolor = 134217741
this.toolbargradient = true
this.bitmapgradient = true
end on

on m_lastpage.destroy
call super::destroy
end on