* minor adjustment to tiGUIIni

1 files changed, 20 insertions, 14 deletions

diff --git a/extras/tiopf/gui/tiGUIINI.pas b/extras/tiopf/gui/tiGUIINI.pas
index 8340b25d..4d13a989 100644
--- a/extras/tiopf/gui/tiGUIINI.pas
+++ b/extras/tiopf/gui/tiGUIINI.pas
@@ -67,20 +67,26 @@ begin
     else
       AForm.WindowPosition := wpScreenCenter;
   end;
-  // Only set the form size if a bsSizable window
-  if AForm.Sizeable then
-  begin
-    if AHeight = -1 then
-      LHeight := AForm.Height
-    else
-      LHeight := AHeight;
-    if AWidth = -1 then
-      LWidth := AForm.Width
-    else
-      LWidth := AWidth;
-    AForm.Height  := readInteger(LINISection, 'Height', LHeight);
-    AForm.Width   := readInteger(LINISection, 'Width',  LWidth);
-  end;
+
+  { 2008-11-20 graemeg: disabled Width and Height settings for now. It causes
+    major headaches, plus in most applications the forms have been designed
+    with specific sizes for best look and fit. The user can still adjust sizes
+    at runtime, they will just not be remembered. I will attend to this issue
+    at a later date. }
+    // Only set the form size if a bsSizable window
+  //if AForm.Sizeable then
+  //begin
+    //if AHeight = -1 then
+      //LHeight := AForm.Height
+    //else
+      //LHeight := AHeight;
+    //if AWidth = -1 then
+      //LWidth := AForm.Width
+    //else
+      //LWidth := AWidth;
+    //AForm.Height  := readInteger(LINISection, 'Height', LHeight);
+    //AForm.Width   := readInteger(LINISection, 'Width',  LWidth);
+  //end;
 
   // If the form is off screen (positioned outside all monitor screens) then
   // center the form on screen.