File: m_main.srm
Size: 14616
Date: Mon, 11 Feb 2019 15:23:52 +0100
$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_tools from menu within m_main
end type
type m_attachnotepad from menu within m_tools
end type
type m_attachcmd from menu within m_tools
end type
type m_tools from menu within m_main
m_attachnotepad m_attachnotepad
m_attachcmd m_attachcmd
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_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_tools m_tools
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_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_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_tools)
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_tools from menu within m_main
m_attachnotepad m_attachnotepad
m_attachcmd m_attachcmd
end type

on m_tools.create
call super::create
this.visible = false
this.text = "Tools"
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_attachnotepad=create m_attachnotepad
this.m_attachcmd=create m_attachcmd
this.Item[UpperBound(this.Item)+1]=this.m_attachnotepad
this.Item[UpperBound(this.Item)+1]=this.m_attachcmd
end on

on m_tools.destroy
call super::destroy
destroy(this.m_attachnotepad)
destroy(this.m_attachcmd)
end on

type m_attachnotepad from menu within m_tools
end type

event clicked;w_sheet lw_sheet

lw_sheet = gw_frame.GetActiveSheet()
If IsValid(lw_sheet) Then
   lw_sheet.TriggerEvent(this.ClassName())
End If

end event

on m_attachnotepad.create
call super::create
this.visible = false
this.text = "Attach Notepad"
this.microhelp = "Attach Notepad to the sheet"
this.toolbaritemvisible = false
this.toolbaritemname = "custom070!"
this.toolbaritemtext = "Notepad,Attach Notepad to the sheet"
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_attachnotepad.destroy
call super::destroy
end on

type m_attachcmd from menu within m_tools
end type

event clicked;w_sheet lw_sheet

lw_sheet = gw_frame.GetActiveSheet()
If IsValid(lw_sheet) Then
   lw_sheet.TriggerEvent(this.ClassName())
End If

end event

on m_attachcmd.create
call super::create
this.visible = false
this.text = "Attach Cmd"
this.microhelp = "Attach Cmd to the sheet"
this.toolbaritemvisible = false
this.toolbaritemname = "custom046!"
this.toolbaritemtext = "Cmd,Attach Cmd to the sheet"
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_attachcmd.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("ParentWindow", "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