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

Timestamp:

Mar 23, 2021, 2:46:42 PM (3 years ago)

Author:

chronos

Message:

• Modified: Created single procedure for unshare/free bitmap before BitBlt use.

File:

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

trunk/Packages/CevoComponents/EOTButton.pas

@@ -74 +74 @@
 begin
   with Canvas do
-    if FGraphic <> nil then
-    begin
-      // TODO: For some reason BitBlt is not working with gray background here
-      //BitBltCanvas(Buffer.Canvas, 0, 0, 48, 48, Back.Canvas, 0, 0);
-      Buffer.Canvas.Draw(0, 0, Back);
+    if FGraphic <> nil then begin
+      UnshareBitmap(Buffer);
+      BitBltCanvas(Buffer.Canvas, 0, 0, 48, 48, Back.Canvas, 0, 0);
       ImageOp_CBC(Buffer, Template, 0, 0, 133, 149 + 48 * Byte(FDown), 48, 48,
         $000000, $FFFFFF);
@@ -85 +83 @@
           $000000, $FFFFFF);
       BitBltCanvas(Canvas, 0, 0, 48, 48, Buffer.Canvas, 0, 0);
-    end
-    else
-    begin
+    end else begin
       Brush.Color := $0000FF;
       FrameRect(Rect(0, 0, 48, 48))