$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_print from menu within m_file end type type m_print1 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_print m_print m_print1 m_print1 m_exit m_exit end type type m_edit from menu within m_main end type type m_addproperty from menu within m_edit end type type m_editproperty from menu within m_edit end type type m_deleteproperty from menu within m_edit end type type m_edit from menu within m_main m_addproperty m_addproperty m_editproperty m_editproperty m_deleteproperty m_deleteproperty 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_edit m_edit m_help m_help end type end forward global type m_main from menu m_file m_file m_edit m_edit m_help m_help end type global m_main m_main on m_main.create m_main=this call super::create this.text = "m_main" this.m_file=create m_file this.m_edit=create m_edit this.m_help=create m_help this.Item[UpperBound(this.Item)+1]=this.m_file this.Item[UpperBound(this.Item)+1]=this.m_edit 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_edit) destroy(this.m_help) end on type m_file from menu within m_main m_print m_print m_print1 m_print1 m_exit m_exit end type on m_file.create call super::create this.text = "&File" this.m_print=create m_print this.m_print1=create m_print1 this.m_exit=create m_exit this.Item[UpperBound(this.Item)+1]=this.m_print this.Item[UpperBound(this.Item)+1]=this.m_print1 this.Item[UpperBound(this.Item)+1]=this.m_exit end on on m_file.destroy call super::destroy destroy(this.m_print) destroy(this.m_print1) destroy(this.m_exit) end on type m_print from menu within m_file end type on m_print.create call super::create this.text = "&Print" this.microhelp = "Print property sheet" end on on m_print.destroy call super::destroy end on event clicked;ParentWindow.Event Dynamic ue_print(True) end event type m_print1 from menu within m_file event clicked ( ) end type event clicked;ParentWindow.Event Dynamic ue_print(False) end event on m_print1.create call super::create this.visible = false this.text = "Print" this.microhelp = "Print property sheet" this.toolbaritemname = "Print!" this.toolbaritemtext = "Print,Print property sheet" end on on m_print1.destroy call super::destroy end on type m_exit from menu within m_file end type on m_exit.create call super::create this.text = "E&xit" this.microhelp = "Exit Program" this.toolbaritemname = "Exit!" this.toolbaritemtext = "Exit,Exit Program" end on on m_exit.destroy call super::destroy end on event clicked;Close(ParentWindow) end event type m_edit from menu within m_main m_addproperty m_addproperty m_editproperty m_editproperty m_deleteproperty m_deleteproperty end type on m_edit.create call super::create this.text = "&Edit" this.m_addproperty=create m_addproperty this.m_editproperty=create m_editproperty this.m_deleteproperty=create m_deleteproperty this.Item[UpperBound(this.Item)+1]=this.m_addproperty this.Item[UpperBound(this.Item)+1]=this.m_editproperty this.Item[UpperBound(this.Item)+1]=this.m_deleteproperty end on on m_edit.destroy call super::destroy destroy(this.m_addproperty) destroy(this.m_editproperty) destroy(this.m_deleteproperty) end on type m_addproperty from menu within m_edit end type event clicked;ParentWindow.TriggerEvent(this.ClassName()) end event on m_addproperty.create call super::create this.text = "&Add Property" this.microhelp = "Add a new property" end on on m_addproperty.destroy call super::destroy end on type m_editproperty from menu within m_edit end type event clicked;ParentWindow.TriggerEvent(this.ClassName()) end event on m_editproperty.create call super::create this.text = "&Edit Property" this.microhelp = "Edit an existing property" end on on m_editproperty.destroy call super::destroy end on type m_deleteproperty from menu within m_edit end type event clicked;ParentWindow.TriggerEvent(this.ClassName()) end event on m_deleteproperty.create call super::create this.text = "&Delete Property" this.microhelp = "Delete an existing property" end on on m_deleteproperty.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.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;String ls_msg ls_msg = "By Roland Smith~r~n~r~n" ls_msg += "www.topwizprogramming.com" MessageBox("About JagMan", ls_msg) end event on m_about.create call super::create this.text = "&About" end on on m_about.destroy call super::destroy end on
File: m_main.srm
Size: 5296
Date: Tue, 22 Aug 2017 17:30:58 +0200
Size: 5296
Date: Tue, 22 Aug 2017 17:30:58 +0200
- menu m_main(srm)
- menu m_file
- menu m_edit
- menu m_help