Changeset 64 for trunk/Directories.pas
- Timestamp:
- Jan 14, 2017, 12:52:41 AM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Directories.pas
r38 r64 6 6 var 7 7 HomeDir, DataDir: string; 8 LocaleCode: string; 8 9 9 function LocalizedFilePath( path: string): string;10 function LocalizedFilePath(const Path: string): string; 10 11 11 12 … … 26 27 end; 27 28 28 function LocalizedFilePath( path: string): string;29 function LocalizedFilePath(const Path: string): string; 29 30 begin 30 result := DataDir + 'Localization' + DirectorySeparator + path; 31 if not FileExists(result) then 32 result := HomeDir + path 31 if LocaleCode <> '' then begin 32 Result := HomeDir + 'Localization' + DirectorySeparator + LocaleCode + DirectorySeparator + Path; 33 if not FileExists(Result) then 34 Result := HomeDir + Path; 35 end else Result := HomeDir + Path; 33 36 end; 34 37 35 38 procedure InitUnit; 36 39 begin 40 LocaleCode := ''; 37 41 HomeDir := ExtractFilePath(ParamStr(0)); 38 42
Note:
See TracChangeset
for help on using the changeset viewer.