diff options
Diffstat (limited to 'extras/tiopf/gui/tiGUIINI.pas')
-rw-r--r-- | extras/tiopf/gui/tiGUIINI.pas | 34 |
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. |