$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_close 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_close m_close m_exit m_exit 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_window from menu within m_main m_tilevertical m_tilevertical m_tilehorizontal m_tilehorizontal m_layer m_layer m_cascade m_cascade 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_window m_window m_help m_help end type end forward global type m_main from menu m_file m_file m_window m_window 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.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_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_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_window) destroy(this.m_help) end on type m_file from menu within m_main m_open m_open m_close m_close m_exit m_exit end type on m_file.create call super::create this.text = "File" 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_close=create m_close this.m_exit=create m_exit this.Item[UpperBound(this.Item)+1]=this.m_open this.Item[UpperBound(this.Item)+1]=this.m_close 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_close) destroy(this.m_exit) end on type m_open from menu within m_file end type event clicked;w_sheet lw_sheet OpenSheet(lw_sheet, "w_sheet", gw_frame, 0, Layered!) end event on m_open.create call super::create this.text = "Open" this.microhelp = "Open a sheet window" this.toolbaritemname = "open!" this.toolbaritemtext = "Open,Open a sheet window" 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_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" this.microhelp = "Close the sheet window" this.toolbaritemvisible = false this.toolbaritemname = "close!" this.toolbaritemtext = "Close,Close the sheet window" this.toolbaritemorder = 98 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_exit from menu within m_file end type event clicked;Close(gw_frame) end event on m_exit.create call super::create this.text = "Exit~tAlt+F4" this.shortcut = 627 this.microhelp = "Exit the program" this.toolbaritemname = "exit!" this.toolbaritemtext = "Exit,Exit the program" this.toolbaritemorder = 99 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_window from menu within m_main m_tilevertical m_tilevertical m_tilehorizontal m_tilehorizontal m_layer m_layer m_cascade m_cascade end type on m_window.create call super::create this.text = "Window" 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.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 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) 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.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.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.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.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_help from menu within m_main m_about m_about end type on m_help.create call super::create this.text = "Help" 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("Bitmap Capture", "Topwiz Software © 2019") end event on m_about.create call super::create this.text = "About" this.microhelp = "About the program" 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: 11257
Date: Mon, 04 Nov 2019 19:20:08 +0100
Size: 11257
Date: Mon, 04 Nov 2019 19:20:08 +0100
- menu m_main(srm)
- menu m_file
- menu m_window
- menu m_help