Changeset 189 for trunk/Packages/CevoComponents/Directories.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/Packages/CevoComponents/Directories.pas (modified) (4 diffs)

trunk/Packages/CevoComponents/Directories.pas

@@ -10 +10 @@
 
 function LocalizedFilePath(const Path: string): string;
-procedure InitUnit;
+procedure UnitInit;
 function GetSavedDir(Home: Boolean = False): string;
 function GetMapsDir(Home: Boolean = False): string;
+function GetGraphicsDir: string;
+function GetSoundsDir: string;
 
 
@@ -30 +32 @@
 
   if Lang = '' then begin
-      for i := 1 to Paramcount - 1 do
-        if (ParamStrUTF8(i) = '--LANG') or (ParamStrUTF8(i) = '-l') or
-          (ParamStrUTF8(i) = '--lang') then
+    for i := 1 to Paramcount - 1 do
+      if (ParamStrUTF8(i) = '--LANG') or (ParamStrUTF8(i) = '-l') or
+        (ParamStrUTF8(i) = '--lang') then
           Lang := ParamStrUTF8(i + 1);
   end;
@@ -59 +61 @@
 end;
 
-procedure InitUnit;
+procedure UnitInit;
 var
   AppDataDir: string;
@@ -113 +115 @@
 end;
 
+function GetGraphicsDir: string;
+begin
+  Result := HomeDir + 'Graphics';
+end;
+
+function GetSoundsDir: string;
+begin
+  Result := HomeDir + 'Sounds';
+end;
+
 end.