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

Timestamp:

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

Author:

chronos

Message:

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

File:

• trunk/Packages/CevoComponents/ScreenTools.pas (modified) (3 diffs)

trunk/Packages/CevoComponents/ScreenTools.pas

@@ -109 +109 @@
 function ScaleToNative(Value: Integer): Integer;
 function ScaleFromNative(Value: Integer): Integer;
+procedure UnshareBitmap(Bitmap: TBitmap);
 
 const
@@ -1514 +1515 @@
 procedure PaintLogo(Canvas: TCanvas; X, Y, LightColor, ShadeColor: Integer);
 begin
-  // TODO: Explicitly clear background to black but in fact BitBlt SRCCOPY should do it
-  LogoBuffer.Canvas.FillRect(0, 0, LogoBuffer.Width, LogoBuffer.Height);
+  UnshareBitmap(LogoBuffer);
   BitBltCanvas(LogoBuffer.Canvas, 0, 0, Logo.Width, Logo.Height, Canvas, X, Y);
   ImageOp_BCC(LogoBuffer, Templates.Data, Point(0, 0), Logo.BoundsRect,
@@ -1626 +1626 @@
 begin
   Result := Value;
+end;
+
+procedure UnshareBitmap(Bitmap: TBitmap);
+begin
+  // FillRect cause image data to be freed so subsequent BitBlt can access valid image data
+  Bitmap.Canvas.FillRect(0, 0, 0, 0);
 end;