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

trunk/Packages/CevoComponents/ButtonC.pas

@@ -4 +4 @@
 
 uses
-  ButtonBase, Classes, Graphics, LCLIntf, LCLType;
+  ButtonBase, Classes, Graphics, LCLIntf, LCLType, ScreenTools;
 
 type
@@ -21 +21 @@
 
 procedure Register;
+
 
 implementation
@@ -40 +41 @@
   with Canvas do
     if FGraphic <> nil then
-      BitBlt(Canvas.Handle, 0, 0, 12, 12, FGraphic.Canvas.Handle,
-        169 + 13 * Byte(FDown), 159 + 13 * FIndex, SRCCOPY)
+      BitBltCanvas(Canvas, 0, 0, 12, 12, FGraphic.Canvas,
+        169 + 13 * Byte(FDown), 159 + 13 * FIndex)
     else
     begin