From 48630512fed5c1ee5a1770384cf5138b3dfd49a4 Mon Sep 17 00:00:00 2001
From: wp <wp.no-reply@lazarus-ide-org>
Date: Tue, 28 Feb 2017 21:44:30 +0000
Subject: [PATCH] TAChart: Avoid TDatapointHintTool crashing if point index is
 -1.

git-svn-id: trunk@54312 -
---
 components/tachart/tatools.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/tachart/tatools.pas b/components/tachart/tatools.pas
index 194b6246b7..f16597b185 100644
--- a/components/tachart/tatools.pas
+++ b/components/tachart/tatools.pas
@@ -1832,7 +1832,7 @@ procedure TDataPointHintTool.MouseMove(APoint: TPoint);
 
   function GetHintText: String;
   begin
-    if UseDefaultHintText then begin
+    if UseDefaultHintText and (PointIndex > -1) then begin
       if Series is TChartSeries then
         Result := (Series as TChartSeries).FormattedMark(PointIndex)
       else