Changeset 188 for trunk/Packages/CevoComponents/EOTButton.pas

Timestamp:

May 6, 2020, 11:21:12 PM (4 years ago)

Author:

chronos

Message:

• Modified: Simplified code by replacing BitBlt which uses always handles by BitBltCanvas which uses directly TCanvas objects. Used default ROP SRCCOPY.

File:

• trunk/Packages/CevoComponents/EOTButton.pas (modified) (4 diffs)

trunk/Packages/CevoComponents/EOTButton.pas

@@ -38 +38 @@
 procedure Register;
 
+
 implementation
+
+uses
+  ScreenTools;
 
 procedure Register;
@@ -125 +129 @@
     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,
-      //  0, SRCCOPY);
+      //BitBltCanvas(Buffer.Canvas, 0, 0, 48, 48, Back.Canvas, 0, 0);
       Buffer.Canvas.Draw(0, 0, Back);
       ImageOp_CBC(Buffer, Template, 0, 0, 133, 149 + 48 * Byte(FDown), 48, 48,
@@ -133 +136 @@
         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);
+      BitBltCanvas(Canvas, 0, 0, 48, 48, Buffer.Canvas, 0, 0);
     end
     else
@@ -165 +168 @@
 procedure TEOTButton.SetBack(ca: TCanvas; x, y: integer);
 begin
-  BitBlt(Back.Canvas.Handle, 0, 0, 48, 48, ca.Handle, x, y, SRCCOPY);
+  BitBltCanvas(Back.Canvas, 0, 0, 48, 48, ca, x, y);
 end;