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

trunk/Packages/CevoComponents/ButtonN.pas

@@ -4 +4 @@
 
 uses
-  Classes, Graphics, Controls, LCLIntf, LCLType;
+  Classes, Graphics, Controls, LCLIntf, LCLType, ScreenTools;
 
 type
@@ -62 +62 @@
     if FGraphic <> nil then
     begin
-      BitBlt(Canvas.Handle, 1, 1, 40, 40, FBackGraphic.Canvas.Handle,
-        1 + 80 * BackIndex + 40 * byte(FPossible and FLit), 176, SRCCOPY);
+      BitBltCanvas(Canvas, 1, 1, 40, 40, FBackGraphic.Canvas,
+        1 + 80 * BackIndex + 40 * byte(FPossible and FLit), 176);
       if FPossible then
       begin
-        BitBlt(Canvas.Handle, 3, 3, 36, 36, FMask.Canvas.Handle,
+        BitBltCanvas(Canvas, 3, 3, 36, 36, FMask.Canvas,
           195 + 37 * (FIndex mod 3), 21 + 37 * (FIndex div 3), SRCAND);
-        BitBlt(Canvas.Handle, 3, 3, 36, 36, FGraphic.Canvas.Handle,
+        BitBltCanvas(Canvas, 3, 3, 36, 36, FGraphic.Canvas,
           195 + 37 * (FIndex mod 3), 21 + 37 * (FIndex div 3), SRCPAINT);
       end;