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

TAChart: Fix TLineSeries.ColorEach ignoring LinePen.Width setting.

Browse Source
This commit is contained in:
wp_xyz 2021-09-16 11:48:12 +02:00
parent 8410f7274b
commit 62d7b87f0d
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

@ -677,7 +677,7 @@ var
// First line for line type ltFromOrigin // First line for line type ltFromOrigin
if LineType = ltFromOrigin then begin if LineType = ltFromOrigin then begin
origin := ParentChart.GraphToImage(AxisToGraph(ZeroDoublePoint)); origin := ParentChart.GraphToImage(AxisToGraph(ZeroDoublePoint));
ADrawer.SetPenParams(FLinePen.Style, col1); ADrawer.SetPenParams(FLinePen.Style, col1, FLinePen.Width);
ADrawer.Line(origin, imgPt1); ADrawer.Line(origin, imgPt1);
end; end;
@ -700,7 +700,7 @@ var
ceLineAfter, cePointAndLineAfter: col := col1; ceLineAfter, cePointAndLineAfter: col := col1;
else raise Exception.Create('TLineSeries: ColorEach error'); else raise Exception.Create('TLineSeries: ColorEach error');
end; end;
ADrawer.SetPenParams(FLinePen.Style, col); ADrawer.SetPenParams(FLinePen.Style, col, FLinePen.Width);
case LineType of case LineType of
ltFromPrevious: ltFromPrevious:
ADrawer.Line(imgPt1, imgPt2); ADrawer.Line(imgPt1, imgPt2);