Changeset 381 for trunk/Packages/CevoComponents/Directories.pas

Timestamp:

Apr 25, 2021, 11:00:24 AM (3 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/Packages/CevoComponents/Directories.pas (modified) (2 diffs)

trunk/Packages/CevoComponents/Directories.pas

@@ -79 +79 @@
 end;
 
+procedure CopyFiles;
+begin
+  if DirectoryExists(GetSavedDir(True)) and not DirectoryExists(GetSavedDir(False)) then
+    CopyDir(GetSavedDir(True), GetSavedDir(False), '*.*');
+  if DirectoryExists(GetMapsDir(True)) and not DirectoryExists(GetMapsDir(False)) then
+    CopyDir(GetMapsDir(True), GetMapsDir(False), '*.*');
+end;
+
 procedure UnitInit;
 var
@@ -87 +95 @@
 
   AppDataDir := GetAppConfigDir(False);
-  if AppDataDir = '' then
-    DataDir := HomeDir
-  else
-  begin
+  if AppDataDir = '' then DataDir := HomeDir
+  else begin
     if not DirectoryExists(AppDataDir) then ForceDirectories(AppDataDir);
     DataDir := AppDataDir;
   end;
-
-  CopyDir(GetSavedDir(True), GetSavedDir(False), '*.*');
-  CopyDir(GetMapsDir(True), GetMapsDir(False), '*.*');
+  CopyFiles;
 end;