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: also allow "--lang=<lang>" commandline parameter in addition to "-l <lang>" and "--lang <lang>", bug #35432

Browse Source 
git-svn-id: trunk@61041 -
This commit is contained in:
maxim 2019-04-23 23:59:48 +00:00
parent 23bc495d4c
commit ccf03e0d2a
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/lcltranslator.pas
View File

@ -277,12 +277,20 @@ begin
Result := '';
if Lang = '' then
for i := 1 to Paramcount - 1 do
if (ParamStrUTF8(i) = '--LANG') or (ParamStrUTF8(i) = '-l') or
(ParamStrUTF8(i) = '--lang') then
Lang := ParamStrUTF8(i + 1);
for i := 1 to ParamCount do
if (ParamStrUTF8(i) = '-l') or (UTF8LowerCase(ParamStrUTF8(i)) = '--lang') then
begin
if i < ParamCount then
Lang := ParamStrUTF8(i + 1);
end
else
if UTF8StartsText('--lang=', UTF8LowerCase(ParamStrUTF8(i))) then
begin
Lang := ParamStrUTF8(i);
UTF8Delete(Lang, 1, Length('--lang='));
end;
//Win32 user may decide to override locale with LANG variable.
//User can decide to override locale with LANG variable.
if Lang = '' then
Lang := GetEnvironmentVariableUTF8('LANG');