paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 20:59:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Fix GetHintControl to return a control with OnShowHint assigned. Issue #20637

Browse Source 
git-svn-id: trunk@33389 -
This commit is contained in:
juha 2011-11-07 08:18:11 +00:00
parent d21a9a5ef8
commit 50c4916d2c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/application.inc
View File

@ -52,7 +52,7 @@ begin
// Find control that actually provides the hint = first parent with a hint text.
Result := Control;
while (Result <> nil) and (Result.Hint = '')
while (Result <> nil) and (Result.Hint = '') and (Result.OnShowHint = nil)
and (Result.ShowHint or Result.IsParentShowHint) do
Result := Result.Parent;