From 9092a2cfc02650dea79a62bc78c832446d043848 Mon Sep 17 00:00:00 2001
From: wp_xyz <wp_xxyyzzz@gmx.net>
Date: Fri, 22 Mar 2024 22:21:22 +0100
Subject: [PATCH] TAChart: Fix inconsistent usage of brush styles in series
 OnCustomDrawPointer
 (https://forum.lazarus.freepascal.org/index.php/topic,66664.msg511859.html#msg511859).

(cherry picked from commit e11e1d39213293ff97863957378774b8115890e8)
---
 components/tachart/tatypes.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/tachart/tatypes.pas b/components/tachart/tatypes.pas
index 592e0b7413..af8abe85d9 100644
--- a/components/tachart/tatypes.pas
+++ b/components/tachart/tatypes.pas
@@ -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;