Changeset 88 for trunk/LocalPlayer

Timestamp:

Jan 18, 2017, 4:22:26 PM (8 years ago)

Author:

chronos

Message:

• Fixed: Wrong repeated image path composition for StdUnits.png file.

Location:

trunk/LocalPlayer

Files:

• Term.pas (modified) (3 diffs)
• Tribes.pas (modified) (4 diffs)

trunk/LocalPlayer/Term.pas

@@ -653 +653 @@
       Picture.pix := pixNoSlaves;
     Picture.Hash := 0;
-    Picture.GrName := 'StdUnits';
+    Picture.GrName := 'StdUnits.png';
     IsNew := true;
   end
@@ -673 +673 @@
     with Tribe[p].ModelPicture[mix] do
     begin
-      HGr := LoadGraphicSet(Picture.GrName + '.png');
+      HGr := LoadGraphicSet(Picture.GrName);
       pix := Picture.pix;
     end;
@@ -1709 +1709 @@
               pix := pixNoSlaves;
             Hash := 0;
-            GrName := 'StdUnits';
+            GrName := 'StdUnits.png';
             Tribe[p1].SetModelPicture(Picture, true);
           end

trunk/LocalPlayer/Tribes.pas

@@ -477 +477 @@
             dec(i);
           assert(i >= 0);
-          assert(PictureList[i].HGr = LoadGraphicSet(GrName + '.png'));
+          assert(PictureList[i].HGr = LoadGraphicSet(GrName));
           assert(PictureList[i].pix = pix);
           ModelPicture[mix].HGr := PictureList[i].HGr;
@@ -487 +487 @@
           with ModelPicture[mix] do
           begin
-            HGr := LoadGraphicSet(GrName + '.png');
+            HGr := LoadGraphicSet(GrName);
             pix := Info.pix;
             inc(GrExt[HGr].pixUsed[pix]);
@@ -596 +596 @@
       LeastUsed := MaxInt;
 
-      TestPic.GrName := 'StdUnits';
+      TestPic.GrName := 'StdUnits.png';
       HGr := HGrStdUnits;
       for i := 0 to StdUnitScript.Count - 1 do
@@ -611 +611 @@
         begin
           ok := true;
-          TestPic.GrName := Copy(Input, 8, 255);
+          TestPic.GrName := Copy(Input, 8, 255) + '.png';
           HGr := nGrExt - 1;
           while (HGr >= 0) and (GrExt[HGr].Name <> TestPic.GrName) do