Changeset 511 for trunk

Timestamp:

Dec 27, 2023, 8:30:17 PM (11 months ago)

Author:

chronos

Message:

• Fixed: Error by typing letters in list of maps.

File:

• trunk/Start.pas (modified) (1 diff)

trunk/Start.pas

@@ -1102 +1102 @@
     pgStartMap, pgEditMap:
       begin
-        if Page = pgEditMap then
-          MapFileName := List.Items[List.ItemIndex] + CevoMapExt;
+        if Page = pgEditMap then begin
+          if List.ItemIndex >= 0 then
+            MapFileName := List.Items[List.ItemIndex] + CevoMapExt
+            else Exit;
+        end;
         MiniMap.LoadFromMapFile(GetMapsDir + DirectorySeparator + MapFileName,
           nMapLandTiles, nMapStartPositions);