Changeset 647 for trunk/Start.pas

Timestamp:

Feb 19, 2025, 9:18:32 AM (3 days ago)

Author:

chronos

Message:

• Modified: Detect data files usr/share/c-evo directory on Linux as relative directory to usr/bin directory.

File:

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

trunk/Start.pas

@@ -235 +235 @@
 
   ActionsOffered := [maConfig, maManual, maCredits, maWeb];
-  if FileExists(HomeDir + AITemplateFileName) then
+  if FileExists(GetAppShareFile(AITemplateFileName)) then
     Include(ActionsOffered, maAIDev);
 
@@ -484 +484 @@
     for I := 1 to Languages.Count - 1 do
     with Languages[I] do begin
-      Available := DirectoryExists(HomeDir + 'Localization' + DirectorySeparator + Code) or (Code = 'en');
+      Available := DirectoryExists(GetAppShareDir('Localization' + DirectorySeparator + Code)) or (Code = 'en');
     end;
   end;
@@ -1517 +1517 @@
       maManual: DirectHelp(cStartHelp);
       maCredits: DirectHelp(cStartCredits);
-      maAIDev: OpenDocument(HomeDir + AITemplateFileName);
+      maAIDev: OpenDocument(GetAppShareFile(AITemplateFileName));
       maWeb: OpenURL(CevoHomepage);
     end;