paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-20 04:39:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

chmhelp: help for compiler directives

Browse Source 
git-svn-id: trunk@31411 -
This commit is contained in:
mattias 2011-06-26 21:08:58 +00:00
parent d93e971020
commit 3a0e7e4224
4 changed files with 19 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/chmhelp/README.txt
View File

@ -29,8 +29,8 @@ This is a basic HOWTO for integrating lhelp into the Lazarus IDE.
and select the lhelp executable. and select the lhelp executable.
HelpFilesPath: HelpFilesPath:
This is the directory that contains the lcl.chm fcl.chm and rtl.chm files. This is the directory that contains the help files in CHM format (lcl.chm, fcl.chm, rtl.chm etc.).
You can download them from the download page of www.lazarus.freepascal.org. You can download them from http://sourceforge.net/projects/freepascal/files/Documentation/
HelpLabel Name and Tag do not need to be altered. HelpLabel Name and Tag do not need to be altered.
The HelpLabel is the name of the named pipe that lazarus will use to communicate with lhelp. The HelpLabel is the name of the named pipe that lazarus will use to communicate with lhelp.
@ -43,8 +43,6 @@ This is a basic HOWTO for integrating lhelp into the Lazarus IDE.
this should be "rtl.chm://" this should be "rtl.chm://"
FCLUnits: FCLUnits:
this should be "fcl.chm://" this should be "fcl.chm://"
LCLUnits:
this should be "lcl.chm://"
NOTE if you have only a single lcl-fcl-rtl.chm file then paths become: NOTE if you have only a single lcl-fcl-rtl.chm file then paths become:
"lcl-fcl-rtl.chm://rtl/" "lcl-fcl-rtl.chm://rtl/"

15
components/chmhelp/packages/idehelp/chmhelppkg.lpk
View File

@ -1,6 +1,6 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<Package Version="3"> <Package Version="4">
<Name Value="ChmHelpPkg"/> <Name Value="ChmHelpPkg"/>
<CompilerOptions> <CompilerOptions>
<Version Value="10"/> <Version Value="10"/>
@ -13,11 +13,14 @@
</SyntaxOptions> </SyntaxOptions>
</Parsing> </Parsing>
<Other> <Other>
<CompilerMessages>
<UseMsgFile Value="True"/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>
</Other> </Other>
</CompilerOptions> </CompilerOptions>
<Version Minor="1"/> <Version Minor="1"/>
<Files Count="3"> <Files Count="4">
<Item1> <Item1>
<Filename Value="lazchmhelp.pas"/> <Filename Value="lazchmhelp.pas"/>
<HasRegisterProc Value="True"/> <HasRegisterProc Value="True"/>
@ -29,8 +32,12 @@
</Item2> </Item2>
<Item3> <Item3>
<Filename Value="chmlcl.pas"/> <Filename Value="chmlcl.pas"/>
<UnitName Value="chmlcl"/> <UnitName Value="ChmLcl"/>
</Item3> </Item3>
<Item4>
<Filename Value="chmprog.pas"/>
<UnitName Value="ChmProg"/>
</Item4>
</Files> </Files>
<Type Value="DesignTime"/> <Type Value="DesignTime"/>
<RequiredPkgs Count="5"> <RequiredPkgs Count="5">
@ -52,7 +59,7 @@
</Item5> </Item5>
</RequiredPkgs> </RequiredPkgs>
<UsageOptions> <UsageOptions>
<UnitPath Value="$(PkgOutDir)/"/> <UnitPath Value="$(PkgOutDir)"/>
</UsageOptions> </UsageOptions>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>

2
components/chmhelp/packages/idehelp/chmhelppkg.pas
View File

@ -7,7 +7,7 @@ unit ChmHelpPkg;
interface interface
uses uses
LazChmHelp, ChmLangRef, ChmLcl, LazarusPackageIntf; LazChmHelp, ChmLangRef, ChmLcl, ChmProg, LazarusPackageIntf;
implementation implementation

6
components/chmhelp/packages/idehelp/lazchmhelp.pas
View File

@ -24,7 +24,7 @@ interface
uses uses
Classes, SysUtils, FileUtil, LazHelpIntf, HelpIntfs, LazConfigStorage, Classes, SysUtils, FileUtil, LazHelpIntf, HelpIntfs, LazConfigStorage,
PropEdits, LHelpControl, Controls, ChmLangRef, ChmLcl; PropEdits, LHelpControl, Controls, ChmLangRef, ChmLcl, ChmProg;
type type
@ -118,6 +118,8 @@ begin
fChmsFilePath := AppendPathDelim(AValue); fChmsFilePath := AppendPathDelim(AValue);
if Assigned(LangRefHelpDatabase) then if Assigned(LangRefHelpDatabase) then
LangRefHelpDatabase.LoadKeywordList(fChmsFilePath); LangRefHelpDatabase.LoadKeywordList(fChmsFilePath);
if Assigned(FPCDirectivesHelpDatabase) then
FPCDirectivesHelpDatabase.DocsDir := fChmsFilePath;
end; end;
function TChmHelpViewer.GetHelpEXE: String; function TChmHelpViewer.GetHelpEXE: String;
@ -430,6 +432,8 @@ begin
LangRefHelpDatabase.OnFindViewer := @ChmHelp.DBFindViewer; LangRefHelpDatabase.OnFindViewer := @ChmHelp.DBFindViewer;
RegisterLclHelpDatabase; RegisterLclHelpDatabase;
LCLHelpDatabase.OnFindViewer := @ChmHelp.DBFindViewer; LCLHelpDatabase.OnFindViewer := @ChmHelp.DBFindViewer;
RegisterFPCDirectivesHelpDatabase;
FPCDirectivesHelpDatabase.OnFindViewer := @ChmHelp.DBFindViewer;
end; end;
initialization initialization