Changeset 179 for branches/highdpi/Packages/CevoComponents/ButtonC.pas

Timestamp:

Jun 23, 2019, 9:12:54 PM (5 years ago)

Author:

chronos

Message:

• Modified: Improved scaling support.

File:

• branches/highdpi/Packages/CevoComponents/ButtonC.pas (modified) (2 diffs)

branches/highdpi/Packages/CevoComponents/ButtonC.pas

@@ -4 +4 @@
 
 uses
-  ButtonBase,
-  Classes, Graphics, LCLIntf, LCLType;
+  ButtonBase, Classes, Graphics, LCLIntf, LCLType, UDpiControls;
 
 type
@@ -41 +40 @@
   with Canvas do
     if FGraphic <> nil then
-      BitBlt(Canvas.Handle, 0, 0, 12, 12, FGraphic.Canvas.Handle,
+      DpiBitBlt(Canvas.Handle, 0, 0, 12, 12, FGraphic.Canvas.Handle,
         169 + 13 * Byte(FDown), 159 + 13 * FIndex, SRCCOPY)
     else