Changeset 20 for trunk/UCore.pas

Timestamp:

Oct 5, 2019, 2:00:50 PM (5 years ago)

Author:

chronos

Message:

• Added: Player can undo last move.
• Modified: Optimized code of TGame.CanMove method.

File:

• trunk/UCore.pas (modified) (6 diffs)

trunk/UCore.pas

@@ -15 +15 @@
   TCore = class(TDataModule)
     AAbout: TAction;
+    AUndo: TAction;
     ASettings: TAction;
     ActionList1: TActionList;
     AExit: TAction;
-    AGameNew: TAction;
+    ANew: TAction;
     ApplicationInfo1: TApplicationInfo;
     PersistentForm1: TPersistentForm;
@@ -25 +26 @@
     procedure AAboutExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
-    procedure AGameNewExecute(Sender: TObject);
+    procedure ANewExecute(Sender: TObject);
     procedure ASettingsExecute(Sender: TObject);
+    procedure AUndoExecute(Sender: TObject);
     procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
@@ -33 +35 @@
   public
     Game: TGame;
+    procedure UpdateInterface;
     procedure LoadConfig;
     procedure SaveConfig;
@@ -68 +71 @@
 end;
 
+procedure TCore.AUndoExecute(Sender: TObject);
+begin
+  Game.Undo;
+end;
+
 procedure TCore.AAboutExecute(Sender: TObject);
 begin
@@ -84 +92 @@
 end;
 
-procedure TCore.AGameNewExecute(Sender: TObject);
+procedure TCore.ANewExecute(Sender: TObject);
 begin
   FormNew := TFormNew.Create(nil);
@@ -107 +115 @@
 begin
   FormMain.Redraw;
+  UpdateInterface;
+end;
+
+procedure TCore.UpdateInterface;
+begin
+  AUndo.Enabled := Game.CanUndo;;
 end;