Changeset 313 for trunk/LocalPlayer/Select.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/Select.pas (modified) (4 diffs)

trunk/LocalPlayer/Select.pas

@@ -579 +579 @@
                 j := AdvValue[lix] div 1000;
                 BitBltCanvas(offscreen.Canvas, (8 + 16 - 4), y0 + 2, 14, 14,
-                  GrExt[HGrSystem].Mask.Canvas, 127 + j * 15,
+                  HGrSystem.Mask.Canvas, 127 + j * 15,
                   85, SRCAND);
                 Sprite(offscreen, HGrSystem, (8 + 16 - 5), y0 + 1, 14, 14,
@@ -1350 +1350 @@
           begin
             if Tribe[DipMem[me].pContact].ModelPicture
-              [MyRO.EnemyModel[emix].mix].HGr = 0 then
+              [MyRO.EnemyModel[emix].mix].HGr = HGrSystem then
               InitEnemyModel(emix);
             code[0, Lines[0]] := emix;
@@ -1373 +1373 @@
             (MyRO.EnemyModel[code[1, Lines[0]]].mix = i)) do
             dec(code[1, Lines[0]]);
-          if Tribe[pView].ModelPicture[i].HGr = 0 then
+          if Tribe[pView].ModelPicture[i].HGr = HGrSystem then
             InitEnemyModel(code[1, Lines[0]]);
           code[0, Lines[0]] := i;
@@ -1394 +1394 @@
             PPicture := @Tribe[MyRO.EnemyModel[emix].Owner].ModelPicture
               [MyRO.EnemyModel[emix].mix];
-            if PPicture.HGr = 0 then
+            if PPicture.HGr = HGrSystem then
               InitEnemyModel(emix);
             ok := true;