object FormMain: TFormMain Left = 503 Top = 263 Caption = 'xTactics' ClientHeight = 566 ClientWidth = 786 Color = clBtnFace DockSite = True DoubleBuffered = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] Menu = MainMenu1 OldCreateOrder = True WindowState = wsMaximized OnActivate = FormActivate OnClose = FormClose OnMouseWheelDown = PaintBox1MouseWheelDown OnMouseWheelUp = PaintBox1MouseWheelUp OnResize = PaintBox1Resize OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object PaintBox1: TPaintBox Left = 0 Top = 29 Width = 786 Height = 511 Align = alClient OnMouseDown = PaintBox1MouseDown OnMouseLeave = PaintBox1MouseLeave OnMouseMove = PaintBox1MouseMove OnMouseUp = PaintBox1MouseUp OnPaint = PaintBox1Paint ExplicitTop = 23 end object StatusBar1: TStatusBar Left = 0 Top = 540 Width = 786 Height = 26 Panels = < item Width = 100 end item Width = 100 end item Width = 100 end> ExplicitTop = -26 ExplicitWidth = 124 end object ToolBar1: TToolBar Left = 0 Top = 0 Width = 786 Height = 29 ButtonHeight = 32 ButtonWidth = 32 Images = Core.ImageListSmall ParentShowHint = False ShowHint = True TabOrder = 1 ExplicitWidth = 124 object ToolButton1: TToolButton Left = 0 Top = 0 Action = Core.AGameNew end object ToolButton2: TToolButton Left = 32 Top = 0 Action = Core.AGameEndTurn end object ToolButton3: TToolButton Left = 64 Top = 0 Action = Core.AGameEnd end object ToolButton4: TToolButton Left = 96 Top = 0 Action = Core.AGameRestart end object ToolButton5: TToolButton Left = 128 Top = 0 Action = Core.ASettings end end object MainMenu1: TMainMenu Images = Core.ImageListSmall Left = 72 Top = 48 object MenuItem1: TMenuItem Caption = 'Game' object MenuItem2: TMenuItem Action = Core.AGameNew end object MenuItem3: TMenuItem Action = Core.AGameEnd end object MenuItem7: TMenuItem Action = Core.AGameRestart end object MenuItem4: TMenuItem Action = Core.AGameEndTurn end object MenuItem14: TMenuItem Action = Core.AGameLoad end object MenuItem15: TMenuItem Action = Core.AGameSave end object MenuItem5: TMenuItem Caption = '-' end object MenuItem6: TMenuItem Action = Core.AExit end end object MenuItem10: TMenuItem Caption = 'View' object MenuItem11: TMenuItem Action = AZoomAll end object MenuItem12: TMenuItem Action = AZoomIn end object MenuItem13: TMenuItem Action = AZoomOut end end object MenuItem8: TMenuItem Caption = 'Tools' object MenuItem9: TMenuItem Action = Core.ASettings end end end object Timer1: TTimer Interval = 20 OnTimer = Timer1Timer Left = 154 Top = 263 end object ActionList1: TActionList Images = Core.ImageListSmall Left = 280 Top = 152 object AZoomIn: TAction Caption = 'Zoom in' ShortCut = 16491 OnExecute = AZoomInExecute end object AZoomOut: TAction Caption = 'Zoom out' ShortCut = 16493 OnExecute = AZoomOutExecute end object AZoomAll: TAction Caption = 'Zoom all' ShortCut = 16449 OnExecute = AZoomAllExecute end end end