Changeset 31 for trunk/UCore.pas

Timestamp:

Oct 12, 2019, 10:47:02 PM (5 years ago)

Author:

chronos

Message:

• Added: New form accessible from menu Tools - Moves history with game moves history.

File:

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

trunk/UCore.pas

@@ -16 +16 @@
     AAbout: TAction;
     AComputer: TAction;
+    AHistory: TAction;
     AHelp: TAction;
     AUndo: TAction;
@@ -30 +31 @@
     procedure AExitExecute(Sender: TObject);
     procedure AHelpExecute(Sender: TObject);
+    procedure AHistoryExecute(Sender: TObject);
     procedure ANewExecute(Sender: TObject);
     procedure ASettingsExecute(Sender: TObject);
@@ -54 +56 @@
 
 uses
-  UFormMain, UFormSettings, UFormAbout, UFormNew, UFormHelp, UFormComputer;
+  UFormMain, UFormSettings, UFormAbout, UFormNew, UFormHelp, UFormComputer,
+  UFormHistory;
 
 resourcestring
@@ -131 +134 @@
 end;
 
+procedure TCore.AHistoryExecute(Sender: TObject);
+begin
+  FormHistory := TFormHistory.Create(nil);
+  try
+    FormHistory.ShowModal;
+  finally
+    FreeAndNil(FormHistory);
+  end;
+end;
+
 procedure TCore.ANewExecute(Sender: TObject);
 begin