Changeset 91 for trunk/Core.pas

Timestamp:

Jun 7, 2024, 9:33:19 PM (3 months ago)

Author:

chronos

Message:

• Added: Flatpak build files.
• Added: Game menu restart action to start a new game without showing options dialog.
• Fixed: Fullscreen error after another window was opened.

File:

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

trunk/Core.pas

@@ -14 +14 @@
     AAbout: TAction;
     AComputer: TAction;
+    ARestart: TAction;
     AHistory: TAction;
     AHelp: TAction;
@@ -32 +33 @@
     procedure AHistoryExecute(Sender: TObject);
     procedure ANewExecute(Sender: TObject);
+    procedure ARestartExecute(Sender: TObject);
     procedure ASettingsExecute(Sender: TObject);
     procedure AUndoExecute(Sender: TObject);
@@ -194 +196 @@
 end;
 
+procedure TCore.ARestartExecute(Sender: TObject);
+begin
+  Game.New;
+  UpdateInterface;
+  FormMain.FormMain.UpdateInterface;
+end;
+
 procedure TCore.DataModuleDestroy(Sender: TObject);
 begin