+ display helpfull message if no help files are installed

git-svn-id: trunk@3596 -

ide/fpmhelp.inc

@@ -23,7 +23,7 @@ begin
   if Found then
      Help(FileID,Ctx,false)
   else
-     Help(0,hcContents,false);
+     HelpIndex('');
 end;
 
 procedure TIDEApp.HelpHelpIndex;

ide/wconstse.inc

@@ -99,7 +99,11 @@
     msg_cutting = 'Cutting';
     { Help system }
 
-    msg_nohelpfilesinstalled = 'No help files installed.';
+    msg_nohelpfilesinstalled1 = 'To keep the size of the FPC download reasonable low, it comes without html formatted docs';
+    msg_nohelpfilesinstalled2 = 'which are necessary for the IDE.';
+    msg_nohelpfilesinstalled3 = 'To get these docs, go to http://www.freepascal.org/down/docs/docs.html and get one';
+    msg_nohelpfilesinstalled4 = 'of the html doc archives and unpack the enclosed contents into your FPC directory.';
+    msg_nohelpfilesinstalled5 = 'Add fpcdoc.html via Help|Files ... to the IDE help file system.';
     msg_helpindex = 'Help index';
     msg_nohelpavailabelforthistopic = 'No help available for this topic.';
     msg_pagenotavailable = 'Page not available';

ide/whelp.pas

@@ -901,7 +901,11 @@ begin
   if HelpFiles^.Count=0 then
     begin
       AddLine('');
-      AddLine(' '+msg_nohelpfilesinstalled)
+      AddLine(msg_nohelpfilesinstalled1);
+      AddLine(msg_nohelpfilesinstalled2);
+      AddLine(msg_nohelpfilesinstalled3);
+      AddLine(msg_nohelpfilesinstalled4);
+      AddLine(msg_nohelpfilesinstalled5);
     end else
   begin
     AddLine(' '+msg_helpindex);