Changeset 88 for trunk/Forms/FormMain.pas

Timestamp:

Jun 7, 2024, 2:36:34 PM (3 months ago)

Author:

chronos

Message:

• Fixed: Fullscreen mode was not working on start.
• Added: Step button in AI form to do single step.

File:

• trunk/Forms/FormMain.pas (modified) (3 diffs)

trunk/Forms/FormMain.pas

@@ -36 +36 @@
     MenuItemGame: TMenuItem;
     TimerDraw: TTimer;
-    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
+    procedure FormActivate(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -171 +171 @@
 end;
 
-procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
-begin
-  Core.Core.PersistentForm1.Save(Self);
+procedure TFormMain.FormActivate(Sender: TObject);
+begin
+  FullScreen := Core.Core.PersistentForm1.FormFullScreen;
 end;
 
@@ -194 +194 @@
 procedure TFormMain.FormShow(Sender: TObject);
 begin
-  FullScreen := Core.Core.PersistentForm1.FormFullScreen;
-
   UpdateInterface;
-  if Core.Core.Game.Board.GetEmptyTilesCount > Core.Core.Game.Board.Size.X * Core.Core.Game.Board.Size.Y -
-    InitialTileCount then
+  if Core.Core.Game.Board.GetEmptyTilesCount > Core.Core.Game.Board.Size.X *
+    Core.Core.Game.Board.Size.Y - InitialTileCount then
     Core.Core.Game.New;
 end;