Changeset 595 for trunk/MiniMap.pas

Timestamp:

Aug 11, 2024, 9:05:40 PM (3 months ago)

Author:

chronos

Message:

• Modified: Removed unused variables.

File:

• trunk/MiniMap.pas (modified) (1 diff)

trunk/MiniMap.pas

@@ -163 +163 @@
 procedure TMiniMap.PaintMap(Map: TMap);
 var
-  i, x, y, xm, cm, Tile, OwnColor, EnemyColor: integer;
+  i, x, y, xm, cm, Tile: Integer;
   MiniPixel: TPixelPointer;
   PrevMiniPixel: TPixelPointer;
   xx, yy: Integer;
 begin
-  OwnColor := HGrSystem.Data.Canvas.Pixels[95, 67];
-  EnemyColor := HGrSystem.Data.Canvas.Pixels[96, 67];
   Bitmap.PixelFormat := TPixelFormat.pf24bit;
   Bitmap.SetSize(Size.X * 2, Size.Y);