Changeset 20 for trunk/LocalPlayer/Help.pas

Timestamp:

Jan 8, 2017, 12:23:55 PM (8 years ago)

Author:

chronos

Message:

• Fixed: More linux platform fixes.
• Fixed: Use correct DirectorySeparator.

File:

• trunk/LocalPlayer/Help.pas (modified) (3 diffs)

trunk/LocalPlayer/Help.pas

@@ -1165 +1165 @@
     List := TStringList.Create;
     plus := TStringList.Create;
-    if FindFirst(HomeDir + 'Graphics\*.credits.txt', $27, sr) = 0 then
+    if FindFirst(HomeDir + 'Graphics' + DirectorySeparator + '*.credits.txt', $27, sr) = 0 then
       repeat
-        plus.LoadFromFile(HomeDir + 'Graphics\' + sr.Name);
+        plus.LoadFromFile(HomeDir + 'Graphics' + DirectorySeparator + sr.Name);
         List.AddStrings(plus);
       until FindNext(sr) <> 0;
@@ -1199 +1199 @@
   begin
     List := TStringList.Create;
-    List.LoadFromFile(HomeDir + 'Sounds\sound.credits.txt');
+    List.LoadFromFile(HomeDir + 'Sounds' + DirectorySeparator + 'sound.credits.txt');
     for i := 0 to List.Count - 1 do
     begin
@@ -1913 +1913 @@
         case Link and $FF of
           1:
-             OpenDocument(pchar(HomeDir + 'AI Template\AI development manual.html'));{ *Převedeno z ShellExecute* }
+             OpenDocument(pchar(HomeDir + 'AI Template' + DirectorySeparator + 'AI development manual.html'));{ *Převedeno z ShellExecute* }
           2:
             OpenURL('http://c-evo.org');{ *Převedeno z ShellExecute* }