Changeset 559 for trunk/Packages/DpiControls/Dpi.Common.pas

Timestamp:

Apr 25, 2024, 8:40:07 PM (3 weeks ago)

Author:

chronos

Message:

• Modified: Optimized BitBltBitmap scaling function.
• Modified: ScaleToNative made inline.

File:

• trunk/Packages/DpiControls/Dpi.Common.pas (modified) (8 diffs)

trunk/Packages/DpiControls/Dpi.Common.pas

@@ -25 +25 @@
 function SetWindowPos(hWnd: HWND; hWndInsertAfter: HWND;
   X, Y, cx, cy: Integer; uFlags: UINT): Boolean;
-function ScaleToNative(Value: Integer): Integer;
+function ScaleToNative(Value: Integer): Integer; inline;
 function ScaleToNativeDist(Base, Value: Integer): Integer;
 function ScaleFromNative(Value: Integer): Integer;
@@ -64 +64 @@
   DstPixelX, DstPixelY: Integer;
   DstPixelWidth, DstPixelHeight: Integer;
-  NewX, NewY: Integer;
+  NewY: Integer;
 begin
   if not Precise or (Frac(ScreenInfo.Dpi / 96) = 0) then begin
@@ -107 +107 @@
   Dest.BeginUpdate;
   SrcPixel := TPixelPointer.Create(Src.NativeBitmap);
-  DstPixel := TPixelPointer.Create(Dest.NativeBitmap);
+  DstPixel := TPixelPointer.Create(Dest.NativeBitmap, ScaleToNative(X), ScaleToNative(Y));
   if Rop = SRCCOPY then begin
     for YY := 0 to Height - 1 do begin
-      NewY := ScaleToNative(Y + YY);
-      DstPixelHeight := ScaleToNative(Y + YY + 1) - NewY;
       SrcPixel.SetXY(0, ScaleToNative(YSrc + YY));
+      DstPixelHeight := ScaleToNative(Y + YY + 1) - ScaleToNative(Y + YY);
       for DstPixelY := 0 to DstPixelHeight - 1 do begin
-        DstPixel.SetXY(0, NewY + DstPixelY);
         for XX := 0 to Width - 1 do begin
           SrcPixel.SetX(ScaleToNative(XSrc + XX));
-          NewX := ScaleToNative(X + XX);
-          DstPixel.SetX(NewX);
-          DstPixelWidth := ScaleToNative(X + XX + 1) - NewX;
+          DstPixelWidth := ScaleToNative(X + XX + 1) - ScaleToNative(X + XX);
           for DstPixelX := 0 to DstPixelWidth - 1 do begin
             DstPixel.PixelRGB := SrcPixel.PixelARGB;
@@ -125 +121 @@
           end;
         end;
+        DstPixel.NextLine;
       end;
     end;
@@ -130 +127 @@
   if Rop = SRCPAINT then begin
     for YY := 0 to Height - 1 do begin
-      NewY := ScaleToNative(Y + YY);
-      DstPixelHeight := ScaleToNative(Y + YY + 1) - NewY;
       SrcPixel.SetXY(0, ScaleToNative(YSrc + YY));
+      DstPixelHeight := ScaleToNative(Y + YY + 1) - ScaleToNative(Y + YY);
       for DstPixelY := 0 to DstPixelHeight - 1 do begin
-        DstPixel.SetXY(0, NewY + DstPixelY);
         for XX := 0 to Width - 1 do begin
           SrcPixel.SetX(ScaleToNative(XSrc + XX));
-          NewX := ScaleToNative(X + XX);
-          DstPixel.SetX(NewX);
-          DstPixelWidth := ScaleToNative(X + XX + 1) - NewX;
+          DstPixelWidth := ScaleToNative(X + XX + 1) - ScaleToNative(X + XX);
           for DstPixelX := 0 to DstPixelWidth - 1 do begin
-            DstPixel.PixelRGB := SrcPixel.PixelARGB or DstPixel.PixelARGB;
+            DstPixel.PixelRGB := DstPixel.PixelRGB or SrcPixel.PixelARGB;
             DstPixel.NextPixel;
           end;
         end;
+        DstPixel.NextLine;
       end;
     end;
@@ -150 +144 @@
   if Rop = SRCAND then begin
     for YY := 0 to Height - 1 do begin
-      NewY := ScaleToNative(Y + YY);
-      DstPixelHeight := ScaleToNative(Y + YY + 1) - NewY;
       SrcPixel.SetXY(0, ScaleToNative(YSrc + YY));
+      DstPixelHeight := ScaleToNative(Y + YY + 1) - ScaleToNative(Y + YY);
       for DstPixelY := 0 to DstPixelHeight - 1 do begin
-        DstPixel.SetXY(0, NewY + DstPixelY);
         for XX := 0 to Width - 1 do begin
           SrcPixel.SetX(ScaleToNative(XSrc + XX));
-          NewX := ScaleToNative(X + XX);
-          DstPixel.SetX(NewX);
-          DstPixelWidth := ScaleToNative(X + XX + 1) - NewX;
+          DstPixelWidth := ScaleToNative(X + XX + 1) - ScaleToNative(X + XX);
           for DstPixelX := 0 to DstPixelWidth - 1 do begin
-            DstPixel.PixelRGB := SrcPixel.PixelARGB and DstPixel.PixelARGB;
+            DstPixel.PixelRGB := DstPixel.PixelRGB and SrcPixel.PixelARGB;
             DstPixel.NextPixel;
           end;
         end;
+        DstPixel.NextLine;
       end;
     end;
@@ -170 +161 @@
   if Rop = DSTINVERT then begin
     for YY := 0 to Height - 1 do begin
-      NewY := ScaleToNative(Y + YY);
-      DstPixelHeight := ScaleToNative(Y + YY + 1) - NewY;
       SrcPixel.SetXY(0, ScaleToNative(YSrc + YY));
+      DstPixelHeight := ScaleToNative(Y + YY + 1) - ScaleToNative(Y + YY);
       for DstPixelY := 0 to DstPixelHeight - 1 do begin
-        DstPixel.SetXY(0, NewY + DstPixelY);
         for XX := 0 to Width - 1 do begin
           SrcPixel.SetX(ScaleToNative(XSrc + XX));
-          NewX := ScaleToNative(X + XX);
-          DstPixel.SetX(NewX);
-          DstPixelWidth := ScaleToNative(X + XX + 1) - NewX;
+          DstPixelWidth := ScaleToNative(X + XX + 1) - ScaleToNative(X + XX);
           for DstPixelX := 0 to DstPixelWidth - 1 do begin
-            DstPixel.PixelRGB := not DstPixel.PixelARGB;
+            DstPixel.PixelRGB := not DstPixel.PixelRGB;
             DstPixel.NextPixel;
           end;
         end;
+        DstPixel.NextLine;
       end;
     end;
@@ -236 +224 @@
 end;
 
-function ScaleToNative(Value: Integer): Integer;
+function ScaleToNative(Value: Integer): Integer; inline;
 begin
   Result := ScreenInfo.Lookup[Value];