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

Timestamp:

Jan 10, 2026, 12:15:35 PM (3 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/Term.pas (modified) (5 diffs)

branches/zoom/LocalPlayer/Term.pas

@@ -803 +803 @@
       Picture.pix := pixNoSlaves;
     Picture.Hash := 0;
-    Picture.GrName := 'StdUnits.png';
+    Picture.GrName := 'StdUnits';
     IsNew := True;
   end
@@ -1407 +1407 @@
     if AILogo[P] = nil then
       AILogo[P] := TBitmap.Create;
-    if not LoadGraphicFile(AILogo[P], GetAppSharePath(Name + '.png'), [gfNoError]) then
+    if not LoadGraphicFile(AILogo[P], GetAppSharePath(Name + PngExt), [gfNoError]) then
     begin
       FreeAndNil(AILogo[P]);
@@ -1766 +1766 @@
   MainMap.SetOutput(Offscreen);
 
-  HGrStdUnits := LoadGraphicSet('StdUnits.png');
+  HGrStdUnits := LoadGraphicSet('StdUnits' + PngExt);
   SmallImp := TBitmap.Create;
   SmallImp.PixelFormat := TPixelFormat.pf24bit;
@@ -1919 +1919 @@
             pix := pixNoSlaves;
           Hash := 0;
-          GrName := 'StdUnits.png';
+          GrName := 'StdUnits';
           Tribe[p1].SetModelPicture(Picture, True);
         end;
@@ -2928 +2928 @@
           InitTurn(NewPlayer);
           DipMem[Me].pContact := -1;
-          (* if (Me=0) and (MyRO.Alive and (1 shl Me)=0)} then
+          (* if (Me = 0) and (MyRO.Alive and (1 shl Me) = 0)} then
             begin
-            if SimpleQuery(Phrases.Lookup('RESIGN'))=mrIgnore then
-            Server(sResign,Me,0,nil^)
-            else Server(sBreak,Me,0,nil^)
+            if SimpleQuery(Phrases.Lookup('RESIGN')) = mrIgnore then
+            Server(sResign, Me, 0, nil^)
+            else Server(sBreak, Me, 0, nil^)
             end
             else Play('TURNSTART'); *)