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

TAChart: Fix TLineSeries segment tracer crashing when only 1 y value exists.

Browse Source 
git-svn-id: trunk@63050 -
This commit is contained in:
wp 2020-04-22 21:05:31 +00:00
parent f86c4782e6
commit bb4e2d9fb8
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/tachart/taseries.pas
View File

@ -812,6 +812,8 @@ begin
PrepareGraphPoints(ext, true); PrepareGraphPoints(ext, true);
dmin := AResults.FDist; dmin := AResults.FDist;
for levelIndex := 0 to Source.YCount-1 do begin for levelIndex := 0 to Source.YCount-1 do begin
if levelIndex > 0 then
UpdateGraphPoints(levelIndex, FStacked);
ip1 := ParentChart.GraphToImage(FGraphPoints[0]); ip1 := ParentChart.GraphToImage(FGraphPoints[0]);
for pointIndex := 1 to FUpBound - FLoBound do begin for pointIndex := 1 to FUpBound - FLoBound do begin
ip2 := ParentChart.GraphToImage(FGraphPoints[pointIndex]); ip2 := ParentChart.GraphToImage(FGraphPoints[pointIndex]);
@ -827,7 +829,6 @@ begin
end; end;
if not ((nptYList in AParams.FTargets) and (nptYList in ToolTargets)) then if not ((nptYList in AParams.FTargets) and (nptYList in ToolTargets)) then
break; break;
UpdateGraphPoints(levelIndex, FStacked);
end; end;
if dmin < AResults.FDist then if dmin < AResults.FDist then