paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 05:21:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Support per-point coloring of line series

Browse Source 
git-svn-id: trunk@27566 -
This commit is contained in:
ask 2010-10-04 10:20:29 +00:00
parent 213a8b5ef1
commit 3d801aa92c
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/tatypes.pas
View File

@ -730,8 +730,9 @@ const
'41236', '47896', '87412', '89632', '84268',
'183', '842', '862');
begin
Unused(AColor); // TODO
ACanvas.Brush.Assign(FBrush);
if AColor <> clTAColor then
ACanvas.Brush.Color := AColor;
ACanvas.Pen.Assign(FPen);
if FStyle = psCircle then