summaryrefslogtreecommitdiff
path: root/src/gui
diff options
context:
space:
mode:
Diffstat (limited to 'src/gui')
-rw-r--r--src/gui/gui_iniutils.pas9
1 files changed, 7 insertions, 2 deletions
diff --git a/src/gui/gui_iniutils.pas b/src/gui/gui_iniutils.pas
index 30123675..9bd204a8 100644
--- a/src/gui/gui_iniutils.pas
+++ b/src/gui/gui_iniutils.pas
@@ -218,8 +218,13 @@ begin
// writeInteger(LINISection, 'WindowState', ord(AForm.WindowState));
// if AForm.WindowState = wsNormal then
// begin
- writeInteger(LINISection, 'Top', AForm.Top);
- writeInteger(LINISection, 'Left', AForm.Left);
+
+ // A work-around while WindowState is not implemented
+ if (AForm.Top >= 0) or (AForm.Left >= 0) then
+ begin
+ writeInteger(LINISection, 'Top', AForm.Top);
+ writeInteger(LINISection, 'Left', AForm.Left);
+ end;
if AForm.Sizeable then
begin
writeInteger(LINISection, 'Height', AForm.Height);