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

Timestamp:

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

Author:

chronos

Message:

• Modified: Improved scaling support.

File:

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

branches/highdpi/Packages/CevoComponents/ButtonB.pas

@@ -44 +44 @@
     if FGraphic <> nil then
     begin
-      BitBlt(Canvas.Handle, 0, 0, 25, 25, FGraphic.Canvas.Handle, 169,
+      DpiBitBlt(Canvas.Handle, 0, 0, 25, 25, FGraphic.Canvas.Handle, 169,
         243 + 26 * Byte(FDown), SRCCOPY);
       if FIndex >= 0 then
       begin
-        BitBlt(Canvas.Handle, 0, 0, 25, 25, FMask.Canvas.Handle,
+        DpiBitBlt(Canvas.Handle, 0, 0, 25, 25, FMask.Canvas.Handle,
           1 + FIndex mod 12 * 26, 337 + FIndex div 12 * 26, SRCAND);
-        BitBlt(Canvas.Handle, 0, 0, 25, 25, FGraphic.Canvas.Handle,
+        DpiBitBlt(Canvas.Handle, 0, 0, 25, 25, FGraphic.Canvas.Handle,
           1 + FIndex mod 12 * 26, 337 + FIndex div 12 * 26, SRCPAINT);
       end