Changeset 381 for trunk/Start.pas

Timestamp:

Apr 25, 2021, 11:00:24 AM (4 years ago)

Author:

chronos

Message:

• Fixed: Error if map without map picture was renamed.
• Fixed: Copy default map files and example saved game only once if such target directories don't exist yet.

File:

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

trunk/Start.pas

@@ -1624 +1624 @@
   f: file;
   ok: boolean;
+  MapPictureFileName: string;
 begin
   if List.ItemIndex >= 0 then
@@ -1644 +1645 @@
         begin
           SimpleMessage(Format(Phrases.Lookup('NOFILENAME'), [NewName[i]]));
-          exit
+          Exit;
         end;
       if Page = pgLoad then
@@ -1659 +1660 @@
       except
         // Play('INVALID');
-        ok := false
-      end;
-      if Page <> pgLoad then
-        try // rename map picture
+        ok := False;
+      end;
+      if Page <> pgLoad then begin
+        // Rename map picture
+        MapPictureFileName := GetMapsDir + DirectorySeparator +
+          List.Items[List.ItemIndex] + CevoMapPictureExt;
+        if FileExists(MapPictureFileName) then
+        try
           AssignFile(f, GetMapsDir + DirectorySeparator + List.Items[List.ItemIndex]
-            + '.png');
-          Rename(f, GetMapsDir + DirectorySeparator + NewName + '.png');
+            + CevoMapPictureExt);
+          Rename(f, GetMapsDir + DirectorySeparator + NewName + CevoMapPictureExt);
         except
         end;
-      if ok then
-      begin
+      end;
+      if ok then begin
         if Page = pgLoad then
           FormerGames[List.ItemIndex] := NewName