Changeset 247 for branches/highdpi/Packages/CevoComponents/ScreenTools.pas

Timestamp:

May 21, 2020, 10:30:59 PM (4 years ago)

Author:

chronos

Message:

• Modified: Enabled scaling under Windows.
• Fixed: Use correct scaled Windows BitBlt.
• Modified: Fixed and optimized help watermark method.

File:

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

branches/highdpi/Packages/CevoComponents/ScreenTools.pas

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