Changeset 180 for branches/highdpi/Packages/CevoComponents/ButtonN.pas

Timestamp:

Jun 23, 2019, 11:57:39 PM (5 years ago)

Author:

chronos

Message:

• Modified: More scaling in CevoComponents.

File:

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

branches/highdpi/Packages/CevoComponents/ButtonN.pas

@@ -62 +62 @@
     if FGraphic <> nil then
     begin
-      BitBlt(Canvas.Handle, 1, 1, 40, 40, FBackGraphic.Canvas.Handle,
+      DpiBitBlt(Canvas.Handle, 1, 1, 40, 40, FBackGraphic.Canvas.Handle,
         1 + 80 * BackIndex + 40 * byte(FPossible and FLit), 176, SRCCOPY);
       if FPossible then
       begin
-        BitBlt(Canvas.Handle, 3, 3, 36, 36, FMask.Canvas.Handle,
+        DpiBitBlt(Canvas.Handle, 3, 3, 36, 36, FMask.Canvas.Handle,
           195 + 37 * (FIndex mod 3), 21 + 37 * (FIndex div 3), SRCAND);
-        BitBlt(Canvas.Handle, 3, 3, 36, 36, FGraphic.Canvas.Handle,
+        DpiBitBlt(Canvas.Handle, 3, 3, 36, 36, FGraphic.Canvas.Handle,
           195 + 37 * (FIndex mod 3), 21 + 37 * (FIndex div 3), SRCPAINT);
       end