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

TAChart: Fix DataPoint tools not finding stacked TBarSeries values.

Browse Source 
git-svn-id: trunk@63884 -
This commit is contained in:
wp 2020-09-17 10:41:14 +00:00
parent 1be98b28e2
commit b842bf6451
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/tachart/taseries.pas
View File

@ -1715,7 +1715,9 @@ begin
AResults.FDist := 0; AResults.FDist := 0;
AResults.FIndex := pointindex; AResults.FIndex := pointindex;
AResults.FYIndex := stackIndex; AResults.FYIndex := stackIndex;
AResults.FValue := DoublePoint(Source[pointindex]^.X, Source[pointindex]^.GetY(stackIndex)); AResults.FValue := DoublePoint(Source[pointIndex]^.X, Source[pointindex]^.GetY(stackIndex));
if FStacked and (stackIndex > 0) then
AResults.FValue.Y := AResults.FValue.Y + heights[stackIndex];
AResults.FValue := AxisToGraph(AResults.FValue); AResults.FValue := AxisToGraph(AResults.FValue);
AResults.FImg := ParentChart.GraphToImage(AResults.FValue); AResults.FImg := ParentChart.GraphToImage(AResults.FValue);
Result := true; Result := true;