From a7e4e76dcc8ba7bc817e2c84e5273d0f9f5f29fd Mon Sep 17 00:00:00 2001
From: wp <wp.no-reply@lazarus-ide-org>
Date: Sun, 23 Apr 2017 21:38:29 +0000
Subject: [PATCH] TAChart: Change default value of TFitSeries.Pointer.Visible
 to false for backward-compatibility

git-svn-id: trunk@54698 -
---
 components/tachart/tafuncseries.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/components/tachart/tafuncseries.pas b/components/tachart/tafuncseries.pas
index 7dfeaf218b..0fae68d770 100644
--- a/components/tachart/tafuncseries.pas
+++ b/components/tachart/tafuncseries.pas
@@ -1388,7 +1388,10 @@ begin
       ycalc := ycalc * TArbFloatArray(x)[i] + FFitParams[j];
     SSres := SSres + sqr(TArbFloatArray(y)[i] - ycalc);
   end;
-  Result := 1.0 - SSres / SStot;
+  if SStot = 0 then
+    Result := 0.0
+  else
+    Result := 1.0 - SSres / SStot;
   {$POP}
 end;
 
@@ -1440,6 +1443,7 @@ begin
   FFitRange := TFitSeriesRange.Create(Self);
   FDrawFitRangeOnly := true;
   FPointer := TSeriesPointer.Create(ParentChart);
+  FPointer.Visible := false;
   FPen := TChartPen.Create;
   FPen.OnChange := @StyleChanged;
   FStep := DEF_FIT_STEP;