Changeset 717 for branches/zoom/LocalPlayer/Tribes.pas

Timestamp:

Jan 10, 2026, 12:15:35 PM (2 months ago)

Author:

chronos

Message:

Merged revision(s) 705-716 from trunk:

• Fixed: Subversion properties.
• Fixed: Better start screen location calculation for lower than 800x600 resolutions to make visible entire window.
• Fixed: Memory overflow in minimap drawing with some higher DPI settings.
• Fixed: Crashes with mini map drawing in Start screen with some DPI resolutions.
• Added: Enter key confirms battle dialog window.
• Fixed: Potential battle dialog drawing issue.
• Modified: Code cleanup.
• Fixed: Disable auto selection of input text in message dialog.
• Fixed: Edit boxes to have black background and blue selection.
• Fixed: Automatically create Saved and Maps user data directories if they don't exist yet.
• Modified: Code cleanup.
• Fixed: Wrong unit models opened after click on Military report foreign units.
• Modified: Do not store .png file extension in graphics names in book files. This is for compatibility with older C-evo versions.
• Fixed: Support both books with graphics name with and without .png file extensions.

Location:

branches/zoom

Files:

• . (modified) (1 prop)
• LocalPlayer/Tribes.pas (modified) (5 diffs)

branches/zoom/LocalPlayer/Tribes.pas

@@ -322 +322 @@
       Item := Get;
       sympix := GetNum;
-      symHGr := LoadGraphicSet(Item + '.png');
+      symHGr := LoadGraphicSet(Item + PngExt);
     end;
   end;
@@ -442 +442 @@
             end;
           end;
-        cHGr := LoadGraphicSet(Item + '.png');
+        cHGr := LoadGraphicSet(Item + PngExt);
         for X := 0 to 3 do
           with CityPicture[X] do begin
@@ -461 +461 @@
       else
       begin
-        faceHGr := LoadGraphicSet(Item + '.png');
+        faceHGr := LoadGraphicSet(Item + PngExt);
         facepix := GetNum;
         if faceHGr.Data.Canvas.Pixels[facepix mod 10 * 65,
@@ -610 +610 @@
   LeastUsed := MaxInt;
 
-  TestPic.GrName := 'StdUnits.png';
+  TestPic.GrName := 'StdUnits';
   HGr := HGrStdUnits;
   for I := 0 to StdUnitScript.Count - 1 do
@@ -625 +625 @@
     begin
       Ok := True;
-      TestPic.GrName := Copy(Input, 8, 255) + '.png';
+      TestPic.GrName := Copy(Input, 8, 255);
       HGr := GrExt.SearchByName(TestPic.GrName);
     end