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

Timestamp:

May 22, 2018, 9:43:29 AM (6 years ago)

Author:

chronos

Message:

• Fixed: Keep correctly main form dimensions in non-maximized state. Scaling DPI was affecting its size and position.
• Added: Remember last opened tab in New game form.

File:

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

trunk/Packages/Common/UPersistentForm.pas

@@ -19 +19 @@
     FMinVisiblePart: Integer;
     FRegistryContext: TRegistryContext;
+    FirstLoad: Boolean;
     procedure LoadControl(Control: TControl);
     procedure SaveControl(Control: TControl);
@@ -119 +120 @@
     RootKey := RegistryContext.RootKey;
     OpenKey(RegistryContext.Key + '\Forms\' + Form.Name, True);
+    FirstLoad := not ValueExists('WindowState');
     // Normal size
     FormNormalSize.Left := ReadIntegerWithDefault('NormalLeft', FormNormalSize.Left);
@@ -227 +229 @@
 
   if not EqualRect(FormNormalSize, FormRestoredSize) or
-    DefaultMaximized then begin
+    (DefaultMaximized and FirstLoad) then begin
     // Restore to maximized state
     Form.WindowState := wsNormal;
@@ -263 +265 @@
   FMinVisiblePart := 50;
   FRegistryContext.RootKey := HKEY_CURRENT_USER;
+  FirstLoad := False;
 end;