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

trunk/Packages/CevoComponents/ButtonB.pas

@@ -28 +28 @@
 implementation
 
+uses
+  ScreenTools;
+
 procedure Register;
 begin
@@ -44 +47 @@
   with Canvas do
     if FGraphic <> nil then begin
-      BitBlt(Canvas.Handle, 0, 0, 25, 25, FGraphic.Canvas.Handle, 169,
-        243 + 26 * Byte(FDown), SRCCOPY);
+      BitBltCanvas(Canvas, 0, 0, 25, 25, FGraphic.Canvas, 169,
+        243 + 26 * Byte(FDown));
       if FIndex >= 0 then begin
-        BitBlt(Canvas.Handle, 0, 0, 25, 25, FMask.Canvas.Handle,
+        BitBltCanvas(Canvas, 0, 0, 25, 25, FMask.Canvas,
           1 + FIndex mod 12 * 26, 337 + FIndex div 12 * 26, SRCAND);
-        BitBlt(Canvas.Handle, 0, 0, 25, 25, FGraphic.Canvas.Handle,
+        BitBltCanvas(Canvas, 0, 0, 25, 25, FGraphic.Canvas,
           1 + FIndex mod 12 * 26, 337 + FIndex div 12 * 26, SRCPAINT);
       end