object FormClient: TFormClient Left = 528 Height = 621 Top = 280 Width = 775 Caption = 'Client' ClientHeight = 621 ClientWidth = 775 DesignTimePPI = 144 OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnKeyUp = FormKeyUp OnShow = FormShow LCLVersion = '1.8.2.0' WindowState = wsMaximized object StatusBar1: TStatusBar Left = 0 Height = 30 Top = 591 Width = 775 Panels = < item Width = 200 end item Width = 150 end item Width = 100 end> SimplePanel = False end object ToolBar1: TToolBar Left = 0 Height = 591 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 = 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 = 591 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 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 = 16468 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