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

lcl: treeview: fix hiding tool tips. Issue #32553

Browse Source 
git-svn-id: trunk@56075 -
This commit is contained in:
ondrej 2017-10-16 11:42:15 +00:00
parent dad863f838
commit 6700026d69
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/treeview.inc
View File

@ -5705,7 +5705,8 @@ begin
FStates:=FStates-[tvsDblClicked,tvsTripleClicked,tvsQuadClicked,
tvsEditOnMouseUp,tvsSingleSelectOnMouseUp];
if Assigned(FHintWnd) and FHintWnd.Visible
and not PtInRect(ClientRect, ScreenToClient(Mouse.CursorPos)) then
and ((WidgetSet.GetLCLCapability(lcTransparentWindow) = LCL_CAPABILITY_YES)
or not PtInRect(ClientRect, ScreenToClient(Mouse.CursorPos))) then
FHintWnd.Hide;
inherited MouseLeave;
end;