Changeset 533 for trunk/LocalPlayer/IsoEngine.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/LocalPlayer/IsoEngine.pas (modified) (4 diffs)

trunk/LocalPlayer/IsoEngine.pas

@@ -380 +380 @@
     for Y := -2 to 6 do
       BitBltBitmap(LandPatch, (X + 2) * (xxt * 2), (Y + 2) * yyt, xxt,
-        yyt, HGrTerrain.Data, xSrc + xxt, ySrc + yyt,
-        SRCPAINT);
+        yyt, HGrTerrain.Data, xSrc + xxt, ySrc + yyt, SRCPAINT);
     for Y := -2 to 6 do
       BitBltBitmap(LandPatch, (X + 2) * (xxt * 2) + xxt, (Y + 2) * yyt,
-        xxt, yyt, HGrTerrain.Data, xSrc, ySrc + yyt,
-        SRCPAINT);
+        xxt, yyt, HGrTerrain.Data, xSrc, ySrc + yyt, SRCPAINT);
     for Y := -2 to 6 do
       BitBltBitmap(LandPatch, (X + 2) * (xxt * 2), (Y + 2) * yyt, xxt,
@@ -413 +411 @@
     for X := 0 to 7 do
       BitBltBitmap(LandMore, (X + 2) * (xxt * 2) - xxt, (Y + 2) * yyt,
-        xxt * 2, yyt, HGrTerrain.Data, xSrc, ySrc + yyt,
-        SRCPAINT);
+        xxt * 2, yyt, HGrTerrain.Data, xSrc, ySrc + yyt, SRCPAINT);
     for X := -2 to 6 do
       BitBltBitmap(LandMore, (X + 2) * (xxt * 2), (Y + 2) * yyt,
@@ -432 +429 @@
       begin
         BitBltBitmap(OceanPatch, X * (xxt * 2), Y * yyt, xxt, yyt,
-          HGrTerrain.Data, xSrc + xxt, ySrc + yyt,
-          SRCPAINT);
+          HGrTerrain.Data, xSrc + xxt, ySrc + yyt, SRCPAINT);
         BitBltBitmap(OceanPatch, X * (xxt * 2) + xxt, Y * yyt, xxt, yyt,
           HGrTerrain.Data, xSrc, ySrc + yyt, SRCPAINT);
@@ -456 +452 @@
       begin
         BitBltBitmap(OceanMore, X * (xxt * 2), Y * yyt, xxt, yyt,
-          HGrTerrain.Data, xSrc + xxt, ySrc + yyt,
-          SRCPAINT);
+          HGrTerrain.Data, xSrc + xxt, ySrc + yyt, SRCPAINT);
         BitBltBitmap(OceanMore, X * (xxt * 2) + xxt, Y * yyt, xxt, yyt,
           HGrTerrain.Data, xSrc, ySrc + yyt, SRCPAINT);