Changeset 314 for trunk/Start.pas

Timestamp:

Mar 18, 2021, 9:46:52 PM (4 years ago)

Author:

chronos

Message:

• Added: Graphic set can now load dimensions of its graphic set items from a file. This effort should help with elimination of hardcoded graphic items dimensions in graphics sets. Gradually all graphic sets should have description of their items.

File:

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

trunk/Start.pas

@@ -906 +906 @@
         if (i < 13) or (i > 17) then
         begin
-          BitBltCanvas(Canvas, 9 + i * 27, yLogo - 2, wOrna, hOrna,
-            HGrSystem2.Mask.Canvas, xOrna, yOrna, SRCAND);
-          BitBltCanvas(Canvas, 9 + i * 27, yLogo - 2, wOrna, hOrna,
-            HGrSystem2.Data.Canvas, xOrna, yOrna, SRCPAINT);
+          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);
         end;
       PaintLogo(Canvas, 69 + 11 * 27, yLogo, MainTexture.clBevelLight,
@@ -990 +990 @@
         if (i < 2) or (i > 6) then
         begin
-          BitBltCanvas(Canvas, 9 + i * 27, yLogo - 2, wOrna, hOrna,
-            HGrSystem2.Mask.Canvas, xOrna, yOrna, SRCAND);
-          BitBltCanvas(Canvas, 9 + i * 27, yLogo - 2, wOrna, hOrna,
-            HGrSystem2.Data.Canvas, xOrna, yOrna, SRCPAINT);
+          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);
         end;
       PaintLogo(Canvas, 69, yLogo, MainTexture.clBevelLight,