Changeset 331 for trunk/LocalPlayer/IsoEngine.pas

Timestamp:

Mar 26, 2021, 3:24:15 PM (4 years ago)

Author:

chronos

Message:

• Modified: Player border tile preparation code for bitmap color replacement moved to ScreenTools.

File:

• trunk/LocalPlayer/IsoEngine.pas (modified) (2 diffs)

trunk/LocalPlayer/IsoEngine.pas

@@ -1093 +1093 @@
   var
     dx, dy: integer;
-    PixelPtr: TPixelPointer;
   begin
     if ShowBorder and (Loc >= 0) and (Loc < G.lx * G.ly) and
@@ -1104 +1103 @@
             yyt * 2, HGrTerrain.Data.Canvas,
             1 + 8 * (xxt * 2 + 1), 1 + yyt + 16 * (yyt * 3 + 1));
-          Borders.BeginUpdate;
-          PixelPtr := PixelPointer(Borders, ScaleToNative(0), ScaleToNative(p1 * (yyt * 2)));
-          for dy := 0 to ScaleToNative(yyt * 2) - 1 do begin
-            for dx := 0 to ScaleToNative(xxt * 2) - 1 do begin
-              if PixelPtr.Pixel^.B = 99 then begin
-                PixelPtr.Pixel^.B := Tribe[p1].Color shr 16 and $FF;
-                PixelPtr.Pixel^.G := Tribe[p1].Color shr 8 and $FF;
-                PixelPtr.Pixel^.R := Tribe[p1].Color and $FF;
-              end;
-              PixelPtr.NextPixel;
-            end;
-            PixelPtr.NextLine;
-          end;
-          Borders.EndUpdate;
+          BitmapReplaceColor(Borders, 0, p1 * (yyt * 2), xxt * 2, yyt * 2, $636363, Tribe[p1].Color);
           BordersOK^ := BordersOK^ or 1 shl p1;
         end;