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

chmhelp: undo

Browse Source 
git-svn-id: trunk@31232 -
This commit is contained in:
mattias 2011-06-14 20:24:59 +00:00
parent 7ed7e97d29
commit 046f69791e
3 changed files with 3 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -17,7 +17,7 @@
</Other> </Other>
</CompilerOptions> </CompilerOptions>
<Version Minor="1"/> <Version Minor="1"/>
<Files Count="3"> <Files Count="2">
<Item1> <Item1>
<Filename Value="lazchmhelp.pas"/> <Filename Value="lazchmhelp.pas"/>
<HasRegisterProc Value="True"/> <HasRegisterProc Value="True"/>
@ -27,10 +27,6 @@
<Filename Value="chmlangref.pas"/> <Filename Value="chmlangref.pas"/>
<UnitName Value="ChmLangRef"/> <UnitName Value="ChmLangRef"/>
</Item2> </Item2>
<Item3>
<Filename Value="chmlcl.pas"/>
<UnitName Value="chmlcl"/>
</Item3>
</Files> </Files>
<Type Value="DesignTime"/> <Type Value="DesignTime"/>
<RequiredPkgs Count="5"> <RequiredPkgs Count="5">

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, LazarusPackageIntf;
implementation implementation

4
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;
type type
@ -428,8 +428,6 @@ begin
HelpViewers.RegisterViewer(ChmHelp); HelpViewers.RegisterViewer(ChmHelp);
RegisterLangRefHelpDatabase; RegisterLangRefHelpDatabase;
LangRefHelpDatabase.OnFindViewer := @ChmHelp.DBFindViewer; LangRefHelpDatabase.OnFindViewer := @ChmHelp.DBFindViewer;
RegisterLclHelpDatabase;
LCLHelpDatabase.OnFindViewer := @ChmHelp.DBFindViewer;
end; end;
initialization initialization