object FormClient: TFormClient Left = 528 Height = 621 Top = 280 Width = 775 Caption = 'Client' ClientHeight = 621 ClientWidth = 775 DesignTimePPI = 120 OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnKeyUp = FormKeyUp OnShow = FormShow LCLVersion = '2.0.0.4' WindowState = wsMaximized object StatusBar1: TStatusBar Left = 0 Height = 28 Top = 593 Width = 775 Panels = < item Width = 167 end item Width = 125 end item Width = 83 end> ParentFont = False SimplePanel = False end object ToolBar1: TToolBar Left = 0 Height = 593 Top = 0 Width = 27 Align = alLeft ButtonHeight = 27 ButtonWidth = 27 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 = 61 Action = AZoomIn end object ToolButton7: TToolButton Left = 1 Top = 88 Action = AZoomOut end object ToolButton8: TToolButton Left = 1 Top = 115 Action = AZoomAll end object ToolButton9: TToolButton Left = 1 Top = 56 Width = 27 AutoSize = True Style = tbsDivider end object ToolButton1: TToolButton Left = 1 Top = 29 Action = ASurrender end end object PaintBox1: TPaintBox Left = 27 Height = 593 Top = 0 Width = 748 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 = 133 top = 133 end object ActionList1: TActionList Images = Core.ImageListSmall left = 233 top = 127 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 = 377 top = 82 object MenuItem18: TMenuItem Action = AToolBarBigIcons end end end