paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-09 18:18:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Clean-up of TBSplineSeries.

Browse Source 
git-svn-id: trunk@54313 -
This commit is contained in:
wp 2017-02-28 21:46:59 +00:00
parent 48630512fe
commit 4555bee612
1 changed files with 0 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
components/tachart/tafuncseries.pas
View File

@ -197,7 +197,6 @@ type
FIntervals: TIntervalList; FIntervals: TIntervalList;
FIsUnorderedX: Boolean; FIsUnorderedX: Boolean;
FStartIndex: Integer; FStartIndex: Integer;
destructor Destroy; override; destructor Destroy; override;
function Calculate(AX: Double): Double; function Calculate(AX: Double): Double;
function IsFewPoints: Boolean; inline; function IsFewPoints: Boolean; inline;
@ -997,26 +996,6 @@ begin
AResults.FDist := 0; AResults.FDist := 0;
Result := not IsNaN(y); Result := not IsNaN(y);
end; 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; end;
procedure TBSplineSeries.InternalPrepareGraphPoints; procedure TBSplineSeries.InternalPrepareGraphPoints;