Changeset 331 for trunk/LocalPlayer

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.

Location:

trunk/LocalPlayer

Files:

• Help.pas (modified) (1 diff)
• IsoEngine.pas (modified) (2 diffs)

trunk/LocalPlayer/Help.pas

@@ -771 +771 @@
                   xxt * 2 - 8, yyt * 2 - 4, 5 + 2 * (xxt * 2 + 1),
                   3 + yyt + 2 * (yyt * 3 + 1));
-                srcno := 45
+                srcno := 45;
               end
               else

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;