From d1b6d6ed3b988dc51cae2319b2757dd3467fb57e Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 2 Feb 2012 21:29:25 +0000
Subject: [PATCH] examples: idehelp: help for message

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

diff --git a/examples/idehelp/myidehelp.pas b/examples/idehelp/myidehelp.pas
index a61be9ad0c..d3a98f130f 100644
--- a/examples/idehelp/myidehelp.pas
+++ b/examples/idehelp/myidehelp.pas
@@ -27,6 +27,9 @@ Examples:
 - custom dialogs / wiki:
 - fpc compiler options:
 
+Wiki:
+- explain all on the wiki
+
 Help for:
 - Other messages: Linker errors, fpcres errors
 - FPC keyword: context, for example 'var' can be a section or a parameter modifier
@@ -146,10 +149,11 @@ begin
   debugln(['TMyMessagesHelpDatabase.GetNodesForDirective AMessage="',AMessage,'" Parts="',MessageParts.Text,'"']);
 
   // check if the message fits
-  if AMessage<>'MyTest' then exit;
+  if MessageParts=nil then exit;
+  if MessageParts.Values['Message']<>'User defined: Test' then exit;
+  // this help database knows this message
 
   Title:='Help for message';
-  // this help database knows this Directive
   // => add a node, so that if there are several possibilities the IDE can
   //    show the user a dialog to choose
   if FAllMessageNode=nil then
@@ -171,11 +175,12 @@ begin
   Msg:=THelpQueryMessage(Query);
   debugln(['TMyMessagesHelpDatabase.ShowHelp Msg="',Msg.WholeMessage,'" Parts="',Msg.MessageParts.Text,'"']);
   // check if the message fits
-  if Msg.WholeMessage<>'MyTest' then exit;
+  if Msg.MessageParts=nil then exit;
+  if Msg.MessageParts.Values['Message']<>'User defined: Test' then exit;
 
   IDEMessageDialog('My message help',
     'The message "$'+Msg.WholeMessage+'":'#13#13
-    +'is an example to show how help for messages work',mtInformation,[mbOk]);
+    +'Success. Message recognized by TMyMessagesHelpDatabase',mtInformation,[mbOk]);
   Result:=shrSuccess;
 end;