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

LCLTranslator: search for LCL strings both in PO and MO format regardless of format of found project translation (also simplifies logic)

Browse Source 
git-svn-id: trunk@60462 -
This commit is contained in:
maxim 2019-02-19 22:55:19 +00:00
parent 0580bda5ae
commit 67732946ce
1 changed files with 15 additions and 19 deletions

34
lcl/lcltranslator.pas
View File

@ -254,7 +254,8 @@ var
end;
//master files have .pot extension
LCFileName := ChangeFileExt(GetLCFileName, '.pot');
if LCExt = '.po' then
LCFileName := ChangeFileExt(GetLCFileName, '.pot');
Result := AppDir + LCFileName;
if FileExistsUTF8(Result) then
@ -530,7 +531,6 @@ procedure SetDefaultLang(Lang: string; Dir: string = ''; LocaleFileName: string
called from unit Initialization section. User code normally should not specify it.
}
var
Dot1: integer;
LCLPath, lcfn: string;
LocalTranslator: TUpdateTranslator;
i: integer;
@ -543,14 +543,6 @@ begin
if lcfn <> '' then
begin
Translations.TranslateResourceStrings(lcfn);
LCLPath := ExtractFileName(lcfn);
Dot1 := pos('.', LCLPath);
if Dot1 > 1 then
begin
Delete(LCLPath, 1, Dot1 - 1);
LCLPath := ExtractFilePath(lcfn) + 'lclstrconsts' + LCLPath;
Translations.TranslateUnitResourceStrings('LCLStrConsts', LCLPath);
end;
LocalTranslator := TPOTranslator.Create(lcfn);
end;
except
@ -565,15 +557,6 @@ begin
if lcfn <> '' then
begin
GetText.TranslateResourceStrings(UTF8ToSys(lcfn));
LCLPath := ExtractFileName(lcfn);
Dot1 := pos('.', LCLPath);
if Dot1 > 1 then
begin
Delete(LCLPath, 1, Dot1 - 1);
LCLPath := ExtractFilePath(lcfn) + 'lclstrconsts' + LCLPath;
if FileExistsUTF8(LCLPath) then
GetText.TranslateResourceStrings(UTF8ToSys(LCLPath));
end;
LocalTranslator := TDefaultTranslator.Create(lcfn);
end;
except
@ -581,6 +564,19 @@ begin
end;
end;
if lcfn<>'' then
begin
LCLPath:=FindLocaleFileName('.po', Lang, ExtractFilePath(lcfn), 'lclstrconsts');
if LCLPath<>'' then
Translations.TranslateUnitResourceStrings('LCLStrConsts', LCLPath)
else
begin
LCLPath:=FindLocaleFileName('.mo', Lang, ExtractFilePath(lcfn), 'lclstrconsts');
if LCLPath<>'' then
GetText.TranslateResourceStrings(UTF8ToSys(LCLPath));
end;
end;
if LocalTranslator<>nil then
begin
if Assigned(LRSTranslator) then