Changeset 313 for trunk/LocalPlayer/UnitStat.pas

Timestamp:

Mar 17, 2021, 11:11:55 AM (4 years ago)

Author:

chronos

Message:

• Modified: LoadGraphicSet now returns TGrExtDescr reference. Replaced integer index references to GrExt with with direct class reference to TGrExtDescr.

File:

• trunk/LocalPlayer/UnitStat.pas (modified) (3 diffs)

trunk/LocalPlayer/UnitStat.pas

@@ -136 +136 @@
       begin
         mox := @MyRO.EnemyModel[emix];
-        if Tribe[owner].ModelPicture[mix].HGr = 0 then
+        if Tribe[owner].ModelPicture[mix].HGr = HGrSystem then
           InitEnemyModel(emix);
       end
@@ -529 +529 @@
           with offscreen.Canvas do
           begin
-            Brush.Color := GrExt[HGrSystem].Data.Canvas.Pixels[98, 67];
+            Brush.Color := HGrSystem.Data.Canvas.Pixels[98, 67];
             offscreen.Canvas.FillRect(Rect(xView, yView, xView + 64,
               yView + 16));
@@ -574 +574 @@
             Sprite(offscreen, HGrStdUnits, xView, yView, xxu * 2, yyu * 2,
               1 + 6 * (xxu * 2 + 1), 1);
-          FrameImage(offscreen.Canvas, GrExt[HGrSystem].Data, xView - 20,
+          FrameImage(offscreen.Canvas, HGrSystem.Data, xView - 20,
             yView + 5, 12, 14, 121 + Exp div ExpCost * 13, 28);
           if Health < 100 then