Changeset 313 for trunk/LocalPlayer/Nego.pas

Timestamp:

Mar 17, 2021, 11:11:55 AM (3 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/Nego.pas (modified) (2 diffs)

trunk/LocalPlayer/Nego.pas

@@ -149 +149 @@
       with TButtonN(Components[cix]) do
       begin
-        Graphic := GrExt[HGrSystem].Data;
-        Mask := GrExt[HGrSystem].Mask;
-        BackGraphic := GrExt[HGrSystem2].Data;
+        Graphic := HGrSystem.Data;
+        Mask := HGrSystem.Mask;
+        BackGraphic := HGrSystem2.Data;
         case Tag shr 8 of
           1:
@@ -432 +432 @@
     Brush.Color := $000000;
     Tribe[p].InitAge(GetAge(p));
-    if Tribe[p].faceHGr >= 0 then
+    if Assigned(Tribe[p].faceHGr) then
       Dump(Offscreen, Tribe[p].faceHGr, X, Y, 64, 48,
         1 + Tribe[p].facepix mod 10 * 65, 1 + Tribe[p].facepix div 10 * 49)