Changeset 323 for trunk/LocalPlayer/Draft.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/LocalPlayer/Draft.pas (modified) (1 diff)

trunk/LocalPlayer/Draft.pas

@@ -233 +233 @@
 begin
   inherited;
-  // TODO: Explicitly clear background to black but in fact BitBlt SRCCOPY should do it
-  Back.Canvas.FillRect(0, 0, Back.Width, Back.Height);
+  UnshareBitmap(Back);
 
   ClientHeight := Template.Height - Cut;