Changeset 318 for trunk/Start.pas

Timestamp:

Mar 19, 2021, 12:32:32 PM (3 years ago)

Author:

chronos

Message:

• Modified: Defined and used more Templates graphic set items.
• Fixed: Incorrect evaluation of nil graphic set references.

File:

• trunk/Start.pas (modified) (1 diff)

trunk/Start.pas

@@ -881 +881 @@
               // TODO: Explicitly clear background to black but in fact BitBlt SRCCOPY should do it
               LogoBuffer.Canvas.FillRect(0, 0, LogoBuffer.Width, LogoBuffer.Height);
-              BitBltCanvas(LogoBuffer.Canvas, 0, 0, 91, 25, Canvas,
+              BitBltCanvas(LogoBuffer.Canvas, 0, 0, LinkArrows.Width, LinkArrows.Height, Canvas,
                 xActionIcon, y + 2);
-              ImageOp_BCC(LogoBuffer, Templates.Data, 0, 0, 1, 400, 91, 25, 0,
+              ImageOp_BCC(LogoBuffer, Templates.Data, Point(0, 0), LinkArrows.BoundsRect, 0,
                 Colors.Canvas.Pixels[clkAge0 - 1, cliDimmedText]);
-              BitBltCanvas(Canvas, xActionIcon, y + 2, 91, 25,
+              BitBltCanvas(Canvas, xActionIcon, y + 2, LinkArrows.Width, LinkArrows.Height,
                 LogoBuffer.Canvas, 0, 0);
             end;