ReadFormState in INI handling can now ignore size dimensions if needed.

This is handy if you apply version version information to your
ini files, and on a new version the program must ignore the
old size values (because that sepecific form might have changed
dimensions at design time).

1 files changed, 5 insertions, 3 deletions

diff --git a/src/gui/fpg_iniutils.pas b/src/gui/fpg_iniutils.pas
index 857ccf63..13ee30d0 100644
--- a/src/gui/fpg_iniutils.pas
+++ b/src/gui/fpg_iniutils.pas
@@ -42,7 +42,7 @@ type
     function    ReadDateTime(const ASection, AName: string; ADefault: TDateTime): TDateTime; override;
     function    ReadFloat(const ASection, AName: string; ADefault: double): double; override;
     function    ReadTime(const ASection, AName: string; ADefault: TDateTime): TDateTime; override;
-    procedure   ReadFormState(AForm: TfpgForm; AHeight: integer = -1; AWidth: integer = -1);
+    procedure   ReadFormState(AForm: TfpgForm; AHeight: integer = -1; AWidth: integer = -1; const ASkipDimensions: Boolean = False);
     procedure   WriteFormState(AForm: TfpgForm);
   end;
 
@@ -158,7 +158,7 @@ begin
 end;
 
 // Do NOT localize
-procedure TfpgINIFile.ReadFormState(AForm: TfpgForm; AHeight: integer; AWidth: integer);
+procedure TfpgINIFile.ReadFormState(AForm: TfpgForm; AHeight: integer; AWidth: integer; const ASkipDimensions: Boolean = False);
 var
   LINISection: string;
   LTop: integer;
@@ -184,7 +184,7 @@ begin
   else
     AForm.WindowPosition := wpScreenCenter;
   // Only set the form size if a bsSizable window
-  if AForm.Sizeable then
+  if AForm.Sizeable and (not ASkipDimensions) then
   begin
     if AHeight = -1 then
       LHeight := AForm.Height
@@ -197,6 +197,8 @@ begin
     AForm.Height := readInteger(LINISection, 'Height', LHeight);
     AForm.Width := readInteger(LINISection, 'Width', LWidth);
   end;
+  AForm.UpdateWindowPosition;
+
   //  AForm.WindowState := TWindowState(ReadInteger(LINISection, 'WindowState', ord(wsNormal)));
 
   // If the form is off screen (positioned outside all monitor screens) then