From c444873f844395c0a436adc38a664af58f2173d3 Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Sat, 9 Feb 2002 01:48:13 +0000
Subject: [PATCH] MG: added persistent hints for main ide bar

git-svn-id: trunk@1284 -
---
 lcl/include/control.inc | 21 ++++++++++++++++++++-
 1 file changed, 20 insertions(+), 1 deletion(-)

diff --git a/lcl/include/control.inc b/lcl/include/control.inc
index b532979a2c..be92b8399c 100644
--- a/lcl/include/control.inc
+++ b/lcl/include/control.inc
@@ -1897,7 +1897,23 @@ end;
  ------------------------------------------------------------------------------}
 function TControl.HasParent : Boolean;
 begin
-   Result := (FParent <> nil);
+  Result := (FParent <> nil);
+end;
+
+{------------------------------------------------------------------------------
+  function TControl.IsParentOf(AControl: TControl): boolean;
+
+ ------------------------------------------------------------------------------}
+function TControl.IsParentOf(AControl: TControl): boolean;
+begin
+  Result:=false;
+  while AControl<>nil do begin
+    AControl:=AControl.Parent;
+    if Self=AControl then begin
+      Result:=true;
+      exit;
+    end;
+  end;
 end;
 
 {------------------------------------------------------------------------------
@@ -1987,6 +2003,9 @@ end;
 
 { =============================================================================
   $Log$
+  Revision 1.98  2002/11/04 19:49:36  lazarus
+  MG: added persistent hints for main ide bar
+
   Revision 1.97  2002/11/03 22:40:28  lazarus
   MG: fixed ControlAtPos