paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 16:19:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

lhelp:

Browse Source 
- add project icon
 - don't crash if terminal is not opened

git-svn-id: trunk@17846 -
This commit is contained in:
paul 2008-12-16 03:11:53 +00:00
parent 41933b3605
commit 434106a147
4 changed files with 52 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -52,8 +52,10 @@ components/chmhelp/lhelp/images/lhelp32.png -text
components/chmhelp/lhelp/images/table_close.png -text
components/chmhelp/lhelp/images/table_item.png -text
components/chmhelp/lhelp/images/table_open.png -text
components/chmhelp/lhelp/lhelp.ico -text svneol=unset#image/icon
components/chmhelp/lhelp/lhelp.lpi svneol=native#text/plain
components/chmhelp/lhelp/lhelp.lpr svneol=native#text/plain
components/chmhelp/lhelp/lhelp.rc svneol=native#text/plain
components/chmhelp/lhelp/lhelpcore.lfm svneol=native#text/plain
components/chmhelp/lhelp/lhelpcore.lrs svneol=native#text/plain
components/chmhelp/lhelp/lhelpcore.pas svneol=native#text/plain

BIN
components/chmhelp/lhelp/lhelp.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.2 KiB

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

@ -21,12 +21,17 @@ program lhelp;
uses
Interfaces, // this includes the LCL widgetset
SysUtils,
Classes,
Controls,
Dialogs,
Forms
{ add your units here }, TurboPowerIPro, chmpopup, lhelpcontrolpkg, lhelpcore,
LResources;
var
X: Integer;
S: TStringList;
{$IFDEF WINDOWS}{$R lhelp.rc}{$ENDIF}
@ -34,18 +39,25 @@ begin
{$I lhelp.lrs}
Application.Initialize;
for X := 1 to ParamCount do
if LowerCase(ParamStr(X)) = '--help' then begin
WriteLn();
WriteLn(' LHelp Options:');
WriteLn;
WriteLn(' Usage: lhelp [[filename] [--context id] [--ipcname lhelp-myapp]]');
WriteLn;
WriteLn(' --help : Show this information');
WriteLn(' --context : Show the help information related');
WriteLn(' to this context');
WriteLn(' --ipcname : The name of the ipc server to listen on for');
WriteLn(' programs who wish to control the viewer');
WriteLn;
if LowerCase(ParamStr(X)) = '--help' then
begin
S := TStringList.Create;
S.Add(' LHelp Options:');
S.Add('');
S.Add(' Usage: lhelp [[filename] [--context id] [--ipcname lhelp-myapp]]');
S.Add('');
S.Add(' --help : Show this information');
S.Add(' --context : Show the help information related');
S.Add(' to this context');
S.Add(' --ipcname : The name of the ipc server to listen on for');
S.Add(' programs who wish to control the viewer');
if TextRec(Output).Mode = fmClosed then
MessageDlg(S.Text, mtInformation, [mbOk], 0)
else
WriteLn(S.Text);
S.Free;
Exit;
end;
Application.CreateForm(THelpForm, HelpForm);

26
components/chmhelp/lhelp/lhelp.rc Normal file
View File

@ -0,0 +1,26 @@
#define RT_MANIFEST 24
#define CREATEPROCESS_MANIFEST_RESOURCE_ID 1
#define ISOLATIONAWARE_MANIFEST_RESOURCE_ID 2
#define ISOLATIONAWARE_NOSTATICIMPORT_MANIFEST_RESOURCE_ID 3
CREATEPROCESS_MANIFEST_RESOURCE_ID RT_MANIFEST MOVEABLE PURE
{
"<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>"
"<assembly xmlns=""urn:schemas-microsoft-com:asm.v1"" manifestVersion=""1.0"">"
"<assemblyIdentity version=""1.0.0.0"" processorArchitecture=""*"" name=""CompanyName.ProductName.YourApp"" type=""win32""/>"
"<description>Your application description here.</description>"
"<dependency>"
"<dependentAssembly>"
"<assemblyIdentity type=""win32"" name=""Microsoft.Windows.Common-Controls"" version=""6.0.0.0"" processorArchitecture=""*"" publicKeyToken=""6595b64144ccf1df"" language=""*""/>"
"</dependentAssembly>"
"</dependency>"
"<trustInfo xmlns=""urn:schemas-microsoft-com:asm.v3"">"
"<security>"
"<requestedPrivileges>"
"<requestedExecutionLevel level=""asInvoker"" uiAccess=""false""/>"
"</requestedPrivileges>"
"</security>"
"</trustInfo>"
"</assembly>"
}
MAINICON ICON "lhelp.ico"