Changeset 327 for trunk/Forms

Timestamp:

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

Author:

chronos

Message:

• Fixed: Keep full screen info on single place.

File:

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

trunk/Forms/FormMain.pas

@@ -90 +90 @@
     FormActivated: Boolean;
     FormShown: Boolean;
-    FullScreen: Boolean;
     procedure ApplicationStart(Ptr: IntPtr);
     procedure UpdateClientForms;
@@ -99 +98 @@
     FormUnitMoves: TFormUnitMoves;
     FormCharts: TFormCharts;
+    FullScreen: Boolean;
     procedure LoadConfig(Config: TXmlConfig; Path: string);
     procedure SaveConfig(Config: TXmlConfig; Path: string);
     procedure ReloadView;
+    procedure ToggleFullscreen;
   end;
 
@@ -167 +168 @@
   end;
   ToolBar1.Visible := AToolBarVisible.Checked;
+end;
+
+procedure TFormMain.ToggleFullscreen;
+begin
+  FullScreen := not FullScreen;
+  TFormEx.PersistentForm.Form := Self;
+  TFormEx.PersistentForm.SetFullScreen(FullScreen);
 end;
 
@@ -287 +295 @@
     AUnitShapeVisible.Checked := Core.Core.UnitShapeVisible;
     Core.Core.ScaleDPI;
+    Core.Core.PersistentForm1.Load(Self);
     FullScreen := Core.Core.PersistentForm1.FormFullScreen;
     Core.Core.Init;