From 4555bee612aa5eaaddeb40e3a858393f8b13f8dc Mon Sep 17 00:00:00 2001 From: wp Date: Tue, 28 Feb 2017 21:46:59 +0000 Subject: [PATCH] TAChart: Clean-up of TBSplineSeries. git-svn-id: trunk@54313 - --- components/tachart/tafuncseries.pas | 21 --------------------- 1 file changed, 21 deletions(-) diff --git a/components/tachart/tafuncseries.pas b/components/tachart/tafuncseries.pas index 23d90d14f9..ab941cf726 100644 --- a/components/tachart/tafuncseries.pas +++ b/components/tachart/tafuncseries.pas @@ -197,7 +197,6 @@ type FIntervals: TIntervalList; FIsUnorderedX: Boolean; FStartIndex: Integer; - destructor Destroy; override; function Calculate(AX: Double): Double; function IsFewPoints: Boolean; inline; @@ -997,26 +996,6 @@ begin AResults.FDist := 0; Result := not IsNaN(y); end; - - (* - if not Result then - for s in FSplines do begin - if s.IsFewPoints or (s.FIsUnorderedX and not IsUnorderedVisible) then - continue; - with TDrawFuncHelper.Create(Self, s.FIntervals, @s.Calculate, Step) do - try - if not GetNearestPoint(AParams, r) or - Result and (AResults.FDist <= r.FDist) - then - continue; - AResults := r; - AResults.FYIndex := -1; - Result := true; - finally - Free; - end; - end; - *) end; procedure TBSplineSeries.InternalPrepareGraphPoints;