Changeset 188 for trunk/Packages/CevoComponents/ButtonA.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/ButtonA.pas (modified) (2 diffs)

trunk/Packages/CevoComponents/ButtonA.pas

@@ -4 +4 @@
 
 uses
-  ButtonBase, Classes, Graphics, LCLIntf, LCLType;
+  ButtonBase, Classes, Graphics, LCLIntf, LCLType, ScreenTools;
 
 type
@@ -45 +45 @@
     if FGraphic <> nil then
     begin
-      BitBlt(Canvas.Handle, 0, 0, 100, 25, Graphic.Canvas.Handle, 195,
-        243 + 26 * Byte(Down), SRCCOPY);
+      BitBltCanvas(Canvas, 0, 0, 100, 25, Graphic.Canvas, 195,
+        243 + 26 * Byte(Down));
       Canvas.Brush.Style := bsClear;
       Textout(50 - (TextWidth(FCaption) + 1) div 2, 12 - textheight(FCaption)