paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 08:47:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCLTranslator: Fix FindLocaleFilename failing if optional directory is absolute or ends with a path delimiter.

Browse Source 
git-svn-id: trunk@52527 -
This commit is contained in:
wp 2016-06-19 22:19:27 +00:00
parent f62aa7b77d
commit 7f8864e5b6
1 changed files with 19 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
lcl/lcltranslator.pas
View File

@ -96,6 +96,7 @@ var
var
LangShortID: string;
AppDir,LCFileName,FullLCFileName: String;
absoluteDir: Boolean;
begin
DefaultLang := LangID;
@ -107,8 +108,12 @@ var
if Dir<>'' then
begin
Result := AppDir + Dir + DirectorySeparator + LangID +
DirectorySeparator + LCFileName;
Dir := AppendPathDelim(Dir);
absoluteDir := FilenameIsWinAbsolute(Dir) or FilenameIsUnixAbsolute(Dir);
if absoluteDir then
Result := Dir + LangID + DirectorySeparator + LCFileName
else
Result := AppDir + Dir + LangID + DirectorySeparator + LCFileName;
if FileExistsUTF8(Result) then
exit;
end;
@ -145,8 +150,10 @@ var
if Dir<>'' then
begin
Result := AppDir + Dir + DirectorySeparator +
LangShortID + DirectorySeparator + LCFileName;
if absoluteDir then
Result := Dir + LangShortID + DirectorySeparator + LCFileName
else
Result := AppDir + Dir + LangShortID + DirectorySeparator + LCFileName;
if FileExistsUTF8(Result) then
exit;
end;
@ -176,7 +183,10 @@ var
try
if Dir<>'' then
begin
Result := AppDir + Dir + DirectorySeparator + FullLCFileName;
if absoluteDir then
Result := Dir + FullLCFileName
else
Result := AppDir + Dir + FullLCFileName;
if FileExistsUTF8(Result) then
exit;
end;
@ -207,7 +217,10 @@ var
if Dir<>'' then
begin
Result := AppDir + Dir + DirectorySeparator + FullLCFileName;
if absoluteDir then
Result := Dir + FullLCFileName
else
Result := AppDir + Dir + FullLCFileName;
if FileExistsUTF8(Result) then
exit;
end;