source: trunk/Forms/FormClient.lfm

object FormClient: TFormClient
  Left = 877
  Height = 621
  Top = 394
  Width = 775
  Caption = 'Client'
  ClientHeight = 621
  ClientWidth = 775
  DesignTimePPI = 144
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyUp = FormKeyUp
  OnShow = FormShow
  LCLVersion = '3.6.0.0'
  WindowState = wsMaximized
  object StatusBar1: TStatusBar
    Left = 0
    Height = 28
    Top = 593
    Width = 775
    Panels = <    
      item
        Width = 200
      end    
      item
        Width = 150
      end    
      item
        Width = 100
      end>
    ParentFont = False
    SimplePanel = False
  end
  object ToolBar1: TToolBar
    Left = 0
    Height = 593
    Top = 0
    Width = 32
    Align = alLeft
    ButtonHeight = 32
    ButtonWidth = 32
    Images = Core.ImageListSmall
    ParentFont = False
    ParentShowHint = False
    PopupMenu = PopupMenuToolbar
    ShowHint = True
    TabOrder = 1
    object ToolButton2: TToolButton
      Left = 1
      Top = 2
      Action = AGameEndTurn
    end
    object ToolButton6: TToolButton
      Left = 1
      Top = 71
      Action = AZoomIn
    end
    object ToolButton7: TToolButton
      Left = 1
      Top = 103
      Action = AZoomOut
    end
    object ToolButton8: TToolButton
      Left = 1
      Top = 135
      Action = AZoomAll
    end
    object ToolButton9: TToolButton
      Left = 1
      Top = 66
      Width = 32
      AutoSize = True
      Style = tbsDivider
    end
    object ToolButton1: TToolButton
      Left = 1
      Top = 34
      Action = ASurrender
    end
  end
  object PaintBox1: TPaintBox
    Left = 32
    Height = 593
    Top = 0
    Width = 743
    Align = alClient
    ParentFont = False
    OnMouseDown = PaintBox1MouseDown
    OnMouseLeave = PaintBox1MouseLeave
    OnMouseMove = PaintBox1MouseMove
    OnMouseUp = PaintBox1MouseUp
    OnMouseWheelDown = PaintBox1MouseWheelDown
    OnMouseWheelUp = PaintBox1MouseWheelUp
    OnPaint = PaintBox1Paint
    OnResize = PaintBox1Resize
  end
  object Timer1: TTimer
    Interval = 20
    OnTimer = Timer1Timer
    Left = 160
    Top = 160
  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
      OnUpdate = AToolBarBigIconsUpdate
    end
    object AToolBarVisible: TAction
      Caption = 'Toolbar visible'
      OnExecute = AToolBarVisibleExecute
      OnUpdate = AToolBarVisibleUpdate
    end
    object AStatusBarVisible: TAction
      Caption = 'Statusbar visible'
      OnExecute = AStatusBarVisibleExecute
      OnUpdate = AStatusBarVisibleUpdate
    end
    object AGameEndTurn: TAction
      Caption = 'End turn'
      ImageIndex = 0
      OnExecute = AGameEndTurnExecute
      ShortCut = 32
    end
    object ASurrender: TAction
      Caption = 'Surrender'
      ImageIndex = 4
      OnExecute = ASurrenderExecute
    end
  end
  object PopupMenuToolbar: TPopupMenu
    Left = 452
    Top = 98
    object MenuItem18: TMenuItem
      Action = AToolBarBigIcons
    end
  end
end