Changeset 308 for branches/highdpi/Start.pas

Timestamp:

Mar 9, 2021, 9:13:07 PM (4 years ago)

Author:

chronos

Message:

• Modified: Better scaled bitmaps drawing.

File:

• branches/highdpi/Start.pas (modified) (2 diffs)

branches/highdpi/Start.pas

@@ -380 +380 @@
   MiniPixel: TPixelPointer;
   PrevMiniPixel: TPixelPointer;
+  TerrainTile: Cardinal;
 begin
   OwnColor := GrExt[HGrSystem].Data.Canvas.Pixels[95, 67];
@@ -415 +416 @@
               cm := OwnColor
             else cm := EnemyColor
-          else
-            cm := Colors[Tile and fTerrain, i];
+          else begin
+            TerrainTile := Tile and fTerrain;
+            if TerrainTile > 11 then TerrainTile := 0;
+            cm := Colors[TerrainTile, i];
+          end;
           MiniPixel.Pixel^.B := (cm shr 16) and $ff;
           MiniPixel.Pixel^.G := (cm shr 8) and $ff;