$PBExportHeader$m_main.srm forward global type m_main from menu end type type m_file from menu within m_main end type type m_open from menu within m_file end type type m_saveas from menu within m_file end type type m_excel8 from menu within m_saveas end type type m_excel12 from menu within m_saveas end type type m_html from menu within m_saveas end type type m_json from menu within m_saveas end type type m_pdf from menu within m_saveas end type type m_psr from menu within m_saveas end type type m_text from menu within m_saveas end type type m_xml from menu within m_saveas end type type m_saveas from menu within m_file m_excel8 m_excel8 m_excel12 m_excel12 m_html m_html m_json m_json m_pdf m_pdf m_psr m_psr m_text m_text m_xml m_xml end type type m_-1 from menu within m_file end type type m_printersetup from menu within m_file end type type m_printchoose from menu within m_file end type type m_print from menu within m_file end type type m_-2 from menu within m_file end type type m_close from menu within m_file end type type m_mostrecent from menu within m_file end type type m_recentfiles from menu within m_file end type type m_-4 from menu within m_file end type type m_exit from menu within m_file end type type m_file from menu within m_main m_open m_open m_saveas m_saveas m_-1 m_-1 m_printersetup m_printersetup m_printchoose m_printchoose m_print m_print m_-2 m_-2 m_close m_close m_mostrecent m_mostrecent m_recentfiles m_recentfiles m_-4 m_-4 m_exit m_exit end type type m_view from menu within m_main end type type m_bigtoolbarbuttons from menu within m_view end type type m_view from menu within m_main m_bigtoolbarbuttons m_bigtoolbarbuttons end type type m_tools from menu within m_main end type type m_clearrecentfiles from menu within m_tools end type type m_registerfiletype from menu within m_tools end type type m_tools from menu within m_main m_clearrecentfiles m_clearrecentfiles m_registerfiletype m_registerfiletype end type type m_window from menu within m_main end type type m_tilevertical from menu within m_window end type type m_tilehorizontal from menu within m_window end type type m_layer from menu within m_window end type type m_cascade from menu within m_window end type type m_closeall from menu within m_window end type type m_window from menu within m_main m_tilevertical m_tilevertical m_tilehorizontal m_tilehorizontal m_layer m_layer m_cascade m_cascade m_closeall m_closeall end type type m_help from menu within m_main end type type m_about from menu within m_help end type type m_help from menu within m_main m_about m_about end type global type m_main from menu m_file m_file m_view m_view m_tools m_tools m_window m_window m_help m_help end type end forward global type m_main from menu m_file m_file m_view m_view m_tools m_tools m_window m_window m_help m_help end type global m_main m_main forward prototypes public subroutine mf_bigtoolbarbuttons (boolean ab_checked) end prototypes public subroutine mf_bigtoolbarbuttons (boolean ab_checked);Application la_app la_app = GetApplication() la_app.ToolbarText = ab_checked m_view.m_bigtoolbarbuttons.checked = ab_checked end subroutine on m_main.create m_main=this call super::create this.text = "m_main" 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 this.m_file=create m_file this.m_view=create m_view this.m_tools=create m_tools this.m_window=create m_window this.m_help=create m_help this.Item[UpperBound(this.Item)+1]=this.m_file this.Item[UpperBound(this.Item)+1]=this.m_view this.Item[UpperBound(this.Item)+1]=this.m_tools this.Item[UpperBound(this.Item)+1]=this.m_window this.Item[UpperBound(this.Item)+1]=this.m_help end on on m_main.destroy call super::destroy destroy(this.m_file) destroy(this.m_view) destroy(this.m_tools) destroy(this.m_window) destroy(this.m_help) end on type m_file from menu within m_main m_open m_open m_saveas m_saveas m_-1 m_-1 m_printersetup m_printersetup m_printchoose m_printchoose m_print m_print m_-2 m_-2 m_close m_close m_mostrecent m_mostrecent m_recentfiles m_recentfiles m_-4 m_-4 m_exit m_exit end type on m_file.create call super::create this.text = "&File" 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 this.m_open=create m_open this.m_saveas=create m_saveas this.m_-1=create m_-1 this.m_printersetup=create m_printersetup this.m_printchoose=create m_printchoose this.m_print=create m_print this.m_-2=create m_-2 this.m_close=create m_close this.m_mostrecent=create m_mostrecent this.m_recentfiles=create m_recentfiles this.m_-4=create m_-4 this.m_exit=create m_exit this.Item[UpperBound(this.Item)+1]=this.m_open this.Item[UpperBound(this.Item)+1]=this.m_saveas this.Item[UpperBound(this.Item)+1]=this.m_-1 this.Item[UpperBound(this.Item)+1]=this.m_printersetup this.Item[UpperBound(this.Item)+1]=this.m_printchoose this.Item[UpperBound(this.Item)+1]=this.m_print this.Item[UpperBound(this.Item)+1]=this.m_-2 this.Item[UpperBound(this.Item)+1]=this.m_close this.Item[UpperBound(this.Item)+1]=this.m_mostrecent this.Item[UpperBound(this.Item)+1]=this.m_recentfiles this.Item[UpperBound(this.Item)+1]=this.m_-4 this.Item[UpperBound(this.Item)+1]=this.m_exit end on on m_file.destroy call super::destroy destroy(this.m_open) destroy(this.m_saveas) destroy(this.m_-1) destroy(this.m_printersetup) destroy(this.m_printchoose) destroy(this.m_print) destroy(this.m_-2) destroy(this.m_close) destroy(this.m_mostrecent) destroy(this.m_recentfiles) destroy(this.m_-4) destroy(this.m_exit) end on type m_open from menu within m_file end type event clicked;w_sheet lw_sheet Integer li_rc String ls_pathname, ls_filename li_rc = GetFileOpenName("Select Powersoft Report", & ls_pathname, ls_filename, "psr", "Powersoft Report Files (*.psr),*.psr") If li_rc = 1 Then OpenSheetWithParm(lw_sheet, ls_pathname, "w_sheet", gw_frame, 0, Layered!) End If end event on m_open.create call super::create this.text = "&Open...~tCtrl+O" this.shortcut = 335 this.microhelp = "Open a report file" this.toolbaritemname = "open!" this.toolbaritemtext = "Open,Open a report file" this.menuimage = "Open!" 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_open.destroy call super::destroy end on type m_saveas from menu within m_file m_excel8 m_excel8 m_excel12 m_excel12 m_html m_html m_json m_json m_pdf m_pdf m_psr m_psr m_text m_text m_xml m_xml end type on m_saveas.create call super::create this.visible = false this.text = "Save As" this.enabled = false 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 this.m_excel8=create m_excel8 this.m_excel12=create m_excel12 this.m_html=create m_html this.m_json=create m_json this.m_pdf=create m_pdf this.m_psr=create m_psr this.m_text=create m_text this.m_xml=create m_xml this.Item[UpperBound(this.Item)+1]=this.m_excel8 this.Item[UpperBound(this.Item)+1]=this.m_excel12 this.Item[UpperBound(this.Item)+1]=this.m_html this.Item[UpperBound(this.Item)+1]=this.m_json this.Item[UpperBound(this.Item)+1]=this.m_pdf this.Item[UpperBound(this.Item)+1]=this.m_psr this.Item[UpperBound(this.Item)+1]=this.m_text this.Item[UpperBound(this.Item)+1]=this.m_xml end on on m_saveas.destroy call super::destroy destroy(this.m_excel8) destroy(this.m_excel12) destroy(this.m_html) destroy(this.m_json) destroy(this.m_pdf) destroy(this.m_psr) destroy(this.m_text) destroy(this.m_xml) end on type m_excel8 from menu within m_saveas end type event clicked;w_sheet lw_sheet lw_sheet = ParentWindow lw_sheet.wf_SaveAs(this.text) end event on m_excel8.create call super::create this.text = "Excel8" this.microhelp = "Save the report data as Excel8 (*.xls)" 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_excel8.destroy call super::destroy end on type m_excel12 from menu within m_saveas end type event clicked;w_sheet lw_sheet lw_sheet = ParentWindow lw_sheet.wf_SaveAs(this.text) end event on m_excel12.create call super::create this.visible = false this.text = "Excel12" this.enabled = false this.microhelp = "Save the report data as Excel12 (*.xlsx)" 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_excel12.destroy call super::destroy end on type m_html from menu within m_saveas end type event clicked;w_sheet lw_sheet lw_sheet = ParentWindow lw_sheet.wf_SaveAs(this.text) end event on m_html.create call super::create this.text = "HTML" this.microhelp = "Save the report data as HTML" 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_html.destroy call super::destroy end on type m_json from menu within m_saveas end type event clicked;w_sheet lw_sheet lw_sheet = ParentWindow lw_sheet.wf_SaveAs(this.text) end event on m_json.create call super::create this.visible = false this.text = "JSON" this.enabled = false this.microhelp = "Save the report data as JSON" 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_json.destroy call super::destroy end on type m_pdf from menu within m_saveas end type event clicked;w_sheet lw_sheet lw_sheet = ParentWindow lw_sheet.wf_SaveAs(this.text) end event on m_pdf.create call super::create this.text = "PDF" this.microhelp = "Save the report as PDF" 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_pdf.destroy call super::destroy end on type m_psr from menu within m_saveas end type event clicked;w_sheet lw_sheet lw_sheet = ParentWindow lw_sheet.wf_SaveAs(this.text) end event on m_psr.create call super::create this.text = "PSR" this.microhelp = "Save the report as PSR" 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_psr.destroy call super::destroy end on type m_text from menu within m_saveas end type event clicked;w_sheet lw_sheet lw_sheet = ParentWindow lw_sheet.wf_SaveAs(this.text) end event on m_text.create call super::create this.text = "Text" this.microhelp = "Save the report data as Tabbed 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_text.destroy call super::destroy end on type m_xml from menu within m_saveas end type event clicked;w_sheet lw_sheet lw_sheet = ParentWindow lw_sheet.wf_SaveAs(this.text) end event on m_xml.create call super::create this.text = "XML" this.microhelp = "Save the report data as XML" 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_xml.destroy call super::destroy end on type m_-1 from menu within m_file end type on m_-1.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_-1.destroy call super::destroy end on type m_printersetup from menu within m_file end type event clicked;PrintSetup() end event on m_printersetup.create call super::create this.text = "Printer Set&up..." this.microhelp = "Set printer options" 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_printersetup.destroy call super::destroy end on type m_printchoose from menu within m_file end type event clicked;w_sheet lw_sheet lw_sheet = ParentWindow lw_sheet.Event PrintReport(True) end event on m_printchoose.create call super::create this.visible = false this.text = "&Print~tCtrl+P" this.enabled = false this.shortcut = 336 this.microhelp = "Print the report" this.toolbaritemvisible = false this.menuimage = "print!" 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_printchoose.destroy call super::destroy end on type m_print from menu within m_file end type event clicked;w_sheet lw_sheet lw_sheet = ParentWindow lw_sheet.Event PrintReport(False) end event on m_print.create call super::create this.visible = false this.text = "Print" this.enabled = false this.microhelp = "Print the report" this.toolbaritemvisible = false this.toolbaritemname = "print!" this.toolbaritemtext = "Print,Print 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_print.destroy call super::destroy end on type m_-2 from menu within m_file end type on m_-2.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_-2.destroy call super::destroy end on type m_close from menu within m_file end type event clicked;Close(this.ParentWindow) end event on m_close.create call super::create this.visible = false this.text = "&Close~tCtrl+W" this.shortcut = 343 this.microhelp = "Close the report window" this.toolbaritemvisible = false this.toolbaritemname = "close!" this.toolbaritemtext = "Close,Close the report window" this.toolbaritemorder = 98 this.menuimage = "close!" 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_close.destroy call super::destroy end on type m_mostrecent from menu within m_file end type event clicked;w_sheet lw_sheet String ls_pathname ls_pathname = gn_mru.of_MostRecentFile() If ls_pathname <> "" Then OpenSheetWithParm(lw_sheet, ls_pathname, "w_sheet", gw_frame, 0, Layered!) End If end event on m_mostrecent.create call super::create this.text = "&Most Recent" this.microhelp = "Open the most recent report file" this.toolbaritemname = "redo!" this.toolbaritemtext = "Most Recent,Open the most recent report file" this.menuimage = "Redo!" 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_mostrecent.destroy call super::destroy end on type m_recentfiles from menu within m_file end type on m_recentfiles.create call super::create this.text = "&Recent Files" this.microhelp = "Open a recent report file" 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_recentfiles.destroy call super::destroy end on type m_-4 from menu within m_file end type on m_-4.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_-4.destroy call super::destroy end on type m_exit from menu within m_file end type event clicked;Close(gw_frame) end event on m_exit.create call super::create this.text = "E&xit~tAlt+F4" this.shortcut = 627 this.microhelp = "Exit the program" this.toolbaritemname = "exit!" this.toolbaritemtext = "Exit,Exit the program" this.toolbaritemorder = 99 this.menuimage = "exit!" 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_exit.destroy call super::destroy end on type m_view from menu within m_main m_bigtoolbarbuttons m_bigtoolbarbuttons event create ( ) event destroy ( ) end type on m_view.create call super::create this.text = "&View" 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 this.m_bigtoolbarbuttons=create m_bigtoolbarbuttons this.Item[UpperBound(this.Item)+1]=this.m_bigtoolbarbuttons end on on m_view.destroy call super::destroy destroy(this.m_bigtoolbarbuttons) end on type m_bigtoolbarbuttons from menu within m_view event create ( ) event destroy ( ) end type on m_bigtoolbarbuttons.create call super::create this.text = "Big Toolbar &Buttons" this.microhelp = "Toggle the toolbar button size" 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_bigtoolbarbuttons.destroy call super::destroy end on event clicked;If this.Checked Then mf_bigtoolbarbuttons(False) gn_app.of_SetReg("Window", "ToolbarText", "false") Else mf_bigtoolbarbuttons(True) gn_app.of_SetReg("Window", "ToolbarText", "true") End If end event type m_tools from menu within m_main m_clearrecentfiles m_clearrecentfiles m_registerfiletype m_registerfiletype end type on m_tools.create call super::create this.text = "&Tools" 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 this.m_clearrecentfiles=create m_clearrecentfiles this.m_registerfiletype=create m_registerfiletype this.Item[UpperBound(this.Item)+1]=this.m_clearrecentfiles this.Item[UpperBound(this.Item)+1]=this.m_registerfiletype end on on m_tools.destroy call super::destroy destroy(this.m_clearrecentfiles) destroy(this.m_registerfiletype) end on type m_clearrecentfiles from menu within m_tools end type event clicked;w_sheet lw_sheet Integer li_rc li_rc = MessageBox(this.Text, & "Do you really want to clear the Recent Files list?", & Question!, YesNo!) If li_rc = 2 Then Return gn_app.of_DelRegKey("MRUList") gn_mru.Reset() gw_frame.wf_RecentFiles() // reset recent files on all sheets lw_sheet = gw_frame.GetFirstSheet() do while IsValid(lw_sheet) lw_sheet.wf_RecentFiles() lw_sheet = gw_frame.GetNextSheet(lw_sheet) loop end event on m_clearrecentfiles.create call super::create this.text = "Clear Recent Files" this.microhelp = "Clear the most recent files list" 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_clearrecentfiles.destroy call super::destroy end on type m_registerfiletype from menu within m_tools end type on m_registerfiletype.create call super::create this.text = "Register File Type" this.microhelp = "Register program to open PSR file type" 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_registerfiletype.destroy call super::destroy end on event clicked;Integer li_rc If gn_app.IsUserAnAdmin() Then li_rc = MessageBox(this.Text, & "Do you really want to register the program to open PSR files?", & Question!, YesNo!) If li_rc = 2 Then Return gn_app.of_RegisterPSR() MessageBox(this.Text, "File Type Registration Complete!") Else MessageBox(this.Text, "This action requires the program to be run as administrator!", StopSign!) End If end event type m_window from menu within m_main m_tilevertical m_tilevertical m_tilehorizontal m_tilehorizontal m_layer m_layer m_cascade m_cascade m_closeall m_closeall end type on m_window.create call super::create this.text = "&Window" 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 this.m_tilevertical=create m_tilevertical this.m_tilehorizontal=create m_tilehorizontal this.m_layer=create m_layer this.m_cascade=create m_cascade this.m_closeall=create m_closeall this.Item[UpperBound(this.Item)+1]=this.m_tilevertical this.Item[UpperBound(this.Item)+1]=this.m_tilehorizontal this.Item[UpperBound(this.Item)+1]=this.m_layer this.Item[UpperBound(this.Item)+1]=this.m_cascade this.Item[UpperBound(this.Item)+1]=this.m_closeall end on on m_window.destroy call super::destroy destroy(this.m_tilevertical) destroy(this.m_tilehorizontal) destroy(this.m_layer) destroy(this.m_cascade) destroy(this.m_closeall) end on type m_tilevertical from menu within m_window end type on m_tilevertical.create call super::create this.text = "Tile &Vertical" this.microhelp = "Arrange all as vertically tiled." this.menuimage = "Tile!" 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_tilevertical.destroy call super::destroy end on event clicked;gw_frame.ArrangeSheets(Tile!) end event type m_tilehorizontal from menu within m_window end type on m_tilehorizontal.create call super::create this.text = "Tile &Horizontal" this.microhelp = "Arrange all as horizontally tiled." this.menuimage = "Horizontal!" 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_tilehorizontal.destroy call super::destroy end on event clicked;gw_frame.ArrangeSheets(TileHorizontal!) end event type m_layer from menu within m_window end type on m_layer.create call super::create this.text = "&Layer" this.microhelp = "Arrange all as layered." this.menuimage = "Layer!" 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_layer.destroy call super::destroy end on event clicked;gw_frame.ArrangeSheets(Layer!) end event type m_cascade from menu within m_window end type on m_cascade.create call super::create this.text = "&Cascade" this.microhelp = "Arrange all as cascaded." this.menuimage = "Cascade!" 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_cascade.destroy call super::destroy end on event clicked;gw_frame.ArrangeSheets(Cascade!) end event type m_closeall from menu within m_window end type event clicked;w_sheet lw_sheet lw_sheet = gw_frame.GetActiveSheet() do while IsValid(lw_sheet) Close(lw_sheet) lw_sheet = gw_frame.GetActiveSheet() loop end event on m_closeall.create call super::create this.text = "Close &All" this.microhelp = "Close all report windows" this.menuimage = "Custom009!" 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_closeall.destroy call super::destroy end on type m_help from menu within m_main m_about m_about end type on m_help.create call super::create this.text = "&Help" 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 this.m_about=create m_about this.Item[UpperBound(this.Item)+1]=this.m_about end on on m_help.destroy call super::destroy destroy(this.m_about) end on type m_about from menu within m_help end type event clicked;MessageBox("PSR Viewer", "Topwiz Software © 2019-2023") end event on m_about.create call super::create this.text = "&About" this.microhelp = "&About the program" 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_about.destroy call super::destroy end on
File: m_main.srm
Size: 36732
Date: Wed, 22 Mar 2023 22:00:46 +0100
Size: 36732
Date: Wed, 22 Mar 2023 22:00:46 +0100
- menu m_main(srm)
- menu m_file
- menu m_open
- menu m_saveas
- menu m_-1
- menu m_printersetup
- menu m_printchoose
- menu m_print
- menu m_-2
- menu m_close
- menu m_mostrecent
- menu m_recentfiles
- menu m_-4
- menu m_exit
- menu m_view
- menu m_bigtoolbarbuttons
- menu m_tools
- menu m_window
- menu m_help
- menu m_file