Changeset 505 for trunk/Start.pas

Timestamp:

Dec 24, 2023, 11:24:57 PM (11 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/Start.pas (modified) (3 diffs)

trunk/Start.pas

@@ -649 +649 @@
 
   if Page = pgMain then begin
-    if SelectedAction <> maNone then // mark selected action
+   if SelectedAction <> maNone then // mark selected action
       for I := 0 to (ClientWidth - 2 * ActionSideBorder) div wBuffer + 1 do
       begin
@@ -714 +714 @@
       for I := 12 to 19 do
         if (I < 13) or (I > 17) then begin
-          BitBltCanvas(Canvas, 9 + I * 27, yLogo - 2, Ornament.Width, Ornament.Height,
-            HGrSystem2.Mask.Canvas, Ornament.Left, Ornament.Top, SRCAND);
-          BitBltCanvas(Canvas, 9 + I * 27, yLogo - 2, Ornament.Width, Ornament.Height,
-            HGrSystem2.Data.Canvas, Ornament.Left, Ornament.Top, SRCPAINT);
+          Sprite(Canvas, 9 + I * 27, yLogo - 2, Ornament);
         end;
       PaintLogo(Canvas, 69 + 11 * 27, yLogo, MainTexture.ColorBevelLight,
@@ -796 +793 @@
       S := Phrases.Lookup('AUTODIFF', AutoDiff - 1);
       RisedTextOut(Canvas, 272 - BiColorTextWidth(Canvas, S), y0Mini + 61, S);
-
       for I := 0 to 19 do
         if (I < 2) or (I > 6) then begin
-          BitBltCanvas(Canvas, 9 + I * 27, yLogo - 2, Ornament.Width, Ornament.Height,
-            HGrSystem2.Mask.Canvas, Ornament.Left, Ornament.Top, SRCAND);
-          BitBltCanvas(Canvas, 9 + I * 27, yLogo - 2, Ornament.Width, Ornament.Height,
-            HGrSystem2.Data.Canvas, Ornament.Left, Ornament.Top, SRCPAINT);
+          Sprite(Canvas, 9 + I * 27, yLogo - 2, Ornament);
         end;
       PaintLogo(Canvas, 69, yLogo, MainTexture.ColorBevelLight,