Changeset 339 for trunk/Start.pas

Timestamp:

Apr 1, 2021, 6:12:35 PM (4 years ago)

Author:

chronos

Message:

• Fixed: Cevo map extension ".cevo map" was not valid Windows file extension and it was not possible to associate an application with such extension. Changed to ".cevomap" without space character.
• Added: .cevomap files associated with C-evo executable. Open map editor directly for the files.

File:

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

trunk/Start.pas

@@ -865 +865 @@
       s := Phrases.Lookup('MPMAP')
     else if Page = pgStartMap then
-      s := Copy(MapFileName, 1, Length(MapFileName) - 9)
+      s := Copy(MapFileName, 1, Length(MapFileName) - Length(CevoMapExt))
     else if Page = pgEditMap then
       s := List.Items[List.ItemIndex]
@@ -1008 +1008 @@
       end;
     pgEditMap:
-      EditMap(MapFileName, lxmax, lymax, StartLandMass);
+      EditMap(GetMapsDir + DirectorySeparator + MapFileName, lxmax, lymax, StartLandMass);
     pgEditRandom: // new map
       begin
@@ -1023 +1023 @@
         end;
         MapFileName := Format(Phrases.Lookup('MAP'), [MapCount]) + CevoMapExt;
-        EditMap(MapFileName, WorldSizes[WorldSize].X, WorldSizes[WorldSize].Y, StartLandMass);
+        EditMap(GetMapsDir + DirectorySeparator + MapFileName,
+          WorldSizes[WorldSize].X, WorldSizes[WorldSize].Y, StartLandMass);
       end;
   end;
@@ -1059 +1060 @@
         if Page = pgEditMap then
           MapFileName := List.Items[List.ItemIndex] + CevoMapExt;
-        MiniMap.LoadFromMapFile(GetMapsDir + DirectorySeparator + MapFileName, nMapLandTiles, nMapStartPositions);
+        MiniMap.LoadFromMapFile(GetMapsDir + DirectorySeparator + MapFileName,
+          nMapLandTiles, nMapStartPositions);
         if Page = pgEditMap then
           SmartInvalidate(x0Mini - 112, y0Mini + 61, x0Mini + 112, y0Mini + 91);
@@ -1234 +1236 @@
   if FindFirst(GetMapsDir + DirectorySeparator + '*' + CevoMapExt, $21, f) = 0 then
     repeat
-      Maps.Add(Copy(f.Name, 1, Length(f.Name) - 9));
+      Maps.Add(Copy(f.Name, 1, Length(f.Name) - Length(CevoMapExt)));
     until FindNext(f) <> 0;
   FindClose(F);
   Maps.Sort;
   Maps.Insert(0, Phrases.Lookup('RANMAP'));
-  ListIndex[tbMain] := Maps.IndexOf(Copy(MapFileName, 1, Length(MapFileName) - 9));
+  ListIndex[tbMain] := Maps.IndexOf(Copy(MapFileName, 1, Length(MapFileName) - Length(CevoMapExt)));
   if ListIndex[tbMain] < 0 then
     ListIndex[tbMain] := 0;