From 4ccd15af8bb342689333574c2715084ec885baba Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Mon, 15 Aug 2005 13:21:50 +0000
Subject: [PATCH] only show hints if control is enabled (bug #1029)

git-svn-id: trunk@7503 -
---
 lcl/include/application.inc | 2 +-
 lcl/include/control.inc     | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lcl/include/application.inc b/lcl/include/application.inc
index ae36eeacd5..97753e6eef 100644
--- a/lcl/include/application.inc
+++ b/lcl/include/application.inc
@@ -36,7 +36,7 @@ end;
 function GetHintControl(Control: TControl): TControl;
 begin
   Result := Control;
-  while (Result <> nil) and (not Result.ShowHint) do
+  while (Result <> nil) and (not (Result.ShowHint and Result.Enabled)) do
     Result := Result.Parent;
   if (Result <> nil)
   and ([csDesigning,csDestroying,csLoading]*Result.ComponentState<>[]) then
diff --git a/lcl/include/control.inc b/lcl/include/control.inc
index cd232fec58..2a1025de9d 100644
--- a/lcl/include/control.inc
+++ b/lcl/include/control.inc
@@ -1210,7 +1210,7 @@ begin
 end;
 
 {------------------------------------------------------------------------------
-  procedure TControl.DoOnShowHint(var HintInfo: THintInfo);
+  procedure TControl.DoOnShowHint(HintInfo: Pointer);
 ------------------------------------------------------------------------------}
 procedure TControl.DoOnShowHint(HintInfo: Pointer);
 begin