paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 21:39:21 +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
This commit is contained in:
wp_xyz 2024-03-22 22:21:22 +01:00
parent 29f1643745
commit e11e1d3921
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

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