Changeset 523 for trunk/LocalPlayer/Term.pas

Timestamp:

Jan 7, 2024, 11:23:36 PM (4 months ago)

Author:

chronos

Message:

• Fixed: Avoid repeatedly calling Term form resize and repaint in case of fractional scaling.

File:

• trunk/LocalPlayer/Term.pas (modified) (6 diffs)

trunk/LocalPlayer/Term.pas

@@ -4789 +4789 @@
           else if xw > xwd then
             ProcessRect((xwd + MapWidth div (xxt * 2)) mod G.lx, ywd,
-              (xw - xwd) * 2 + 1, MapHeight div yyt - ywd + yw, ProcessOptions)
+              (xw - xwd) * 2 + 1, MapHeight div yyt - ywd + yw, ProcessOptions);
         end
         else if yw > ywd then begin
@@ -4957 +4957 @@
         ImpImage(Panel.Canvas, ClientWidth - xPalace, yPalace, imPalace, -1,
           GameMode <> cMovie
-          { (GameMode<>cMovie) and (MyRO.Government<>gAnarchy) } )
+          { (GameMode <> cMovie) and (MyRO.Government <> gAnarchy) } )
       else
         ImpImage(Panel.Canvas, ClientWidth - xPalace, yPalace, 21, -1,
           GameMode <> cMovie
-          { (GameMode<>cMovie) and (MyRO.Government<>gAnarchy) } );
+          { (GameMode <> cMovie) and (MyRO.Government <> gAnarchy) } );
     end;
 
@@ -4995 +4995 @@
           xSrcBase := -1;
           case BrushTypes[I] of
-            0 .. 8:
+            0..8:
               begin
                 xSrc := BrushTypes[I];
-                ySrc := 0
+                ySrc := 0;
               end;
-            9 .. 30:
+            9..30:
               begin
                 xSrcBase := 2;
@@ -5010 +5010 @@
               begin
                 xSrc := 7;
-                ySrc := 14
+                ySrc := 14;
               end;
             fRoad:
               begin
                 xSrc := 0;
-                ySrc := 9
+                ySrc := 9;
               end;
             fRR:
               begin
                 xSrc := 0;
-                ySrc := 10
+                ySrc := 10;
               end;
             fCanal:
               begin
                 xSrc := 0;
-                ySrc := 11
+                ySrc := 11;
               end;
             fPoll:
               begin
                 xSrc := 6;
-                ySrc := 12
+                ySrc := 12;
               end;
             fDeadLands, fDeadLands or fCobalt, fDeadLands or fUranium,
@@ -5043 +5043 @@
               begin
                 xSrc := BrushTypes[I] shr 12 - 1;
-                ySrc := 12
+                ySrc := 12;
               end;
             tiFort:
@@ -5050 +5050 @@
                 ySrc := 12;
                 xSrcBase := 7;
-                ySrcBase := 12
+                ySrcBase := 12;
               end;
             fPrefStartPos:
               begin
                 xSrc := 0;
-                ySrc := 1
+                ySrc := 1;
               end;
             fStartPos:
               begin
                 xSrc := 0;
-                ySrc := 2
+                ySrc := 2;
               end;
           end;