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

Timestamp:

May 10, 2018, 9:39:53 AM (7 years ago)

Author:

chronos

Message:

• Modified: Updated Common package.

File:

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

trunk/Packages/Common/UPersistentForm.pas

@@ -56 +56 @@
   I: Integer;
   WinControl: TWinControl;
-  Count: Integer;
 begin
   if Control is TListView then begin
@@ -217 +216 @@
 
 procedure TPersistentForm.Load(Form: TForm; DefaultMaximized: Boolean = False);
-var
-  LoadDefaults: Boolean;
 begin
   Self.Form := Form;
@@ -230 +227 @@
 
   if not EqualRect(FormNormalSize, FormRestoredSize) or
-    (LoadDefaults and DefaultMaximized) then begin
+    DefaultMaximized then begin
     // Restore to maximized state
     Form.WindowState := wsNormal;