Changeset 533 for trunk/Start.pas

Timestamp:

Apr 12, 2024, 8:58:58 PM (7 months ago)

Author:

chronos

Message:

• Fixed: Eliminated unwanted second map resize and redraw during displaying of the main game window.

File:

• trunk/Start.pas (modified) (2 diffs)

trunk/Start.pas

@@ -407 +407 @@
       else ScreenMode := 1;
     FullScreen := ScreenMode > 0;
+    if ValueExists('TermLeft') then TermBounds.Left := ReadInteger('TermLeft')
+      else TermBounds.Left := 0;
+    if ValueExists('TermTop') then TermBounds.Top := ReadInteger('TermTop')
+      else TermBounds.Top := 0;
+    if ValueExists('TermWidth') then TermBounds.Width := ReadInteger('TermWidth')
+      else TermBounds.Width := 800;
+    if ValueExists('TermHeight') then TermBounds.Height := ReadInteger('TermHeight')
+      else TermBounds.Height := 480;
+
     if ValueExists('MultiControl') then
       MultiControl := ReadInteger('MultiControl')
@@ -444 +453 @@
     if FullScreen then WriteInteger('ScreenMode', 1)
       else WriteInteger('ScreenMode', 0);
+    WriteInteger('TermWidth', TermBounds.Width);
+    WriteInteger('TermHeight', TermBounds.Height);
+    WriteInteger('TermLeft', TermBounds.Left);
+    WriteInteger('TermTop', TermBounds.Top);
     WriteInteger('MultiControl', MultiControl);
     WriteInteger('StartTab', Integer(ShowTab));