mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: Optimize resource strings translation

Browse source
This commit is contained in:
Alexander Koblov 2023-02-25 13:09:40 +03:00
commit 0e85cbb10a
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/ulng.pas
View file

@ -1169,7 +1169,7 @@ begin
end;
end;
procedure lngLoadLng(const sFileName:String);
procedure lngLoadLng(const sFileName: String);
var
Lang: String = '';
FallbackLang: String = '';
@ -1193,7 +1193,7 @@ begin
else 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;
@ -1204,7 +1204,6 @@ begin
end;
finalization
if Assigned(LRSTranslator) then
FreeAndNil(LRSTranslator);
FreeAndNil(LRSTranslator);
end.