From 76c8f89cb32ab6e2ebb9512a913b3dd97a50cbc6 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 21 Jun 2012 15:32:54 +0000
Subject: [PATCH] chmhelp: search prog.chm in docs/chm

git-svn-id: trunk@37717 -
---
 components/chmhelp/packages/idehelp/chmprog.pas | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/components/chmhelp/packages/idehelp/chmprog.pas b/components/chmhelp/packages/idehelp/chmprog.pas
index 6097c52876..3ebc40aad2 100644
--- a/components/chmhelp/packages/idehelp/chmprog.pas
+++ b/components/chmhelp/packages/idehelp/chmprog.pas
@@ -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;