Changeset 99 for trunk/Forms

Timestamp:

Jul 19, 2024, 11:05:07 PM (4 months ago)

Author:

chronos

Message:

• Fixed: Full screen mode switching.

File:

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

trunk/Forms/FormMain.pas

@@ -58 +58 @@
     MoveBuffer: array of TMoveDirection;
     MoveBufferLock: TCriticalSection;
-    FullScreen: Boolean;
     procedure AddToMoveBuffer(Direction: TMoveDirection);
     procedure ProcessMoveBuffer;
@@ -253 +252 @@
 begin
   FullScreen := not FullScreen;
-  Core.Core.PersistentForm1.Save(Self);
-  Core.Core.PersistentForm1.SetFullScreen(FormMain.FullScreen);
+  TFormEx.PersistentForm.Save(Self);
+  TFormEx.PersistentForm.SetFullScreen(FormMain.FullScreen);
   UpdateInterface;
 end;