HA$PBExportHeader$m_peat_master.srm $PBExportComments$The master menu use for all sheets in PEAT forward global type m_peat_master from m_master end type type m_project from menu within m_peat_master end type type m_information from menu within m_project end type type m_estimate from menu within m_project end type type m_actual from menu within m_project end type type m_project from menu within m_peat_master m_information m_information m_estimate m_estimate m_actual m_actual end type type m_report from menucascade within m_peat_master end type type m_projectestimation from menu within m_report end type type m_projectanalyzer from menu within m_report end type type m_report from menucascade within m_peat_master m_projectestimation m_projectestimation m_projectanalyzer m_projectanalyzer end type global type m_peat_master from m_master m_project m_project m_report m_report end type end forward global type m_peat_master from m_master m_project m_project m_report m_report end type global m_peat_master m_peat_master on m_peat_master.create m_peat_master=this call super::create this.m_project=create m_project this.m_report=create m_report this.Item[UpperBound(this.Item)+1]=this.m_project this.Item[UpperBound(this.Item)+1]=this.m_report end on on m_peat_master.destroy call super::destroy destroy(this.m_project) destroy(this.m_report) end on type m_file from m_master`m_file within m_peat_master end type on m_file.create call super::create end on on m_file.destroy call super::destroy end on type m_new from m_master`m_new within m_file end type on m_new.create call super::create this.text = "&New...~tCtrl+N" this.toolbaritemtext = "New,New Project Wizard" this.toolbaritemorder = 1 end on on m_new.destroy call super::destroy end on type m_open from m_master`m_open within m_file end type on m_open.create call super::create this.text = "&Open~tCtrl+O" this.enabled = false this.toolbaritemvisible = false this.toolbaritemorder = 1 end on on m_open.destroy call super::destroy end on type m_close from m_master`m_close within m_file end type on m_close.create call super::create end on on m_close.destroy call super::destroy end on type m_dash11 from m_master`m_dash11 within m_file end type on m_dash11.create call super::create this.visible = false end on on m_dash11.destroy call super::destroy end on type m_save from m_master`m_save within m_file end type on m_save.create call super::create this.visible = false this.enabled = false this.toolbaritemvisible = false end on on m_save.destroy call super::destroy end on type m_saveas from m_master`m_saveas within m_file end type on m_saveas.create call super::create this.visible = false this.enabled = false end on on m_saveas.destroy call super::destroy end on type m_dash12 from m_master`m_dash12 within m_file end type on m_dash12.create call super::create this.visible = false end on on m_dash12.destroy call super::destroy end on type m_print from m_master`m_print within m_file end type on m_print.create call super::create this.visible = false this.enabled = false this.toolbaritemvisible = false end on on m_print.destroy call super::destroy end on type m_printpreview from m_master`m_printpreview within m_file end type on m_printpreview.create call super::create this.visible = false this.enabled = false this.toolbaritemvisible = false end on on m_printpreview.destroy call super::destroy end on type m_pagesetup from m_master`m_pagesetup within m_file end type on m_pagesetup.create call super::create this.visible = false this.enabled = false this.toolbaritemvisible = false end on on m_pagesetup.destroy call super::destroy end on type m_printimmediate from m_master`m_printimmediate within m_file end type on m_printimmediate.create call super::create this.toolbaritemvisible = false end on on m_printimmediate.destroy call super::destroy end on type m_dash13 from m_master`m_dash13 within m_file end type on m_dash13.create call super::create this.visible = true end on on m_dash13.destroy call super::destroy end on type m_delete from m_master`m_delete within m_file end type on m_delete.create call super::create this.visible = true this.text = "&Delete...~tCtrl+D" this.enabled = true this.toolbaritemvisible = true this.toolbaritemtext = "Delete,Delete Project" this.toolbaritemorder = 2 this.toolbaritemspace = 0 end on event m_delete::clicked;call super::clicked;SetPointer(HourGlass!) of_SendMessage("peat_delete") end event on m_delete.destroy call super::destroy end on type m_properties from m_master`m_properties within m_file end type on m_properties.create call super::create end on on m_properties.destroy call super::destroy end on type m_dash14 from m_master`m_dash14 within m_file end type on m_dash14.create call super::create end on on m_dash14.destroy call super::destroy end on type m_exit from m_master`m_exit within m_file end type on m_exit.create call super::create this.toolbaritemvisible = true this.toolbaritemspace = 0 end on on m_exit.destroy call super::destroy end on type m_pfcmrudash1 from m_master`m_pfcmrudash1 within m_file end type on m_pfcmrudash1.create call super::create end on on m_pfcmrudash1.destroy call super::destroy end on type m_pfcmru1 from m_master`m_pfcmru1 within m_file end type on m_pfcmru1.create call super::create end on on m_pfcmru1.destroy call super::destroy end on type m_pfcmru2 from m_master`m_pfcmru2 within m_file end type on m_pfcmru2.create call super::create end on on m_pfcmru2.destroy call super::destroy end on type m_pfcmru3 from m_master`m_pfcmru3 within m_file end type on m_pfcmru3.create call super::create end on on m_pfcmru3.destroy call super::destroy end on type m_pfcmru4 from m_master`m_pfcmru4 within m_file end type on m_pfcmru4.create call super::create end on on m_pfcmru4.destroy call super::destroy end on type m_pfcmru5 from m_master`m_pfcmru5 within m_file end type on m_pfcmru5.create call super::create end on on m_pfcmru5.destroy call super::destroy end on type m_edit from m_master`m_edit within m_peat_master end type on m_edit.create call super::create this.visible = false this.enabled = false end on on m_edit.destroy call super::destroy end on type m_undo from m_master`m_undo within m_edit end type on m_undo.create call super::create this.toolbaritemname = "" end on on m_undo.destroy call super::destroy end on type m_dash21 from m_master`m_dash21 within m_edit end type on m_dash21.create call super::create end on on m_dash21.destroy call super::destroy end on type m_cut from m_master`m_cut within m_edit end type on m_cut.create call super::create this.toolbaritemname = "" end on on m_cut.destroy call super::destroy end on type m_copy from m_master`m_copy within m_edit end type on m_copy.create call super::create this.toolbaritemname = "" end on on m_copy.destroy call super::destroy end on type m_paste from m_master`m_paste within m_edit end type on m_paste.create call super::create this.toolbaritemname = "" end on on m_paste.destroy call super::destroy end on type m_pastespecial from m_master`m_pastespecial within m_edit end type on m_pastespecial.create call super::create end on on m_pastespecial.destroy call super::destroy end on type m_clear from m_master`m_clear within m_edit end type on m_clear.create call super::create this.toolbaritemname = "" end on on m_clear.destroy call super::destroy end on type m_dash22 from m_master`m_dash22 within m_edit end type on m_dash22.create call super::create end on on m_dash22.destroy call super::destroy end on type m_selectall from m_master`m_selectall within m_edit end type on m_selectall.create call super::create this.toolbaritemname = "" end on on m_selectall.destroy call super::destroy end on type m_dash23 from m_master`m_dash23 within m_edit end type on m_dash23.create call super::create end on on m_dash23.destroy call super::destroy end on type m_find from m_master`m_find within m_edit end type on m_find.create call super::create this.toolbaritemname = "" end on on m_find.destroy call super::destroy end on type m_replace from m_master`m_replace within m_edit end type on m_replace.create call super::create this.toolbaritemname = "" end on on m_replace.destroy call super::destroy end on type m_dash24 from m_master`m_dash24 within m_edit end type on m_dash24.create call super::create end on on m_dash24.destroy call super::destroy end on type m_updatelinks from m_master`m_updatelinks within m_edit end type on m_updatelinks.create call super::create end on on m_updatelinks.destroy call super::destroy end on type m_object1 from m_master`m_object1 within m_edit end type on m_object1.create call super::create end on on m_object1.destroy call super::destroy end on type m_edit1 from m_master`m_edit1 within m_object1 end type on m_edit1.create call super::create end on on m_edit1.destroy call super::destroy end on type m_open1 from m_master`m_open1 within m_object1 end type on m_open1.create call super::create end on on m_open1.destroy call super::destroy end on type m_view from m_master`m_view within m_peat_master end type on m_view.create call super::create this.visible = false this.enabled = false end on on m_view.destroy call super::destroy end on type m_ruler from m_master`m_ruler within m_view end type on m_ruler.create call super::create end on on m_ruler.destroy call super::destroy end on type m_dash31 from m_master`m_dash31 within m_view end type on m_dash31.create call super::create end on on m_dash31.destroy call super::destroy end on type m_largeicon from m_master`m_largeicon within m_view end type on m_largeicon.create call super::create end on on m_largeicon.destroy call super::destroy end on type m_smallicons from m_master`m_smallicons within m_view end type on m_smallicons.create call super::create end on on m_smallicons.destroy call super::destroy end on type m_list from m_master`m_list within m_view end type on m_list.create call super::create end on on m_list.destroy call super::destroy end on type m_details from m_master`m_details within m_view end type on m_details.create call super::create end on on m_details.destroy call super::destroy end on type m_dash32 from m_master`m_dash32 within m_view end type on m_dash32.create call super::create end on on m_dash32.destroy call super::destroy end on type m_arrangeicons from m_master`m_arrangeicons within m_view end type on m_arrangeicons.create call super::create end on on m_arrangeicons.destroy call super::destroy end on type m_by1 from m_master`m_by1 within m_arrangeicons end type on m_by1.create call super::create end on on m_by1.destroy call super::destroy end on type m_dash33 from m_master`m_dash33 within m_arrangeicons end type on m_dash33.create call super::create end on on m_dash33.destroy call super::destroy end on type m_autoarrange from m_master`m_autoarrange within m_arrangeicons end type on m_autoarrange.create call super::create end on on m_autoarrange.destroy call super::destroy end on type m_dash34 from m_master`m_dash34 within m_view end type on m_dash34.create call super::create end on on m_dash34.destroy call super::destroy end on type m_first from m_master`m_first within m_view end type on m_first.create call super::create end on on m_first.destroy call super::destroy end on type m_priorpage from m_master`m_priorpage within m_view end type on m_priorpage.create call super::create end on on m_priorpage.destroy call super::destroy end on type m_nextpage from m_master`m_nextpage within m_view end type on m_nextpage.create call super::create end on on m_nextpage.destroy call super::destroy end on type m_lastpage from m_master`m_lastpage within m_view end type on m_lastpage.create call super::create end on on m_lastpage.destroy call super::destroy end on type m_dash35 from m_master`m_dash35 within m_view end type on m_dash35.create call super::create end on on m_dash35.destroy call super::destroy end on type m_sort from m_master`m_sort within m_view end type on m_sort.create call super::create end on on m_sort.destroy call super::destroy end on type m_filter from m_master`m_filter within m_view end type on m_filter.create call super::create end on on m_filter.destroy call super::destroy end on type m_dash36 from m_master`m_dash36 within m_view end type on m_dash36.create call super::create end on on m_dash36.destroy call super::destroy end on type m_zoom from m_master`m_zoom within m_view end type on m_zoom.create call super::create end on on m_zoom.destroy call super::destroy end on type m_insert from m_master`m_insert within m_peat_master end type on m_insert.create call super::create this.visible = false this.enabled = false end on on m_insert.destroy call super::destroy end on type m_insertfile from m_master`m_insertfile within m_insert end type on m_insertfile.create call super::create end on on m_insertfile.destroy call super::destroy end on type m_picture from m_master`m_picture within m_insert end type on m_picture.create call super::create end on on m_picture.destroy call super::destroy end on type m_dash41 from m_master`m_dash41 within m_insert end type on m_dash41.create call super::create end on on m_dash41.destroy call super::destroy end on type m_object from m_master`m_object within m_insert end type on m_object.create call super::create end on on m_object.destroy call super::destroy end on type m_tools from m_master`m_tools within m_peat_master end type on m_tools.create call super::create this.visible = false this.enabled = false end on on m_tools.destroy call super::destroy end on type m_toolbars from m_master`m_toolbars within m_tools end type on m_toolbars.create call super::create end on on m_toolbars.destroy call super::destroy end on type m_window from m_master`m_window within m_peat_master end type on m_window.create call super::create end on on m_window.destroy call super::destroy end on type m_cascade from m_master`m_cascade within m_window end type on m_cascade.create call super::create this.toolbaritemname = "" end on on m_cascade.destroy call super::destroy end on type m_tilehorizontal from m_master`m_tilehorizontal within m_window end type on m_tilehorizontal.create call super::create this.toolbaritemname = "" end on on m_tilehorizontal.destroy call super::destroy end on type m_tilevertical from m_master`m_tilevertical within m_window end type on m_tilevertical.create call super::create this.toolbaritemname = "" end on on m_tilevertical.destroy call super::destroy end on type m_layer from m_master`m_layer within m_window end type on m_layer.create call super::create this.toolbaritemname = "" end on on m_layer.destroy call super::destroy end on type m_dash51 from m_master`m_dash51 within m_window end type on m_dash51.create call super::create this.visible = false end on on m_dash51.destroy call super::destroy end on type m_minimizeall from m_master`m_minimizeall within m_window end type on m_minimizeall.create call super::create this.visible = false this.enabled = false end on on m_minimizeall.destroy call super::destroy end on type m_undoarrange from m_master`m_undoarrange within m_window end type on m_undoarrange.create call super::create this.visible = false this.enabled = false end on on m_undoarrange.destroy call super::destroy end on type m_help from m_master`m_help within m_peat_master end type on m_help.create call super::create end on on m_help.destroy call super::destroy end on type m_helptopics from m_master`m_helptopics within m_help end type on m_helptopics.create call super::create this.visible = false this.enabled = false this.toolbaritemspace = 3 end on on m_helptopics.destroy call super::destroy end on type m_dash61 from m_master`m_dash61 within m_help end type on m_dash61.create call super::create this.visible = false end on on m_dash61.destroy call super::destroy end on type m_about from m_master`m_about within m_help end type on m_about.create call super::create this.text = "&About..." this.toolbaritemname = "Help!" this.toolbaritemtext = "About, About PEAT" this.toolbaritemorder = 256 this.toolbaritemspace = 3 end on on m_about.destroy call super::destroy end on type m_project from menu within m_peat_master m_information m_information m_estimate m_estimate m_actual m_actual end type on m_project.create call super::create this.text = "&Project" this.toolbaritemorder = 2 this.toolbaritemspace = 3 this.m_information=create m_information this.m_estimate=create m_estimate this.m_actual=create m_actual this.Item[UpperBound(this.Item)+1]=this.m_information this.Item[UpperBound(this.Item)+1]=this.m_estimate this.Item[UpperBound(this.Item)+1]=this.m_actual end on on m_project.destroy call super::destroy destroy(this.m_information) destroy(this.m_estimate) destroy(this.m_actual) end on type m_information from menu within m_project end type on m_information.create call super::create this.text = "&Information.." this.microhelp = "Run the Project Wizard window" this.toolbaritemname = "Project!" this.toolbaritemtext = "Properties,Project Information" this.toolbaritemorder = 3 this.toolbaritemspace = 3 end on event clicked;SetPointer(HourGlass!) of_SendMessage("peat_properties") end event on m_information.destroy call super::destroy end on type m_estimate from menu within m_project end type on m_estimate.create call super::create this.text = "&Estimate..." this.microhelp = "Enter estimate information on the current project" this.toolbaritemname = "Custom087!" this.toolbaritemtext = "Estimate,Project Estimate" this.toolbaritemorder = 4 end on event clicked;SetPointer(HourGlass!) of_SendMessage("peat_estimate") end event on m_estimate.destroy call super::destroy end on type m_actual from menu within m_project end type on m_actual.create call super::create this.text = "&Actual..." this.microhelp = "Enter actual information on the current project" this.toolbaritemname = "Custom038!" this.toolbaritemtext = "Actual,Project Actual" this.toolbaritemorder = 5 end on event clicked;SetPointer(HourGlass!) of_SendMessage("peat_actual") end event on m_actual.destroy call super::destroy end on type m_report from menucascade within m_peat_master m_projectestimation m_projectestimation m_projectanalyzer m_projectanalyzer end type on m_report.create call super::create this.text = "&Report" this.toolbaritemtext = "Reports,Run Reports" this.toolbaritemorder = 6 this.toolbaritemspace = 3 this.m_projectestimation=create m_projectestimation this.m_projectanalyzer=create m_projectanalyzer this.Item[UpperBound(this.Item)+1]=this.m_projectestimation this.Item[UpperBound(this.Item)+1]=this.m_projectanalyzer end on on m_report.destroy call super::destroy destroy(this.m_projectestimation) destroy(this.m_projectanalyzer) end on type m_projectestimation from menu within m_report end type event clicked;SetPointer(HourGlass!) of_SendMessage("peat_report") end event on m_projectestimation.create call super::create this.text = "Project Estimation..." this.microhelp = "Run Project Estimation Report" this.toolbaritemname = "DosEdit!" this.toolbaritemtext = "Estimate, Project Estimation Report" end on on m_projectestimation.destroy call super::destroy end on type m_projectanalyzer from menu within m_report end type event clicked;SetPointer(HourGlass!) of_SendMessage("peat_analyzer") end event on m_projectanalyzer.create call super::create this.text = "Project Analyzer..." this.microhelp = "Run Project Analyzer Report" this.toolbaritemname = "EditDataFreeform!" this.toolbaritemtext = "Analyzer,Project Analyzer Report" end on on m_projectanalyzer.destroy call super::destroy end on
File: m_peat_master.srm
Size: 20897
Date: Sat, 23 Mar 2013 16:23:01 +0100
Size: 20897
Date: Sat, 23 Mar 2013 16:23:01 +0100
- m_master m_peat_master(srm)
- m_master`m_file m_file
- m_master`m_new m_new
- m_master`m_open m_open
- m_master`m_close m_close
- m_master`m_dash11 m_dash11
- m_master`m_save m_save
- m_master`m_saveas m_saveas
- m_master`m_dash12 m_dash12
- m_master`m_print m_print
- m_master`m_printpreview m_printpreview
- m_master`m_pagesetup m_pagesetup
- m_master`m_printimmediate m_printimmediate
- m_master`m_dash13 m_dash13
- m_master`m_delete m_delete
- m_master`m_properties m_properties
- m_master`m_dash14 m_dash14
- m_master`m_exit m_exit
- m_master`m_pfcmrudash1 m_pfcmrudash1
- m_master`m_pfcmru1 m_pfcmru1
- m_master`m_pfcmru2 m_pfcmru2
- m_master`m_pfcmru3 m_pfcmru3
- m_master`m_pfcmru4 m_pfcmru4
- m_master`m_pfcmru5 m_pfcmru5
- m_master`m_edit m_edit
- m_master`m_undo m_undo
- m_master`m_dash21 m_dash21
- m_master`m_cut m_cut
- m_master`m_copy m_copy
- m_master`m_paste m_paste
- m_master`m_pastespecial m_pastespecial
- m_master`m_clear m_clear
- m_master`m_dash22 m_dash22
- m_master`m_selectall m_selectall
- m_master`m_dash23 m_dash23
- m_master`m_find m_find
- m_master`m_replace m_replace
- m_master`m_dash24 m_dash24
- m_master`m_updatelinks m_updatelinks
- m_master`m_object1 m_object1
- m_master`m_view m_view
- m_master`m_ruler m_ruler
- m_master`m_dash31 m_dash31
- m_master`m_largeicon m_largeicon
- m_master`m_smallicons m_smallicons
- m_master`m_list m_list
- m_master`m_details m_details
- m_master`m_dash32 m_dash32
- m_master`m_arrangeicons m_arrangeicons
- m_master`m_dash34 m_dash34
- m_master`m_first m_first
- m_master`m_priorpage m_priorpage
- m_master`m_nextpage m_nextpage
- m_master`m_lastpage m_lastpage
- m_master`m_dash35 m_dash35
- m_master`m_sort m_sort
- m_master`m_filter m_filter
- m_master`m_dash36 m_dash36
- m_master`m_zoom m_zoom
- m_master`m_insert m_insert
- m_master`m_tools m_tools
- m_master`m_window m_window
- m_master`m_cascade m_cascade
- m_master`m_tilehorizontal m_tilehorizontal
- m_master`m_tilevertical m_tilevertical
- m_master`m_layer m_layer
- m_master`m_dash51 m_dash51
- m_master`m_minimizeall m_minimizeall
- m_master`m_undoarrange m_undoarrange
- m_master`m_help m_help
- menu m_project
- menucascade m_report
- m_master`m_file m_file