source: trunk/Forms/UFormMain.lfm@ 236

object FormMain: TFormMain
  Left = 801
  Height = 621
  Top = 352
  Width = 775
  Caption = 'xTactics'
  ClientHeight = 587
  ClientWidth = 775
  DesignTimePPI = 144
  Menu = MainMenu1
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyUp = FormKeyUp
  OnShow = FormShow
  LCLVersion = '1.8.4.0'
  WindowState = wsMaximized
  object ToolBar1: TToolBar
    Left = 0
    Height = 40
    Top = 0
    Width = 775
    ButtonHeight = 32
    ButtonWidth = 32
    Images = Core.ImageListSmall
    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 = 547
    Top = 40
    Width = 775
    Align = alClient
    BevelOuter = bvNone
    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 MenuItem19: TMenuItem
        Caption = '-'
      end
      object MenuItem21: TMenuItem
        Action = AToolBarVisible
      end
      object MenuItem20: TMenuItem
        Action = AToolBarBigIcons
      end
      object MenuItem22: TMenuItem
        Caption = 'Statusbar visible'
      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
  end
  object PopupMenuToolbar: TPopupMenu
    left = 452
    top = 98
    object MenuItem18: TMenuItem
      Action = AToolBarBigIcons
    end
  end
end