Changeset 64 for trunk/Directories.pas

Timestamp:

Jan 14, 2017, 12:52:41 AM (7 years ago)

Author:

chronos

Message:

• Added: New configuration dialog for selecting interface language.
• Added: Czech and Deutch language recoded to UTF-8.

File:

• trunk/Directories.pas (modified) (2 diffs)

trunk/Directories.pas

@@ -6 +6 @@
 var
   HomeDir, DataDir: string;
+  LocaleCode: string;
 
-function LocalizedFilePath(path: string): string;
+function LocalizedFilePath(const Path: string): string;
 
 
@@ -26 +27 @@
 end;
 
-function LocalizedFilePath(path: string): string;
+function LocalizedFilePath(const Path: string): string;
 begin
-  result := DataDir + 'Localization' + DirectorySeparator + path;
-  if not FileExists(result) then
-    result := HomeDir + path
+  if LocaleCode <> '' then begin
+    Result := HomeDir + 'Localization' + DirectorySeparator + LocaleCode + DirectorySeparator + Path;
+    if not FileExists(Result) then
+      Result := HomeDir + Path;
+  end else Result := HomeDir + Path;
 end;
 
 procedure InitUnit;
 begin
+  LocaleCode := '';
   HomeDir := ExtractFilePath(ParamStr(0));