UPD: Optimize resource strings translation

This commit is contained in:
Alexander Koblov 2023-03-05 18:51:23 +03:00
commit cd1d9e8347
2 changed files with 2 additions and 1 deletions

View file

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

View file

@ -41,6 +41,7 @@ type
destructor Destroy; override;
procedure TranslateStringProperty(Sender: TObject; const Instance: TPersistent;
PropInfo: PPropInfo; var Content: String); override;
property POFile: TPOFile read FPOFile;
end;
implementation