diff --git a/components/tachart/tadraweraggpas.pas b/components/tachart/tadraweraggpas.pas
index 28381987f5..b9587706e4 100644
--- a/components/tachart/tadraweraggpas.pas
+++ b/components/tachart/tadraweraggpas.pas
@@ -200,8 +200,8 @@ end;
 procedure TAggPasDrawer.SetBrushParams(
   AStyle: TFPBrushStyle; AColor: TChartColor);
 begin
-  FCanvas.Brush.Style := AStyle;
   FCanvas.Brush.Color := AColor;
+  FCanvas.Brush.Style := AStyle;
 end;
 
 procedure TAggPasDrawer.SetFont(AFont: TFPCustomFont);
diff --git a/components/tachart/tadrawerbgra.pas b/components/tachart/tadrawerbgra.pas
index 16e862fc2e..58bab1c2c0 100644
--- a/components/tachart/tadrawerbgra.pas
+++ b/components/tachart/tadrawerbgra.pas
@@ -205,8 +205,8 @@ end;
 procedure TBGRABitmapDrawer.SetBrushParams(
   AStyle: TFPBrushStyle; AColor: TChartColor);
 begin
-  Canvas.Brush.Color := AColor;
   Canvas.Brush.Style := AStyle;
+  Canvas.Brush.Color := AColor;
 end;
 
 procedure TBGRABitmapDrawer.SetFont(AFont: TFPCustomFont);
diff --git a/components/tachart/tadrawercanvas.pas b/components/tachart/tadrawercanvas.pas
index 9b50c2cc62..28b228d431 100644
--- a/components/tachart/tadrawercanvas.pas
+++ b/components/tachart/tadrawercanvas.pas
@@ -242,8 +242,8 @@ end;
 procedure TCanvasDrawer.SetBrushParams(
   AStyle: TFPBrushStyle; AColor: TChartColor);
 begin
-  FCanvas.Brush.Style := AStyle;
   FCanvas.Brush.Color := AColor;
+  FCanvas.Brush.Style := AStyle;
 end;
 
 procedure TCanvasDrawer.SetFont(AFont: TFPCustomFont);
diff --git a/components/tachart/tadrawerfpcanvas.pas b/components/tachart/tadrawerfpcanvas.pas
index 0f7740d245..cdfc036a45 100644
--- a/components/tachart/tadrawerfpcanvas.pas
+++ b/components/tachart/tadrawerfpcanvas.pas
@@ -241,8 +241,8 @@ end;
 procedure TFPCanvasDrawer.SetBrushParams(
   AStyle: TFPBrushStyle; AColor: TChartColor);
 begin
-  FCanvas.Brush.Style := AStyle;
   FCanvas.Brush.FPColor := FChartColorToFPColorFunc(AColor);
+  FCanvas.Brush.Style := AStyle;
 end;
 
 procedure TFPCanvasDrawer.SetFont(AFont: TFPCustomFont);
diff --git a/components/tachart/tadrawerfpvectorial.pas b/components/tachart/tadrawerfpvectorial.pas
index 52f8bdbfca..b2d1a6e94b 100644
--- a/components/tachart/tadrawerfpvectorial.pas
+++ b/components/tachart/tadrawerfpvectorial.pas
@@ -252,8 +252,8 @@ end;
 procedure TFPVectorialDrawer.SetBrushParams(
   AStyle: TFPBrushStyle; AColor: TChartColor);
 begin
-  FBrushStyle := AStyle;
   SetBrushColor(AColor);
+  FBrushStyle := AStyle;
 end;
 
 procedure TFPVectorialDrawer.SetFont(AFont: TFPCustomFont);
diff --git a/components/tachart/tadraweropengl.pas b/components/tachart/tadraweropengl.pas
index e96e23d234..19c8043b1a 100644
--- a/components/tachart/tadraweropengl.pas
+++ b/components/tachart/tadraweropengl.pas
@@ -266,8 +266,8 @@ end;
 procedure TOpenGLDrawer.SetBrushParams(
   AStyle: TFPBrushStyle; AColor: TChartColor);
 begin
-  Unused(AStyle);
   SetBrushColor(AColor);
+  Unused(AStyle);
 end;
 
 procedure TOpenGLDrawer.SetFont(AFont: TFPCustomFont);