paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 22:58:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: when checking for a hint window also check for a hint window child (issue #0020185)

Browse Source 
git-svn-id: trunk@35517 -
This commit is contained in:
paul 2012-02-21 01:07:44 +00:00
parent aa06f3d9c9
commit 27e8d29632
1 changed files with 26 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
ide/sourceeditor.pp
View File

@ -7445,10 +7445,34 @@ end;
Msg: Cardinal);
------------------------------------------------------------------------------}
procedure TSourceNotebook.OnApplicationUserInput(Sender: TObject; Msg: Cardinal);
function IsHintControl(Control: TWinControl): Boolean;
var
I: Integer;
begin
if not Assigned(Control) then
Exit(False);
Result := Control = Sender;
if Result then
Exit;
for I := 0 to Control.ControlCount - 1 do
begin
Result := Control.Controls[I] = Sender;
if Result then
Exit;
if (Control.Controls[I] is TWinControl) then
begin
Result := IsHintControl(TWinControl(Control.Controls[I]));
if Result then
Exit;
end;
end;
end;
begin
//debugln('TSourceNotebook.OnApplicationUserInput');
// don't hide hint if Sender is a hint window
if Sender <> FHintWindow then
// don't hide hint if Sender is a hint window or child control
if not Assigned(Sender) or not IsHintControl(FHintWindow) then
HideHint;
end;