object FormMain: TFormMain Left = 826 Height = 745 Top = 419 Width = 930 Caption = 'xTactics' ClientHeight = 711 ClientWidth = 930 DesignTimePPI = 144 Menu = MainMenu1 OnActivate = FormActivate OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnKeyUp = FormKeyUp OnShow = FormShow LCLVersion = '2.0.12.0' object ToolBar1: TToolBar Left = 0 Height = 40 Top = 0 Width = 930 ButtonHeight = 32 ButtonWidth = 32 Images = Core.ImageListSmall ParentFont = False ParentShowHint = False PopupMenu = PopupMenuToolbar ShowHint = True TabOrder = 0 object ToolButton1: TToolButton Left = 1 Top = 2 Action = Core.AGameNew end object ToolButton3: TToolButton Left = 33 Top = 2 Action = Core.AGameEnd end object ToolButton4: TToolButton Left = 65 Top = 2 Action = Core.AGameRestart end object ToolButton5: TToolButton Left = 171 Top = 2 Action = Core.ASettings end object ToolButton9: TToolButton Left = 166 Height = 32 Top = 2 Style = tbsDivider end object ToolButton11: TToolButton Left = 102 Top = 2 Action = Core.AGameLoad end object ToolButton12: TToolButton Left = 134 Top = 2 Action = Core.AGameSave end object ToolButton13: TToolButton Left = 203 Top = 2 Action = Core.AExit end object ToolButton2: TToolButton Left = 97 Height = 32 Top = 2 Style = tbsDivider end end object PanelMain: TPanel Left = 0 Height = 671 Top = 40 Width = 930 Align = alClient BevelOuter = bvNone ParentFont = False TabOrder = 1 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 MenuItem14: TMenuItem Action = Core.AGameLoad end object MenuItemLoadRecent: TMenuItem Caption = 'Load recent' end object MenuItem15: TMenuItem Action = Core.AGameSave end object MenuItem29: TMenuItem Action = Core.AGameSaveAs end object MenuItem5: TMenuItem Caption = '-' end object MenuItem6: TMenuItem Action = Core.AExit end end object MenuItem10: TMenuItem Caption = 'View' object MenuItem11: TMenuItem Caption = 'Zoom all' ImageIndex = 7 ShortCut = 16449 end object MenuItem12: TMenuItem Caption = 'Zoom in' ImageIndex = 8 ShortCut = 16491 end object MenuItem13: TMenuItem Caption = 'Zoom out' ImageIndex = 9 ShortCut = 16493 end object MenuItem32: TMenuItem Caption = '-' end object MenuItem30: TMenuItem Action = Core.AFullscreen end object MenuItem19: TMenuItem Caption = '-' end object MenuItem33: TMenuItem Action = AMapGridVisible end object MenuItem34: TMenuItem Action = AUnitShapeVisible end object MenuItem35: TMenuItem Caption = '-' end object MenuItem21: TMenuItem Action = AToolBarVisible end object MenuItem20: TMenuItem Action = AToolBarBigIcons end object MenuItem22: TMenuItem Action = AStatusBarVisible end object MenuItem26: TMenuItem Caption = '-' end object MenuItem27: TMenuItem Action = Core.ANewSpectatorClient end end object MenuItem8: TMenuItem Caption = 'Tools' object MenuItem9: TMenuItem Action = Core.ASettings end object MenuItem24: TMenuItem Action = Core.AShowCharts end object MenuItem25: TMenuItem Action = Core.AShowUnitMoves end object MenuItem28: TMenuItem Action = Core.APlayersStats end end object MenuItemDebug: TMenuItem Caption = 'Debug' object MenuItem31: TMenuItem Action = Core.AToggleFogOfWar end end object MenuItem16: TMenuItem Caption = 'Help' object MenuItem23: TMenuItem Action = Core.AHelp end object MenuItem4: TMenuItem Action = Core.AShowKeyShortcuts end object MenuItem17: TMenuItem Action = Core.AAbout end end end object Timer1: TTimer Interval = 20 OnTimer = Timer1Timer Left = 128 Top = 263 end object ActionList1: TActionList Images = Core.ImageListSmall Left = 280 Top = 152 object AToolBarBigIcons: TAction Caption = 'Toolbar big icons' OnExecute = AToolBarBigIconsExecute end object AToolBarVisible: TAction Caption = 'Toolbar visible' OnExecute = AToolBarVisibleExecute end object AStatusBarVisible: TAction Caption = 'Status bar visible' OnExecute = AStatusBarVisibleExecute end object AMapGridVisible: TAction Caption = 'Map grid visible' OnExecute = AMapGridVisibleExecute end object AUnitShapeVisible: TAction Caption = 'Unit shape visible' OnExecute = AUnitShapeVisibleExecute end end object PopupMenuToolbar: TPopupMenu Left = 452 Top = 98 object MenuItem18: TMenuItem Action = AToolBarBigIcons end end end