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

Timestamp:

Feb 24, 2024, 8:04:26 PM (9 months ago)

Author:

chronos

Message:

• Modified: Use BitBltBitmap instead of BitBltCanvas if possible.

File:

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

trunk/Packages/CevoComponents/EOTButton.pas

@@ -21 +21 @@
     destructor Destroy; override;
     procedure SetButtonIndexFast(X: Integer);
-    procedure SetBack(ca: TCanvas; X, Y: Integer);
+    procedure SetBack(Canvas: TCanvas; X, Y: Integer);
   private
     FTemplate: TBitmap;
@@ -77 +77 @@
     if FGraphic <> nil then begin
       UnshareBitmap(Buffer);
-      BitBltCanvas(Buffer.Canvas, 0, 0, 48, 48, Back.Canvas, 0, 0);
+      BitBltBitmap(Buffer, 0, 0, 48, 48, Back, 0, 0);
       ImageOp_CBC(Buffer, Template, 0, 0, 133, 149 + 48 * Byte(FDown), 48, 48,
         $000000, $FFFFFF);
@@ -109 +109 @@
 end;
 
-procedure TEOTButton.SetBack(ca: TCanvas; X, Y: Integer);
+procedure TEOTButton.SetBack(Canvas: TCanvas; X, Y: Integer);
 begin
-  BitBltCanvas(Back.Canvas, 0, 0, 48, 48, ca, X, Y);
+  BitBltCanvas(Back.Canvas, 0, 0, 48, 48, Canvas, X, Y);
 end;