paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 10:59:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazBuild: actually handle --language option when outputting help

Browse Source
This commit is contained in:
Maxim Ganetsky 2024-01-21 16:27:01 +03:00
parent 1db4e6beff
commit 416bdc5c19
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/lazbuild.lpr
View File

@ -1801,6 +1801,8 @@ begin
end; end;
procedure TLazBuildApplication.WriteUsage; procedure TLazBuildApplication.WriteUsage;
var
CustomLang: string;
const const
cDescrIndent = 16; cDescrIndent = 16;
cMaxLength = 80; cMaxLength = 80;
@ -1811,7 +1813,9 @@ const
end; end;
begin begin
TranslateResourceStrings(ProgramDirectoryWithBundle,''); if LazBuildApp.HasOption('language') then
CustomLang:=LazBuildApp.GetOptionValue('language');
TranslateResourceStrings(ProgramDirectoryWithBundle,CustomLang);
writeln(''); writeln('');
writeln(lisLazbuildOptionsSyntax); writeln(lisLazbuildOptionsSyntax);
writeln(''); writeln('');