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

Timestamp:

May 1, 2018, 10:18:03 AM (7 years ago)

Author:

chronos

Message:

• Modified: Updated newer Common package files.

File:

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

trunk/Packages/Common/UPersistentForm.pas

@@ -26 +26 @@
     FormWindowState: TWindowState;
     Form: TForm;
-    DefaultFormWindowState: TWindowState;
     procedure LoadFromRegistry(RegistryContext: TRegistryContext);
     procedure SaveToRegistry(RegistryContext: TRegistryContext);
     function CheckEntireVisible(Rect: TRect): TRect;
     function CheckPartVisible(Rect: TRect; Part: Integer): TRect;
-    procedure Load(Form: TForm; DefaultFormWindowState: TWindowState = wsNormal);
+    procedure Load(Form: TForm; DefaultMaximized: Boolean = False);
     procedure Save(Form: TForm);
     constructor Create(AOwner: TComponent); override;
@@ -135 +134 @@
       + FormRestoredSize.Top;
     // Other state
-    FormWindowState := TWindowState(ReadIntegerWithDefault('WindowState', Integer(DefaultFormWindowState)));
+    FormWindowState := TWindowState(ReadIntegerWithDefault('WindowState', Integer(wsNormal)));
   finally
     Free;
@@ -216 +215 @@
 end;
 
-procedure TPersistentForm.Load(Form: TForm; DefaultFormWindowState: TWindowState = wsNormal);
+procedure TPersistentForm.Load(Form: TForm; DefaultMaximized: Boolean = False);
 begin
   Self.Form := Form;
-  Self.DefaultFormWindowState := DefaultFormWindowState;
-
   // Set default
   FormNormalSize := Bounds((Screen.Width - Form.Width) div 2,
@@ -230 +227 @@
 
   if not EqualRect(FormNormalSize, FormRestoredSize) or
-    (FormWindowState = wsMaximized) then begin
+    DefaultMaximized then begin
     // Restore to maximized state
     Form.WindowState := wsNormal;