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

LCLTranslator: factored out language finding code to a separate procedure (no functional changes)

Browse Source 
git-svn-id: trunk@61590 -
This commit is contained in:
maxim 2019-07-14 23:10:57 +00:00
parent 5706071c48
commit 28f83647db
1 changed files with 29 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
lcl/lcltranslator.pas
View File

@ -93,10 +93,37 @@ type
var
DefaultLang: String = '';
function FindLocaleFileName(LCExt: string; Lang: string; Dir: string; LocaleFileName: string): string;
procedure FindLang(var Lang: string);
var
T, CurParam: string;
i: integer;
begin
if Lang = '' then
for i := 1 to ParamCount do
begin
CurParam := ParamStrUTF8(i);
if (CurParam = '-l') or (UTF8LowerCase(CurParam) = '--lang') then
begin
if i < ParamCount then
Lang := ParamStrUTF8(i + 1);
end
else
if UTF8StartsText('--lang=', CurParam) then
begin
Lang := CurParam;
UTF8Delete(Lang, 1, Length('--lang='));
end;
end;
//User can decide to override locale with LANG variable.
if Lang = '' then
Lang := GetEnvironmentVariableUTF8('LANG');
if Lang = '' then
LazGetLanguageIDs(Lang, T);
end;
function FindLocaleFileName(LCExt: string; Lang: string; Dir: string; LocaleFileName: string): string;
function GetLocaleFileName(const LangID, LCExt: string; Dir: string; LocaleFileName: string): string;
var
@ -276,30 +303,7 @@ var
begin
Result := '';
if Lang = '' then
for i := 1 to ParamCount do
begin
CurParam := ParamStrUTF8(i);
if (CurParam = '-l') or (UTF8LowerCase(CurParam) = '--lang') then
begin
if i < ParamCount then
Lang := ParamStrUTF8(i + 1);
end
else
if UTF8StartsText('--lang=', CurParam) then
begin
Lang := CurParam;
UTF8Delete(Lang, 1, Length('--lang='));
end;
end;
//User can decide to override locale with LANG variable.
if Lang = '' then
Lang := GetEnvironmentVariableUTF8('LANG');
if Lang = '' then
LazGetLanguageIDs(Lang, T);
FindLang(Lang);
Result := GetLocaleFileName(Lang, LCExt, Dir, LocaleFileName);
end;