paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 13:37:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

chmhelp: search prog.chm in docs/chm

Browse Source 
git-svn-id: trunk@37717 -
This commit is contained in:
mattias 2012-06-21 15:32:54 +00:00
parent cded73efc9
commit 76c8f89cb3
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/chmhelp/packages/idehelp/chmprog.pas
View File

@ -6,7 +6,7 @@ interface
uses
Classes, SysUtils,
Dialogs, FileUtil, LazFileUtils,
Dialogs, FileUtil, LazFileUtils, LazLogger,
LazHelpIntf, HelpIntfs,
IDEHelpIntf, MacroIntf;
@ -50,8 +50,9 @@ uses chmreader, chmFiftiMain;
procedure RegisterFPCDirectivesHelpDatabase;
begin
if not Assigned(FPCDirectivesHelpDatabase) then
FPCDirectivesHelpDatabase := TFPCDirectivesHelpDatabase(HelpDatabases.CreateHelpDatabase(sFPCCompilerDirectives,
TFPCDirectivesHelpDatabase, true));
FPCDirectivesHelpDatabase :=
TFPCDirectivesHelpDatabase(HelpDatabases.CreateHelpDatabase(
sFPCCompilerDirectives, TFPCDirectivesHelpDatabase, true));
end;
{ TFPCDirectivesHelpDatabase }
@ -146,6 +147,7 @@ begin
and (LeftStr(HelpDirective, Length(FPCDirectiveHelpPrefix)) = FPCDirectiveHelpPrefix) then
begin
Filename:=FindCHMFile;
debugln(['TFPCDirectivesHelpDatabase.GetNodesForDirective ',Filename]);
if (Filename='') then
begin
Result := shrDatabaseNotFound;
@ -181,7 +183,7 @@ function TFPCDirectivesHelpDatabase.GetCHMSearchPath: string;
begin
Result:=FCHMSearchPath;
if Result='' then begin
Result := '$(LazarusDir)/docs/html';
Result := '$(LazarusDir)/docs/html;$(LazarusDir)/docs/chm';
IDEMacros.SubstituteMacros(Result);
Result:=MinimizeSearchPath(SetDirSeparators(Result));
end;