object FormMain: TFormMain Left = 526 Height = 621 Top = 270 Width = 775 Caption = 'xTactics' ClientHeight = 595 ClientWidth = 775 Menu = MainMenu1 OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow LCLVersion = '1.3' object PaintBox1: TPaintBox Left = 0 Height = 595 Top = 0 Width = 775 Align = alClient OnMouseDown = PaintBox1MouseDown OnMouseMove = PaintBox1MouseMove OnMouseUp = PaintBox1MouseUp OnMouseLeave = PaintBox1MouseLeave OnMouseWheelDown = PaintBox1MouseWheelDown OnMouseWheelUp = PaintBox1MouseWheelUp OnPaint = PaintBox1Paint end object MainMenu1: TMainMenu left = 72 top = 48 object MenuItem1: TMenuItem Caption = 'Game' object MenuItem2: TMenuItem Action = AGameNew end object MenuItem3: TMenuItem Action = AGameEnd end object MenuItem4: TMenuItem Action = AGameEndTurn end object MenuItem5: TMenuItem Caption = '-' end object MenuItem6: TMenuItem Action = AExit end end end object ActionList1: TActionList left = 223 top = 49 object AGameNew: TAction Caption = 'New' OnExecute = AGameNewExecute end object AExit: TAction Caption = 'Exit' OnExecute = AExitExecute end object AGameEnd: TAction Caption = 'End' end object AGameEndTurn: TAction Caption = 'End turn' end end end