paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-10 17:37:59 +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

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

@ -40,25 +40,27 @@ begin
Application.Initialize;
for X := 1 to ParamCount do
begin
if LowerCase(ParamStr(X)) = '--help' then
begin
S := TStringList.Create;
S.Add(slhelp_LHelpOptions);
S.Add('');
S.Add(slhelp_UsageLhelpFilenameContextIdHideIpcnameLhelpMyapp);
S.Add('');
S.Add(slhelp_HelpShowThisInformation);
S.Add(slhelp_HideStartHiddenButAcceptCommunicationsViaIPC);
S.Add(slhelp_ContextShowTheHelpInformationRelatedToThisContext);
S.Add(Format(slhelp_IpcnameTheNameOfTheIPCServerToListenOnForProgramsW, [LineEnding]));
case LowerCase(ParamStr(X)) of
'--help','-h':
begin
S := TStringList.Create;
S.Add(slhelp_LHelpOptions);
S.Add('');
S.Add(slhelp_UsageLhelpFilenameContextIdHideIpcnameLhelpMyapp);
S.Add('');
S.Add(slhelp_HelpShowThisInformation);
S.Add(slhelp_HideStartHiddenButAcceptCommunicationsViaIPC);
S.Add(slhelp_ContextShowTheHelpInformationRelatedToThisContext);
S.Add(Format(slhelp_IpcnameTheNameOfTheIPCServerToListenOnForProgramsW, [LineEnding]));
if TextRec(Output).Mode = fmClosed then
MessageDlg(S.Text, mtInformation, [mbOk], 0)
else
WriteLn(S.Text);
if TextRec(Output).Mode = fmClosed then
MessageDlg(S.Text, mtInformation, [mbOk], 0)
else
WriteLn(S.Text);
S.Free;
Exit;
S.Free;
Exit;
end;
end;
end;
Application.CreateForm(THelpForm, HelpForm);