Changeset 308

Timestamp:

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

Author:

chronos

Message:

• Modified: Better scaled bitmaps drawing.

Location:

branches/highdpi

Files:

• Packages/DpiControls/UDpiControls.pas (modified) (3 diffs)
• Start.pas (modified) (2 diffs)

branches/highdpi/Packages/DpiControls/UDpiControls.pas

@@ -9 +9 @@
   Controls, StdCtrls, fgl, Graphics, ComCtrls, ExtCtrls, LCLType, GraphType,
   Types, CustApp, LMessages, LCLIntf, Menus, Math, UPixelPointer2;
+
+const
+  FixedDpi = -1;
 
 type
@@ -1071 +1074 @@
 function ScaleToNative(Value: Integer): Integer;
 begin
-  Result := Round(Value * DpiScreen.Dpi / 96);
+  Result := Trunc(Value * DpiScreen.Dpi / 96);
 end;
 
@@ -3068 +3071 @@
 procedure TDpiScreen.UpdateScreen;
 begin
-  Dpi := Screen.PixelsPerInch;
+  if FixedDpi = -1 then Dpi := Screen.PixelsPerInch
+    else Dpi := FixedDpi;
 end;
 

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;