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

LCL: migrated LCLTranslator to using GetLanguageID function from Translations unit

Browse Source
This commit is contained in:
Maxim Ganetsky 2023-06-12 04:06:10 +03:00
parent 22f596f8bb
commit e21408456e
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/lcltranslator.pas
View File

@ -94,7 +94,8 @@ var
procedure FindLang(var Lang: string); procedure FindLang(var Lang: string);
var var
T, CurParam: string; LangID: TLanguageID;
CurParam: string;
i: integer; i: integer;
begin begin
if Lang = '' then if Lang = '' then
@ -115,7 +116,10 @@ begin
end; end;
if Lang = '' then if Lang = '' then
LazGetLanguageIDs(Lang, T); begin
LangID := GetLanguageID;
Lang := LangID.LanguageID;
end;
end; end;
function FindLocaleFileName(LCExt, LangID, Dir, LocaleFileName: string; out FoundLang: string): string; function FindLocaleFileName(LCExt, LangID, Dir, LocaleFileName: string; out FoundLang: string): string;