paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-20 07:59:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Set Y instead of X to NaN in derivative source

Browse Source 
git-svn-id: trunk@32331 -
This commit is contained in:
ask 2011-09-14 11:19:15 +00:00
parent ef2a5f2019
commit 22d381a9b0
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/tachart/tasources.pas
View File

@ -918,16 +918,16 @@ var
i, j, ar: Integer;
dx: Double;
begin
FItem.SetY(0.0);
if AIndex = 0 then begin
FItem.X := SafeNan;
FItem.SetY(SafeNan);
exit;
end;
dx := FItem.X - FHistory.GetPLast(1)^.X;
if dx = 0 then begin
FItem.X := SafeNan;
FItem.SetY(SafeNan);
exit;
end;
FItem.SetY(0.0);
ar := IfThen(AccumulationRange = 0, MaxInt, AccumulationRange);
ar := MinValue([ar, Integer(AIndex + 1), High(COEFFS)]);
for j := 0 to ar - 1 do begin