[Lazarus] TreeView.MouseLeave issue

[Alexey]

procedure TCustomTreeView.MouseLeave;
begin
   FStates:=FStates-[tvsDblClicked,tvsTripleClicked,tvsQuadClicked,
                     tvsEditOnMouseUp,tvsSingleSelectOnMouseUp];
   if Assigned(FHintWnd) and FHintWnd.Visible
   and not PtInRect(ClientRect, ScreenToClient(Mouse.CursorPos)) then
     FHintWnd.Hide;
   inherited MouseLeave;
end;

If it is MouseLeave than mouse cannot be in ClientRect, then condittion 
PtInRect not needed here.

-- 
Regards,
Alexey