Changeset 477 for trunk/Packages/CevoComponents/ScreenTools.pas

Timestamp:

Dec 4, 2023, 11:33:25 PM (12 months ago)

Author:

chronos

Message:

• Fixed: Scaling on Windows.

File:

• trunk/Packages/CevoComponents/ScreenTools.pas (modified) (1 diff)

trunk/Packages/CevoComponents/ScreenTools.pas

@@ -874 +874 @@
   {$IFDEF WINDOWS}
   // LCLIntf.BitBlt is slower than direct Windows BitBlt
-  Result := Windows.BitBlt(DestCanvas.Handle, X, Y, Width, Height, SrcCanvas.Handle, XSrc, YSrc, Rop);
+  Result := Windows.BitBlt(DestCanvas.Handle, ScaleToNative(X), ScaleToNative(Y),
+    ScaleToNative(Width), ScaleToNative(Height), SrcCanvas.Handle,
+    ScaleToNative(XSrc), ScaleToNative(YSrc), Rop);
   {$ELSE}
   Result := BitBlt(DestCanvas.Handle, X, Y, Width, Height, SrcCanvas.Handle, XSrc, YSrc, Rop);