paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 16:29:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Find point index error in relation with ColorEach of line series (https://forum.lazarus.freepascal.org/index.php/topic,56324.msg418533.html#msg418533).

Browse Source 
(cherry picked from commit 925e2e7370)
This commit is contained in:
wp_xyz 2021-09-17 21:28:48 +02:00
parent 94392c6abd
commit 0bc0484c52
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/tachart/taseries.pas
View File

@ -672,7 +672,7 @@ var
ADrawer.Pen := LinePen; ADrawer.Pen := LinePen;
imgPt1 := ParentChart.GraphToImage(gp); imgPt1 := ParentChart.GraphToImage(gp);
col1 := GetPtColor(i); col1 := GetPtColor(i + FLoBound);
// First line for line type ltFromOrigin // First line for line type ltFromOrigin
if LineType = ltFromOrigin then begin if LineType = ltFromOrigin then begin
@ -693,7 +693,7 @@ var
hasBreak := false; hasBreak := false;
end; end;
imgPt2 := ParentChart.GraphToImage(gp); imgPt2 := ParentChart.GraphToImage(gp);
col2 := GetPtColor(i); col2 := GetPtColor(i + FLoBound);
if imgPt1 <> imgPt2 then begin if imgPt1 <> imgPt2 then begin
case FColorEach of case FColorEach of
ceLineBefore, cePointAndLineBefore: col := col2; ceLineBefore, cePointAndLineBefore: col := col2;