Changeset 180 for branches/highdpi/Packages/CevoComponents/EOTButton.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/EOTButton.pas (modified) (4 diffs)

branches/highdpi/Packages/CevoComponents/EOTButton.pas

@@ -37 +37 @@
 procedure Register;
 
+
 implementation
+
 
 procedure Register;
@@ -124 +126 @@
     begin
       // TODO: For some reason BitBlt is not working with gray background here
-      //BitBlt(Buffer.Canvas.Handle, 0, 0, 48, 48, Back.Canvas.Handle, 0,
+      //DpiBitBlt(Buffer.Canvas.Handle, 0, 0, 48, 48, Back.Canvas.Handle, 0,
       //  0, SRCCOPY);
       Buffer.Canvas.Draw(0, 0, Back);
@@ -132 +134 @@
         ImageOp_CBC(Buffer, Template, 8, 8, 1 + 32 * Byte(FIndex), 246, 32, 32,
           $000000, $FFFFFF);
-      BitBlt(Canvas.Handle, 0, 0, 48, 48, Buffer.Canvas.Handle, 0, 0, SRCCOPY);
+      DpiBitBlt(Canvas.Handle, 0, 0, 48, 48, Buffer.Canvas.Handle, 0, 0, SRCCOPY);
     end
     else
@@ -164 +166 @@
 procedure TEOTButton.SetBack(ca: TDpiCanvas; x, y: integer);
 begin
-  BitBlt(Back.Canvas.Handle, 0, 0, 48, 48, ca.Handle, x, y, SRCCOPY);
+  DpiBitBlt(Back.Canvas.Handle, 0, 0, 48, 48, ca.Handle, x, y, SRCCOPY);
 end;