paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-24 19:50:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

lhelp: show help on --help and -h

Browse Source 
git-svn-id: trunk@64297 -
This commit is contained in:
mattias 2020-12-28 22:45:11 +00:00
parent fe9ac84b09
commit 5607a8093c
1 changed files with 19 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/chmhelp/lhelp/lhelp.lpr
View File

@ -40,7 +40,8 @@ begin
Application.Initialize;
for X := 1 to ParamCount do
begin
if LowerCase(ParamStr(X)) = '--help' then
case LowerCase(ParamStr(X)) of
'--help','-h':
begin
S := TStringList.Create;
S.Add(slhelp_LHelpOptions);
@ -61,6 +62,7 @@ begin
Exit;
end;
end;
end;
Application.CreateForm(THelpForm, HelpForm);
Application.CreateForm(THelpPopupForm, HelpPopupForm);