Changeset 189 for trunk/LocalPlayer/Help.pas

Timestamp:

May 7, 2020, 12:46:55 AM (4 years ago)

Author:

chronos

Message:

• Added: New Global unit with global constants.
• Modified: Multiple occurence of string constants used for subdirectories replaced by functions.

File:

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

trunk/LocalPlayer/Help.pas

@@ -5 +5 @@
 
 uses
-  Protocol, ScreenTools, BaseWin, StringTables, Math,
-  LCLIntf, LCLType, LMessages, Messages, SysUtils, Classes, Graphics, Controls, Forms,
-  ExtCtrls, ButtonB, PVSB, Types, fgl;
+  Protocol, ScreenTools, BaseWin, StringTables, Math, LCLIntf, LCLType,
+  LMessages, Messages, SysUtils, Classes, Graphics, Controls, Forms, ExtCtrls,
+  ButtonB, PVSB, Types, fgl;
 
 const
@@ -123 +123 @@
   HelpDlg: THelpDlg;
 
+
 implementation
 
 uses
-  Directories, ClientTools, Term, Tribes, Inp, Messg, PixelPointer;
+  Directories, ClientTools, Term, Tribes, Inp, Messg, PixelPointer, Global;
 
 {$R *.lfm}
@@ -1229 +1230 @@
     List := TStringList.Create;
     Plus := TStringList.Create;
-    if FindFirst(HomeDir + 'Graphics' + DirectorySeparator + '*.credits.txt', $27, sr) = 0 then
+    if FindFirst(GetGraphicsDir + DirectorySeparator + '*.credits.txt', $27, sr) = 0 then
       repeat
-        Plus.LoadFromFile(HomeDir + 'Graphics' + DirectorySeparator + sr.Name);
+        Plus.LoadFromFile(GetGraphicsDir + DirectorySeparator + sr.Name);
         List.AddStrings(Plus);
       until FindNext(sr) <> 0;
@@ -1262 +1263 @@
   begin
     List := TStringList.Create;
-    List.LoadFromFile(HomeDir + 'Sounds' + DirectorySeparator + 'sound.credits.txt');
+    List.LoadFromFile(GetSoundsDir + DirectorySeparator + 'sound.credits.txt');
     for i := 0 to List.Count - 1 do begin
       s := List[i];
@@ -1948 +1949 @@
         case Link and $FF of
           1: OpenDocument(pchar(HomeDir + 'AI Template' + DirectorySeparator + 'AI development manual.html'));
-          2: OpenURL('http://c-evo.org');
-          3: OpenURL('http://c-evo.org/_sg/contact');
+          2: OpenURL(CevoHomepage);
+          3: OpenURL(CevoHomepageContact);
         end
       else