Changeset 538 for trunk/Packages/DpiControls/Dpi.Graphics.pas

Timestamp:

Apr 16, 2024, 10:57:39 AM (4 weeks ago)

Author:

chronos

Message:

• Fixed: Map drawing in case of fractional scaling.

File:

• trunk/Packages/DpiControls/Dpi.Graphics.pas (modified) (1 diff)

trunk/Packages/DpiControls/Dpi.Graphics.pas

@@ -692 +692 @@
   SrcPtr: TPixelPointer;
   DstPtr: TPixelPointer;
-  xx, yy: Integer;
-  SrcX, SrcY: Integer;
-  DstX, DstY: Integer;
-  DstWidth, DstHeight: Integer;
-begin
-  //Dst.Canvas.StretchDraw(Rect(0, 0, ScaleToNative(Dst.Width), ScaleToNative(Dst.Height)), Src);
-  //Exit;
+  XX, YY: Integer;
+  DstPixelX, DstPixelY: Integer;
+  DstPixelWidth, DstPixelHeight: Integer;
+begin
   Dst.BeginUpdate;
   SrcPtr := TPixelPointer.Create(Src, 0, 0);
   DstPtr := TPixelPointer.Create(Dst, 0, 0);
-  {for yy := 0 to Dst.Height - 1 do begin
-    for xx := 0 to Dst.Width - 1 do begin
-      SrcPtr.SetXY(Min(ScaleFromNative(xx), Src.Width - 1),
-        Min(ScaleFromNative(yy), Src.Height - 1));
-      DstPtr.PixelB := SrcPtr.PixelB;
-      DstPtr.PixelG := SrcPtr.PixelG;
-      DstPtr.PixelR := SrcPtr.PixelR;
-      DstPtr.NextPixel;
-    end;
-    DstPtr.NextLine;
-  end;
-  }
-  for SrcY := 0 to Src.Height - 1 do begin
-    DstHeight := ScaleToNative(SrcY + 1) - ScaleToNative(SrcY);
-    for DstY := 0 to DstHeight - 1 do begin
-      for SrcX := 0 to Src.Width - 1 do begin
-        DstWidth := ScaleToNative(SrcX + 1) - ScaleToNative(SrcX);
-        for DstX := 0 to DstWidth - 1 do begin
+  for YY := 0 to Src.Height - 1 do begin
+    DstPixelHeight := ScaleToNative(YY + 1) - ScaleToNative(YY);
+    for DstPixelY := 0 to DstPixelHeight - 1 do begin
+      for XX := 0 to Src.Width - 1 do begin
+        DstPixelWidth := ScaleToNative(XX + 1) - ScaleToNative(XX);
+        for DstPixelX := 0 to DstPixelWidth - 1 do begin
           DstPtr.PixelB := SrcPtr.PixelB;
           DstPtr.PixelG := SrcPtr.PixelG;