Changeset 597 for trunk/Start.pas

Timestamp:

Aug 11, 2024, 9:50:17 PM (6 weeks ago)

Author:

chronos

Message:

• Fixed: Do not select last map after saved random map from map editor.

File:

• trunk/Start.pas (modified) (4 diffs)

trunk/Start.pas

@@ -144 +144 @@
     Translator: TTranslator;
     procedure UpdateFormerGames;
-    procedure UpdateMaps;
+    procedure UpdateMaps(SelectLastMap: Boolean);
   end;
 
@@ -323 +323 @@
   MapFileName := '';
   Maps := TStringList.Create;
-  UpdateMaps;
+  UpdateMaps(True);
 end;
 
@@ -1309 +1309 @@
 end;
 
-procedure TStartDlg.UpdateMaps;
+procedure TStartDlg.UpdateMaps(SelectLastMap: Boolean);
 var
   I: Integer;
@@ -1322 +1322 @@
   Maps.Sort;
   Maps.Insert(0, Phrases.Lookup('RANMAP'));
-  I := Maps.IndexOf(LastMap);
-  if I > 0 then begin // Skip random map on index 0
-    ListIndex[tbMap] := I;
-    MapFileName := GetMapsDir + DirectorySeparator + Maps[I] + CevoMapExt;
+  if SelectLastMap then begin
+    I := Maps.IndexOf(LastMap);
+    if I > 0 then begin // Skip random map on index 0
+      ListIndex[tbMap] := I;
+      MapFileName := GetMapsDir + DirectorySeparator + Maps[I] + CevoMapExt;
+    end else ListIndex[tbMap] := Maps.IndexOf(ExtractFileNameOnly(MapFileName));
   end else ListIndex[tbMap] := Maps.IndexOf(ExtractFileNameOnly(MapFileName));
   if ListIndex[tbMap] < 0 then