From c501d0bda505dbccfcde9c6138599f4b863907ed Mon Sep 17 00:00:00 2001
From: ask <ask@lazarus-ide.org>
Date: Sun, 11 Sep 2011 10:25:06 +0000
Subject: [PATCH] TAChart: Mark TCubicSplineSeries.Calculate function public

git-svn-id: trunk@32282 -
---
 components/tachart/tafuncseries.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/components/tachart/tafuncseries.pas b/components/tachart/tafuncseries.pas
index fb7d6e78ba..8b082fa66b 100644
--- a/components/tachart/tafuncseries.pas
+++ b/components/tachart/tafuncseries.pas
@@ -160,7 +160,6 @@ type
     FUnorderedX: Boolean;
     FX, FY, FCoeff: array of ArbFloat;
 
-    function Calculate(AX: Double): Double;
     procedure PrepareCoeffs;
     function PrepareIntervals: TIntervalList;
     procedure SetBadDataPen(AValue: TBadDataChartPen);
@@ -171,6 +170,7 @@ type
 
   public
     procedure Assign(ASource: TPersistent); override;
+    function Calculate(AX: Double): Double;
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
 
@@ -747,6 +747,8 @@ var
   ok: Integer = 0;
 begin
   Result := ipfspn(High(FCoeff), FX[0], FY[0], FCoeff[0], AX, ok);
+  if ok > 1 then
+    Result := NaN;
 end;
 
 constructor TCubicSplineSeries.Create(AOwner: TComponent);