Changeset 323 for trunk/Start.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/Start.pas (modified) (4 diffs)

trunk/Start.pas

@@ -503 +503 @@
     $000000, xAction, y + 21, Phrases2.Lookup(TextItem));
 
-  // 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, 50, 50, Canvas,
     xActionIcon - 2, y - 2);
@@ -603 +602 @@
 
   // Paint menu logo
-  // 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, MenuLogo.Width, MenuLogo.Height, Canvas, 6,
     3 + 2 * integer(Tab <> tbMain));
@@ -627 +625 @@
           h := ClientHeight - ActionBottomBorder -
             (yAction + Integer(SelectedAction) * ActionPitch - 8);
-        // 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, w, h, Canvas,
           ActionSideBorder + i * wBuffer, yAction + Integer(SelectedAction) * ActionPitch
@@ -653 +651 @@
                 Format(Phrases2.Lookup('ACTIONHEADER_WEB'), [CevoHomepageShort]));
               Canvas.Font.Assign(UniFont[ftNormal]);
-              // 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, LinkArrows.Width, LinkArrows.Height, Canvas,
                 xActionIcon, y + 2);