paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-31 17:20:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCLTranslator: small refactor, ensured setting SetDefaultLang and TranslateLCLResourceStrings results to empty values on exceptions

Browse Source 
git-svn-id: trunk@61615 -
This commit is contained in:
maxim 2019-07-22 22:14:25 +00:00
parent 00e57d2560
commit 5e5045ebd1
1 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/lcltranslator.pas
View File

@ -529,6 +529,7 @@ var
LCLPath: string;
begin
Result:='';
try
LCLPath:=FindLocaleFileName('.po', Lang, ExtractFilePath(Dir), 'lclstrconsts', Result);
if LCLPath<>'' then
Translations.TranslateUnitResourceStrings('LCLStrConsts', LCLPath)
@ -538,6 +539,9 @@ begin
if LCLPath<>'' then
GetText.TranslateResourceStrings(UTF8ToSys(LCLPath));
end;
except
Result:='';
end;
end;
function SetDefaultLang(Lang: string; Dir: string = ''; LocaleFileName: string = ''; ForceUpdate: boolean = true): string;
@ -563,24 +567,20 @@ begin
begin
Translations.TranslateResourceStrings(lcfn);
LocalTranslator := TPOTranslator.Create(lcfn);
end;
except
lcfn := '';
end;
if lcfn='' then
end
else
begin
// try now with MO translation resources
try
lcfn := FindLocaleFileName('.mo', Lang, Dir, LocaleFileName, Result);
if lcfn <> '' then
begin
GetText.TranslateResourceStrings(UTF8ToSys(lcfn));
LocalTranslator := TDefaultTranslator.Create(lcfn);
end;
except
lcfn := '';
end;
except
Result := '';
lcfn := '';
end;
DefaultLang := Result;