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

TAChart: Fix inconsistent usage of brush styles in series OnCustomDrawPointer (https://forum.lazarus.freepascal.org/index.php/topic,66664.msg511859.html#msg511859).

Browse Source 
(cherry picked from commit e11e1d3921)
This commit is contained in:
wp_xyz 2024-03-22 22:21:22 +01:00 committed by Maxim Ganetsky
parent 75b70bbbc0
commit 9092a2cfc0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/tatypes.pas
View File

@ -500,7 +500,7 @@ begin
if not ABrushAlreadySet then begin
ADrawer.Brush := Brush;
if (ocBrush in OverrideColor) and (AColor <> clTAColor) then
ADrawer.BrushColor := AColor;
ADrawer.SetBrushParams(Brush.Style, AColor);
end;
ADrawer.Pen := Pen;