FIX: Resource strings translation when two translators created

This commit is contained in:
Alexander Koblov 2018-05-21 19:32:23 +00:00
commit ebf7440a46
2 changed files with 1 additions and 1 deletions

View file

@ -977,6 +977,7 @@ begin
begin
DCDebug('Loading lng file: ' + gpLngDir + gPOFileName);
LRSTranslator := TTranslator.Create(gpLngDir + gPOFileName);
Translations.TranslateResourceStrings(gpLngDir + gPOFileName);
TranslateLCL(gPOFileName);
end;
end;

View file

@ -54,7 +54,6 @@ constructor TTranslator.Create(const FileName: String);
begin
inherited Create;
FPOFile := TPOFile.Create(FileName);
Translations.TranslateResourceStrings(FPOFile);
end;
destructor TTranslator.Destroy;