object FormMain: TFormMain Left = 577 Height = 621 Top = 309 Width = 775 Caption = 'xTactics' ClientHeight = 596 ClientWidth = 775 Menu = MainMenu1 OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnKeyUp = FormKeyUp OnShow = FormShow LCLVersion = '1.6.2.0' WindowState = wsMaximized object StatusBar1: TStatusBar Left = 0 Height = 28 Top = 568 Width = 775 Panels = < item Width = 200 end item Width = 150 end item Width = 100 end> SimplePanel = False end object ToolBar1: TToolBar Left = 0 Height = 568 Top = 0 Width = 80 Align = alLeft ButtonHeight = 32 ButtonWidth = 32 Images = Core.ImageListSmall ParentShowHint = False PopupMenu = PopupMenuToolbar ShowHint = True TabOrder = 1 object ToolButton1: TToolButton Left = 1 Top = 2 Action = Core.AGameNew end object ToolButton2: TToolButton Left = 1 Top = 34 Action = Core.AGameEndTurn end object ToolButton3: TToolButton Left = 1 Top = 66 Action = Core.AGameEnd end object ToolButton4: TToolButton Left = 1 Top = 98 Action = Core.AGameRestart end object ToolButton5: TToolButton Left = 1 Top = 130 Action = Core.ASettings end object ToolButton6: TToolButton Left = 1 Top = 194 Action = AZoomIn end object ToolButton7: TToolButton Left = 1 Top = 226 Action = AZoomOut end object ToolButton8: TToolButton Left = 1 Top = 258 Action = AZoomAll end object ToolButton9: TToolButton Left = 1 Height = 32 Top = 162 Width = 32 Style = tbsSeparator end object ToolButton10: TToolButton Left = 1 Height = 32 Top = 290 Width = 32 Style = tbsSeparator end object ToolButton11: TToolButton Left = 1 Top = 322 Action = Core.AGameLoad end object ToolButton12: TToolButton Left = 1 Top = 354 Action = Core.AGameSave end object ToolButton13: TToolButton Left = 1 Top = 386 Action = Core.AExit end end object PaintBox1: TPaintBox Left = 80 Height = 568 Top = 0 Width = 695 Align = alClient OnMouseDown = PaintBox1MouseDown OnMouseLeave = PaintBox1MouseLeave OnMouseMove = PaintBox1MouseMove OnMouseUp = PaintBox1MouseUp OnMouseWheelDown = PaintBox1MouseWheelDown OnMouseWheelUp = PaintBox1MouseWheelUp OnPaint = PaintBox1Paint OnResize = PaintBox1Resize end object MainMenu1: TMainMenu Images = Core.ImageListSmall left = 224 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 MenuItemLoadRecent: TMenuItem Caption = 'Load recent' 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 object MenuItem19: TMenuItem Caption = '-' end object MenuItem21: TMenuItem Action = AToolBarVisible end object MenuItem20: TMenuItem Action = AToolBarBigIcons end object MenuItem22: TMenuItem Action = AStatusBarVisible end end object MenuItem8: TMenuItem Caption = 'Tools' object MenuItem9: TMenuItem Action = Core.ASettings end object MenuItem24: TMenuItem Action = Core.AShowCharts end end object MenuItem16: TMenuItem Caption = 'Help' object MenuItem23: TMenuItem Action = Core.AHelp end object MenuItem17: TMenuItem Action = Core.AAbout 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' ImageIndex = 8 OnExecute = AZoomInExecute ShortCut = 16491 end object AZoomOut: TAction Caption = 'Zoom out' ImageIndex = 9 OnExecute = AZoomOutExecute ShortCut = 16493 end object AZoomAll: TAction Caption = 'Zoom all' ImageIndex = 7 OnExecute = AZoomAllExecute ShortCut = 16449 end object AToolBarBigIcons: TAction Caption = 'Toolbar big icons' OnExecute = AToolBarBigIconsExecute end object AToolBarVisible: TAction Caption = 'Toolbar visible' OnExecute = AToolBarVisibleExecute end object AStatusBarVisible: TAction Caption = 'Statusbar visible' OnExecute = AStatusBarVisibleExecute end end object PopupMenuToolbar: TPopupMenu left = 452 top = 98 object MenuItem18: TMenuItem Action = AToolBarBigIcons end end end