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

trunk/LocalPlayer/Tribes.pas

@@ -14 +14 @@
 
   TModelPicture = record
-    HGr: Integer;
+    HGr: TGrExtDescr;
     pix: Integer;
     xShield: Integer;
@@ -29 +29 @@
 
   TTribe = class
-    symHGr: Integer;
+    symHGr: TGrExtDescr;
     sympix: Integer;
-    faceHGr: Integer;
+    faceHGr: TGrExtDescr;
     facepix: Integer;
-    cHGr: Integer;
+    cHGr: TGrExtDescr;
     cpix: Integer;
     // symbol and city graphics
@@ -62 +62 @@
 var
   Tribe: array [0 .. nPl - 1] of TTribe;
-  HGrStdUnits: Integer;
+  HGrStdUnits: TGrExtDescr;
 
 procedure Init;
@@ -70 +70 @@
 procedure FindStdModelPicture(Code: Integer; var pix: Integer; var Name: string);
 function GetTribeInfo(FileName: string; var Name: string; var Color: TColor): Boolean;
-procedure FindPosition(HGr, x, y, xmax, ymax: Integer; Mark: TColor;
+procedure FindPosition(HGr: TGrExtDescr; x, y, xmax, ymax: Integer; Mark: TColor;
   var xp, yp: Integer);
 
@@ -82 +82 @@
   TChosenModelPictureInfo = record
     Hash: Integer;
-    HGr: Integer;
+    HGr: TGrExtDescr;
     pix: Integer;
     ModelName: ShortString;
@@ -328 +328 @@
 end;
 
-procedure FindPosition(HGr, x, y, xmax, ymax: Integer; Mark: TColor;
+procedure FindPosition(HGr: TGrExtDescr; x, y, xmax, ymax: Integer; Mark: TColor;
   var xp, yp: Integer);
 begin
   xp := 0;
-  while (xp < xmax) and (GrExt[HGr].Data.Canvas.Pixels[x + 1 + xp, y] <> Mark) do
+  while (xp < xmax) and (HGr.Data.Canvas.Pixels[x + 1 + xp, y] <> Mark) do
     Inc(xp);
   yp := 0;
-  while (yp < ymax) and (GrExt[HGr].Data.Canvas.Pixels[x, y + 1 + yp] <> Mark) do
+  while (yp < ymax) and (HGr.Data.Canvas.Pixels[x, y + 1 + yp] <> Mark) do
     Inc(yp);
 end;
@@ -447 +447 @@
       end
       else
-        cHGr := -1;
+        cHGr := nil;
 
 {$IFNDEF SCR}
@@ -454 +454 @@
       Item := Get;
       if Item = '' then
-        faceHGr := -1
+        faceHGr := nil
       else
       begin
         faceHGr := LoadGraphicSet(Item + '.png');
         facepix := GetNum;
-        if GrExt[faceHGr].Data.Canvas.Pixels[facepix mod 10 * 65,
+        if faceHGr.Data.Canvas.Pixels[facepix mod 10 * 65,
           facepix div 10 * 49 + 48] = $00FFFF then
         begin // generate shield picture
-          GrExt[faceHGr].Data.Canvas.Pixels[facepix mod 10 * 65,
+          faceHGr.Data.Canvas.Pixels[facepix mod 10 * 65,
             facepix div 10 * 49 + 48] := $000000;
           Gray := $B8B8B8;
-          ImageOp_BCC(GrExt[faceHGr].Data, Templates,
+          ImageOp_BCC(faceHGr.Data, Templates,
             facepix mod 10 * 65 + 1, facepix div 10 * 49 + 1, 1, 25, 64, 48,
             Gray, Color);
@@ -500 +500 @@
         HGr := LoadGraphicSet(GrName);
         pix := Info.pix;
-        Inc(GrExt[HGr].pixUsed[pix]);
+        Inc(HGr.pixUsed[pix]);
       end;
       ModelName[mix] := '';
@@ -558 +558 @@
   Code, Turn: Integer; ForceNew: Boolean): Boolean;
 var
-  i, Cnt, HGr, Used, LeastUsed: Integer;
+  i: Integer;
+  Cnt: Integer;
+  HGr: TGrExtDescr;
+  Used: Integer;
+  LeastUsed: Integer;
   TestPic: TModelPictureInfo;
   ok: Boolean;
@@ -567 +571 @@
     if Code = GetNum then
     begin
-      if ForceNew or (HGr < 0) then
+      if ForceNew or (not Assigned(HGr)) then
         Used := 0
       else
       begin
-        Used := 4 * GrExt[HGr].pixUsed[TestPic.pix];
+        Used := 4 * HGr.pixUsed[TestPic.pix];
         if HGr = HGrStdUnits then
           Inc(Used, 2); // prefer units not from StdUnits
@@ -596 +600 @@
       if PictureList[i].Hash = Picture.Hash then
       begin
-        Picture.GrName := GrExt[PictureList[i].HGr].Name;
+        Picture.GrName := PictureList[i].HGr.Name;
         Picture.pix := PictureList[i].pix;
         Result := False;
@@ -623 +627 @@
       ok := True;
       TestPic.GrName := Copy(Input, 8, 255) + '.png';
-      HGr := GrExt.Count - 1;
-      while (HGr >= 0) and (GrExt[HGr].Name <> TestPic.GrName) do
-        Dec(HGr);
+      HGr := GrExt.SearchByName(TestPic.GrName);
     end
     else if (Input <> '') and (Input[1] = '#') then