From aa3560ea0f1af730b099f0ec44990702b4754c86 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 4 Feb 2012 18:10:26 +0000
Subject: [PATCH] examples: idehelp: less hints

git-svn-id: trunk@35133 -
---
 examples/idehelp/myidehelp.pas | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/examples/idehelp/myidehelp.pas b/examples/idehelp/myidehelp.pas
index 6d7603252c..b322227a79 100644
--- a/examples/idehelp/myidehelp.pas
+++ b/examples/idehelp/myidehelp.pas
@@ -258,10 +258,10 @@ type
   public
     HelpShortCutAsText: string;
     function GetTitle: String; override;
-    procedure ReadSettings(AOptions: TAbstractIDEOptions); override;
-    procedure Setup(ADialog: TAbstractOptionsEditorDialog); override;
+    procedure ReadSettings({%H-}AOptions: TAbstractIDEOptions); override;
+    procedure Setup({%H-}ADialog: TAbstractOptionsEditorDialog); override;
     class function SupportedOptionsClass: TAbstractIDEOptionsClass; override;
-    procedure WriteSettings(AOptions: TAbstractIDEOptions); override;
+    procedure WriteSettings({%H-}AOptions: TAbstractIDEOptions); override;
   end;
 
 procedure LoadSaveMyIDEOptions(Filename: string; Load: boolean);
@@ -402,7 +402,7 @@ begin
   Result:=shrHelpNotFound;
   if (csDesigning in ComponentState) or (not Enabled) then exit;
 
-  if ListOfNodes.Count>0 then exit;
+  if not AClass.InheritsFrom(TMyHelpDatabase) then exit;
 
   // this help database knows this context
   Title:='Help for source';