show message if not help is found

git-svn-id: trunk@6633 -

ideintf/helpintf.pas

@@ -1469,9 +1469,9 @@ begin
     // check if at least one node found
     if (Nodes<>nil) then Nodes.Pack;
     if (Nodes=nil) or (Nodes.Count=0) then begin
-      // no node found for the source is not a bug
-      Result:=shrSuccess;
-      ErrMsg:='';
+      Result:=shrHelpNotFound;
+      ErrMsg:=format(oisHelpNoHelpFoundForSource,
+        [Query.SourcePosition.y, Query.SourcePosition.x, Query.Filename]);
       exit;
     end;
 

ideintf/objinspstrconsts.pas

@@ -114,6 +114,7 @@ resourcestring
   oisHelpHelpContextNotFoundInDatabase = 'Help context %s not found in '
     +'Database %s%s%s.';
   oisHelpHelpContextNotFound = 'Help context %s not found.';
+  oisHelpNoHelpFoundForSource = 'No help found for line %d, column %d of %s.';
   oisLoadImageDialog = 'Load Image Dialog';
   oisOK = '&OK';
   oisCancel = '&Cancel';