Changeset 308 for trunk/Packages/Common/UPersistentForm.pas

Timestamp:

Aug 18, 2021, 11:50:13 AM (3 years ago)

Author:

chronos

Message:

• Modified: Updated Common package to newer version.
• Modified: About dialog is now part of Common package.
• Modified: CoolTranslator is now part of Common package.

File:

• trunk/Packages/Common/UPersistentForm.pas (modified) (15 diffs)

trunk/Packages/Common/UPersistentForm.pas

@@ -3 +3 @@
 {$mode delphi}
 
-// Date: 2015-04-18
+// Date: 2020-11-26
 
 interface
 
 uses
-  Classes, SysUtils, Forms, URegistry, LCLIntf, Registry, Controls, ComCtrls;
+  Classes, SysUtils, Forms, URegistry, LCLIntf, Registry, Controls, ComCtrls,
+  ExtCtrls, LCLType;
 
 type
@@ -19 +20 @@
     FMinVisiblePart: Integer;
     FRegistryContext: TRegistryContext;
-    FirstLoad: Boolean;
     procedure LoadControl(Control: TControl);
     procedure SaveControl(Control: TControl);
@@ -26 +26 @@
     FormRestoredSize: TRect;
     FormWindowState: TWindowState;
+    FormFullScreen: Boolean;
     Form: TForm;
     procedure LoadFromRegistry(RegistryContext: TRegistryContext);
@@ -31 +32 @@
     function CheckEntireVisible(Rect: TRect): TRect;
     function CheckPartVisible(Rect: TRect; Part: Integer): TRect;
-    procedure Load(Form: TForm; DefaultMaximized: Boolean = False);
+    procedure Load(Form: TForm; DefaultMaximized: Boolean = False;
+      DefaultFullScreen: Boolean = False);
     procedure Save(Form: TForm);
     constructor Create(AOwner: TComponent); override;
+    procedure SetFullScreen(State: Boolean);
     property RegistryContext: TRegistryContext read FRegistryContext
       write FRegistryContext;
@@ -43 +46 @@
 procedure Register;
 
+
 implementation
-
 
 procedure Register;
@@ -72 +75 @@
   end;
 
+  if (Control is TPanel) then begin
+    with Form, TRegistryEx.Create do
+    try
+      RootKey := RegistryContext.RootKey;
+      OpenKey(RegistryContext.Key + '\Forms\' + Form.Name + '\' + Control.Name, True);
+      if (TPanel(Control).Align = alRight) or (TPanel(Control).Align = alLeft) then begin
+        if ValueExists('Width') then
+          TPanel(Control).Width := ReadInteger('Width');
+      end;
+      if (TPanel(Control).Align = alTop) or (TPanel(Control).Align = alBottom) then begin
+        if ValueExists('Height') then
+          TPanel(Control).Height := ReadInteger('Height');
+      end;
+    finally
+      Free;
+    end;
+  end;
+
   if Control is TWinControl then begin
     WinControl := TWinControl(Control);
@@ -96 +117 @@
       for I := 0 to TListView(Control).Columns.Count - 1 do begin
         WriteInteger('ColWidth' + IntToStr(I), TListView(Control).Columns[I].Width);
+      end;
+    finally
+      Free;
+    end;
+  end;
+
+  if (Control is TPanel) then begin
+    with Form, TRegistryEx.Create do
+    try
+      RootKey := RegistryContext.RootKey;
+      OpenKey(RegistryContext.Key + '\Forms\' + Form.Name + '\' + Control.Name, True);
+      if (TPanel(Control).Align = alRight) or (TPanel(Control).Align = alLeft) then begin
+        WriteInteger('Width', TPanel(Control).Width);
+      end;
+      if (TPanel(Control).Align = alTop) or (TPanel(Control).Align = alBottom) then begin
+        WriteInteger('Height', TPanel(Control).Height);
       end;
     finally
@@ -120 +157 @@
     RootKey := RegistryContext.RootKey;
     OpenKey(RegistryContext.Key + '\Forms\' + Form.Name, True);
-    FirstLoad := not ValueExists('WindowState');
     // Normal size
     FormNormalSize.Left := ReadIntegerWithDefault('NormalLeft', FormNormalSize.Left);
@@ -136 +172 @@
       + FormRestoredSize.Top;
     // Other state
-    FormWindowState := TWindowState(ReadIntegerWithDefault('WindowState', Integer(wsNormal)));
+    FormWindowState := TWindowState(ReadIntegerWithDefault('WindowState', Integer(FormWindowState)));
+    FormFullScreen := ReadBoolWithDefault('FullScreen', FormFullScreen);
   finally
     Free;
@@ -160 +197 @@
     // Other state
     WriteInteger('WindowState', Integer(FormWindowState));
+    WriteBool('FullScreen', FormFullScreen);
   finally
     Free;
@@ -217 +255 @@
 end;
 
-procedure TPersistentForm.Load(Form: TForm; DefaultMaximized: Boolean = False);
+procedure TPersistentForm.Load(Form: TForm; DefaultMaximized: Boolean = False;
+  DefaultFullScreen: Boolean = False);
 begin
   Self.Form := Form;
@@ -225 +264 @@
   FormRestoredSize := Bounds((Screen.Width - Form.Width) div 2,
     (Screen.Height - Form.Height) div 2, Form.Width, Form.Height);
+  FormWindowState := Form.WindowState;
+  FormFullScreen := DefaultFullScreen;
 
   LoadFromRegistry(RegistryContext);
 
   if not EqualRect(FormNormalSize, FormRestoredSize) or
-    (DefaultMaximized and FirstLoad) then begin
+    DefaultMaximized then begin
     // Restore to maximized state
     Form.WindowState := wsNormal;
@@ -244 +285 @@
       Form.BoundsRect := FormNormalSize;
   end;
+  if FormFullScreen then SetFullScreen(True);
   LoadControl(Form);
 end;
@@ -251 +293 @@
   Self.Form := Form;
   FormNormalSize := Bounds(Form.Left, Form.Top, Form.Width, Form.Height);
-  FormRestoredSize := Bounds(Form.RestoredLeft, Form.RestoredTop, Form.RestoredWidth,
-    Form.RestoredHeight);
+  if not FormFullScreen then
+    FormRestoredSize := Bounds(Form.RestoredLeft, Form.RestoredTop, Form.RestoredWidth,
+      Form.RestoredHeight);
   FormWindowState := Form.WindowState;
   SaveToRegistry(RegistryContext);
@@ -265 +308 @@
   FMinVisiblePart := 50;
   FRegistryContext.RootKey := HKEY_CURRENT_USER;
-  FirstLoad := False;
+end;
+
+procedure TPersistentForm.SetFullScreen(State: Boolean);
+begin
+  if State then begin
+    FormFullScreen := True;
+    FormNormalSize := Form.BoundsRect;
+    FormRestoredSize := Bounds(Form.RestoredLeft, Form.RestoredTop, Form.RestoredWidth,
+      Form.RestoredHeight);
+    FormWindowState := Form.WindowState;
+    ShowWindow(Form.Handle, SW_SHOWFULLSCREEN);
+    {$IFDEF WINDOWS}
+    Form.BorderStyle := bsNone;
+    {$ENDIF}
+  end else begin
+    FormFullScreen := False;
+    {$IFDEF WINDOWS}
+    Form.BorderStyle := bsSizeable;
+    {$ENDIF}
+    ShowWindow(Form.Handle, SW_SHOWNORMAL);
+    if FormWindowState = wsNormal then begin
+      Form.BoundsRect := FormNormalSize;
+    end else
+    if FormWindowState = wsMaximized then begin
+      Form.BoundsRect := FormRestoredSize;
+      Form.WindowState := wsMaximized;
+    end;
+  end;
 end;