Changeset 4 for trunk/UFormMain.pas

Timestamp:

Feb 8, 2014, 11:35:27 PM (11 years ago)

Author:

chronos

Message:

• Added: Main menu with game control actions.

File:

• trunk/UFormMain.pas (modified) (3 diffs)

trunk/UFormMain.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
-  UGame, LCLType;
+  UGame, LCLType, Menus, ActnList;
 
 type
@@ -14 +14 @@
 
   TFormMain = class(TForm)
+    AGameEndTurn: TAction;
+    AGameEnd: TAction;
+    AExit: TAction;
+    AGameNew: TAction;
+    ActionList1: TActionList;
+    MainMenu1: TMainMenu;
+    MenuItem1: TMenuItem;
+    MenuItem2: TMenuItem;
+    MenuItem3: TMenuItem;
+    MenuItem4: TMenuItem;
+    MenuItem5: TMenuItem;
+    MenuItem6: TMenuItem;
     PaintBox1: TPaintBox;
+    procedure AExitExecute(Sender: TObject);
+    procedure AGameNewExecute(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -56 +70 @@
 begin
   Game := TGame.Create;
+end;
+
+procedure TFormMain.AExitExecute(Sender: TObject);
+begin
+  Application.Terminate;
+end;
+
+procedure TFormMain.AGameNewExecute(Sender: TObject);
+begin
+  Game.New;
+  PaintBox1.Repaint;
 end;