source: trunk/Forms/UFormClient.lfm

object FormClient: TFormClient
  Left = 418
  Height = 621
  Top = 253
  Width = 775
  Caption = 'Client'
  ClientHeight = 621
  ClientWidth = 775
  DesignTimePPI = 120
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyUp = FormKeyUp
  OnShow = FormShow
  LCLVersion = '1.8.0.6'
  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>
    SimplePanel = False
  end
  object ToolBar1: TToolBar
    Left = 0
    Height = 593
    Top = 0
    Width = 32
    Align = alLeft
    ButtonHeight = 32
    ButtonWidth = 32
    Images = Core.ImageListSmall
    ParentShowHint = False
    PopupMenu = PopupMenuToolbar
    ShowHint = True
    TabOrder = 1
    object ToolButton2: TToolButton
      Left = 1
      Top = 2
      Action = Core.AGameEndTurn
    end
    object ToolButton6: TToolButton
      Left = 1
      Top = 39
      Action = AZoomIn
    end
    object ToolButton7: TToolButton
      Left = 1
      Top = 71
      Action = AZoomOut
    end
    object ToolButton8: TToolButton
      Left = 1
      Top = 103
      Action = AZoomAll
    end
    object ToolButton9: TToolButton
      Left = 1
      Top = 34
      Width = 32
      AutoSize = True
      Style = tbsDivider
    end
  end
  object PaintBox1: TPaintBox
    Left = 32
    Height = 593
    Top = 0
    Width = 743
    Align = alClient
    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
    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