Changeset 597
- Timestamp:
- Aug 11, 2024, 9:50:17 PM (3 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Start.pas
r596 r597 144 144 Translator: TTranslator; 145 145 procedure UpdateFormerGames; 146 procedure UpdateMaps ;146 procedure UpdateMaps(SelectLastMap: Boolean); 147 147 end; 148 148 … … 323 323 MapFileName := ''; 324 324 Maps := TStringList.Create; 325 UpdateMaps ;325 UpdateMaps(True); 326 326 end; 327 327 … … 1309 1309 end; 1310 1310 1311 procedure TStartDlg.UpdateMaps ;1311 procedure TStartDlg.UpdateMaps(SelectLastMap: Boolean); 1312 1312 var 1313 1313 I: Integer; … … 1322 1322 Maps.Sort; 1323 1323 Maps.Insert(0, Phrases.Lookup('RANMAP')); 1324 I := Maps.IndexOf(LastMap); 1325 if I > 0 then begin // Skip random map on index 0 1326 ListIndex[tbMap] := I; 1327 MapFileName := GetMapsDir + DirectorySeparator + Maps[I] + CevoMapExt; 1324 if SelectLastMap then begin 1325 I := Maps.IndexOf(LastMap); 1326 if I > 0 then begin // Skip random map on index 0 1327 ListIndex[tbMap] := I; 1328 MapFileName := GetMapsDir + DirectorySeparator + Maps[I] + CevoMapExt; 1329 end else ListIndex[tbMap] := Maps.IndexOf(ExtractFileNameOnly(MapFileName)); 1328 1330 end else ListIndex[tbMap] := Maps.IndexOf(ExtractFileNameOnly(MapFileName)); 1329 1331 if ListIndex[tbMap] < 0 then
Note:
See TracChangeset
for help on using the changeset viewer.