paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 07:59:28 +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, FStates:=FStates-[tvsDblClicked,tvsTripleClicked,tvsQuadClicked,
tvsEditOnMouseUp,tvsSingleSelectOnMouseUp]; tvsEditOnMouseUp,tvsSingleSelectOnMouseUp];
if Assigned(FHintWnd) and FHintWnd.Visible 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; FHintWnd.Hide;
inherited MouseLeave; inherited MouseLeave;
end; end;