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

Timestamp:

Jan 6, 2024, 12:07:04 AM (4 months ago)

Author:

chronos

Message:

• Fixed: Make fractional scaling work also on Windows.
• Modified: By default use system DPI setting.

File:

• trunk/Packages/CevoComponents/ScreenTools.pas (modified) (2 diffs)

trunk/Packages/CevoComponents/ScreenTools.pas

@@ -892 +892 @@
 begin
   {$IFDEF WINDOWS}
-  // LCLIntf.BitBlt is slower than direct Windows BitBlt
-  Result := Windows.BitBlt(DestCanvas.Handle, ScaleToNative(X), ScaleToNative(Y),
-    ScaleToNative(Width), ScaleToNative(Height), SrcCanvas.Handle,
-    ScaleToNative(XSrc), ScaleToNative(YSrc), Rop);
+    {$IFDEF DPI}
+    Result := BitBlt(DestCanvas.Handle, X, Y, Width, Height, SrcCanvas.Handle, XSrc, YSrc, Rop);
+    {$ELSE}
+    // LCLIntf.BitBlt is slower than direct Windows BitBlt
+    Result := Windows.BitBlt(DestCanvas.Handle, ScaleToNative(X), ScaleToNative(Y),
+      ScaleToNative(Width), ScaleToNative(Height), SrcCanvas.Handle,
+      ScaleToNative(XSrc), ScaleToNative(YSrc), Rop);
+    {$ENDIF}
   {$ELSE}
   Result := BitBlt(DestCanvas.Handle, X, Y, Width, Height, SrcCanvas.Handle, XSrc, YSrc, Rop);
@@ -1788 +1792 @@
     {$IFDEF DPI}
     if CustomDpiEnabled then Screen.Dpi := CustomDpi
-      else Screen.Dpi := 96; //Screen.GetSystemDpi;
+      else Screen.Dpi := Screen.GetSystemDpi;
     {$ENDIF}
   finally