Changeset 327 for trunk/Core.pas

Timestamp:

Jul 16, 2024, 10:58:45 PM (4 months ago)

Author:

chronos

Message:

• Fixed: Keep full screen info on single place.

File:

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

trunk/Core.pas

@@ -71 +71 @@
     GameLoaded: Boolean;
     FormNewTabIndex: Integer;
-    FullScreen: Boolean;
     GameFilesDir: string;
     procedure LoadRecentExecute(Sender: TObject);
@@ -87 +86 @@
     procedure FormClientActions;
     procedure LoadGameSystems;
-    procedure ToggleFullscreen;
   public
     Game: TGame;
@@ -294 +292 @@
 procedure TCore.UpdateInterface;
 begin
-  Core.AGameEnd.Enabled := Core.Game.Running;
+  Core.AGameEnd.Enabled := Game.Running;
+  Core.AFullscreen.Checked := FormMain.FullScreen;
 end;
 
@@ -306 +305 @@
 procedure TCore.AFullscreenExecute(Sender: TObject);
 begin
-  ToggleFullscreen;
+  FormMain.ToggleFullscreen;
+  UpdateInterface;
 end;
 
@@ -657 +657 @@
 end;
 
-procedure TCore.ToggleFullscreen;
-begin
-  FullScreen := not FullScreen;
-  PersistentForm1.Form := FormMain;
-  PersistentForm1.SetFullScreen(FullScreen);
-  UpdateInterface;
-end;
-
 procedure TCore.ReopenGameOnInit;
 begin