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

Timestamp:

Apr 16, 2024, 11:43:51 AM (4 weeks ago)

Author:

chronos

Message:

• Modified: Optimized scaled bitmap drawing.

File:

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

trunk/Packages/DpiControls/Dpi.Common.pas

@@ -66 +66 @@
   XNative, YNative: Integer;
   DstPixelWidth, DstPixelHeight: Integer;
+  NewX, NewY: Integer;
 begin
   if Frac(ScreenInfo.Dpi / 96) = 0 then
   begin
     // Use faster non-fractional scaling
-    Result := BitBlt(Dest.Canvas.Handle, X, Y, Width, Height, Src.Canvas.Handle, XSrc, YSrc, Rop);
+    Result := BitBlt(Dest.Canvas.Handle, X, Y, Width, Height, Src.Canvas.Handle,
+      XSrc, YSrc, Rop);
     Exit;
   end;
@@ -101 +103 @@
   SrcPixel := TPixelPointer.Create(Src.NativeBitmap);
   DstPixel := TPixelPointer.Create(Dest.NativeBitmap);
-  for YY := 0 to Height - 1 do begin
-    DstPixelHeight := ScaleToNative(Y + YY + 1) - ScaleToNative(Y + YY);
-    for DstPixelY := 0 to DstPixelHeight - 1 do begin
-      for XX := 0 to Width - 1 do begin
-        SrcPixel.SetXY(ScaleToNative(XSrc + XX), ScaleToNative(YSrc + YY));
-        DstPixel.SetXY(ScaleToNative(X + XX), ScaleToNative(Y + YY) + DstPixelY);
-        DstPixelWidth := ScaleToNative(X + XX + 1) - ScaleToNative(X + XX);
-        for DstPixelX := 0 to DstPixelWidth - 1 do begin
-{$IFDEF DEBUG}
-          if SrcPixel.PosValid and DstPixel.PosValid then
-{$ENDIF}
-            if Rop = SRCCOPY then begin
-              DstPixel.PixelB := SrcPixel.PixelB;
-              DstPixel.PixelG := SrcPixel.PixelG;
-              DstPixel.PixelR := SrcPixel.PixelR;
-            end else
-            if Rop = SRCPAINT then begin
-              DstPixel.PixelB := SrcPixel.PixelB or DstPixel.PixelB;
-              DstPixel.PixelG := SrcPixel.PixelG or DstPixel.PixelG;
-              DstPixel.PixelR := SrcPixel.PixelR or DstPixel.PixelR;
-            end else
-            if Rop = SRCAND then begin
-              DstPixel.PixelB := SrcPixel.PixelB and DstPixel.PixelB;
-              DstPixel.PixelG := SrcPixel.PixelG and DstPixel.PixelG;
-              DstPixel.PixelR := SrcPixel.PixelR and DstPixel.PixelR;
-            end else
-            if Rop = DSTINVERT then begin
-              DstPixel.PixelB := not DstPixel.PixelB;
-              DstPixel.PixelG := not DstPixel.PixelG;
-              DstPixel.PixelR := not DstPixel.PixelR;
-            end else begin
-              raise Exception.Create(SUnsupportedPaintOperationType);
-            end;
-          DstPixel.NextPixel;
+  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));
+      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;
+          for DstPixelX := 0 to DstPixelWidth - 1 do begin
+            DstPixel.PixelRGB := SrcPixel.PixelARGB;
+            DstPixel.NextPixel;
+          end;
         end;
       end;
-      //DstPixel.NextLine;
-    end;
-  end;
+    end;
+  end else
+  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));
+      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;
+          for DstPixelX := 0 to DstPixelWidth - 1 do begin
+            DstPixel.PixelRGB := SrcPixel.PixelARGB or DstPixel.PixelARGB;
+            DstPixel.NextPixel;
+          end;
+        end;
+      end;
+    end;
+  end else
+  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));
+      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;
+          for DstPixelX := 0 to DstPixelWidth - 1 do begin
+            DstPixel.PixelRGB := SrcPixel.PixelARGB and DstPixel.PixelARGB;
+            DstPixel.NextPixel;
+          end;
+        end;
+      end;
+    end;
+  end else
+  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));
+      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;
+          for DstPixelX := 0 to DstPixelWidth - 1 do begin
+            DstPixel.PixelRGB := not DstPixel.PixelARGB;
+            DstPixel.NextPixel;
+          end;
+        end;
+      end;
+    end;
+  end else raise Exception.Create(SUnsupportedPaintOperationType);
   Dest.EndUpdate;
   Result := True;