Changeset 337 for trunk/Core.pas

Timestamp:

Sep 8, 2024, 10:29:37 PM (2 months ago)

Author:

chronos

Message:

• Added: Game systems action in Tools menu.
• Modified: TurnStats moved to separate unit.

File:

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

trunk/Core.pas

@@ -16 +16 @@
   TCore = class(TDataModule)
     AAbout: TAction;
+    AGameSystems: TAction;
     ATests: TAction;
     AFullscreen: TAction;
@@ -54 +55 @@
     procedure AGameSaveAsExecute(Sender: TObject);
     procedure AGameSaveExecute(Sender: TObject);
+    procedure AGameSystemsExecute(Sender: TObject);
     procedure AHelpExecute(Sender: TObject);
     procedure ANewSpectatorClientExecute(Sender: TObject);
@@ -130 +132 @@
 uses
   FormNew, FormSettings, ClientAI, FormKeyShortcuts, Common, FormEx, FormTests,
-  FormHelp, FormUnitMoves, FormPlayersStats, ClientGUI, FormAbout, Tests;
+  FormHelp, FormUnitMoves, FormPlayersStats, ClientGUI, FormAbout, Tests,
+  FormGameSystems;
 
 const
@@ -406 +409 @@
     Game.SaveToFile(Game.FileName)
     else AGameSaveAs.Execute;
+end;
+
+procedure TCore.AGameSystemsExecute(Sender: TObject);
+var
+  FormGameSystems: TFormGameSystems;
+begin
+  FormGameSystems := TFormGameSystems.Create(nil);
+  try
+    FormGameSystems.GameSystems := GameSystems;
+    FormGameSystems.ShowModal;
+  finally
+    FreeAndNil(FormGameSystems);
+  end;
 end;