source: tags/1.0.0/Forms/UFormMain.lfm

object FormMain: TFormMain
  Left = 784
  Height = 621
  Top = 435
  Width = 775
  Caption = 'xTactics'
  ClientHeight = 589
  ClientWidth = 775
  Menu = MainMenu1
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyUp = FormKeyUp
  OnShow = FormShow
  LCLVersion = '1.6.0.4'
  WindowState = wsMaximized
  object StatusBar1: TStatusBar
    Left = 0
    Height = 28
    Top = 561
    Width = 775
    Panels = <    
      item
        Width = 200
      end    
      item
        Width = 150
      end    
      item
        Width = 100
      end>
    SimplePanel = False
  end
  object ToolBar1: TToolBar
    Left = 0
    Height = 561
    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 = 561
    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 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
    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