paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 13:50:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Set Brush.Color before Brush.Style to work around issue #21806

Browse Source 
git-svn-id: trunk@36913 -
This commit is contained in:
ask 2012-04-20 01:07:20 +00:00
parent 1060d6f033
commit 50f4ffe8f5
6 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/tadraweraggpas.pas
View File

@ -200,8 +200,8 @@ end;
procedure TAggPasDrawer.SetBrushParams( procedure TAggPasDrawer.SetBrushParams(
AStyle: TFPBrushStyle; AColor: TChartColor); AStyle: TFPBrushStyle; AColor: TChartColor);
begin begin
FCanvas.Brush.Style := AStyle;
FCanvas.Brush.Color := AColor; FCanvas.Brush.Color := AColor;
FCanvas.Brush.Style := AStyle;
end; end;
procedure TAggPasDrawer.SetFont(AFont: TFPCustomFont); procedure TAggPasDrawer.SetFont(AFont: TFPCustomFont);

2
components/tachart/tadrawerbgra.pas
View File

@ -205,8 +205,8 @@ end;
procedure TBGRABitmapDrawer.SetBrushParams( procedure TBGRABitmapDrawer.SetBrushParams(
AStyle: TFPBrushStyle; AColor: TChartColor); AStyle: TFPBrushStyle; AColor: TChartColor);
begin begin
Canvas.Brush.Color := AColor;
Canvas.Brush.Style := AStyle; Canvas.Brush.Style := AStyle;
Canvas.Brush.Color := AColor;
end; end;
procedure TBGRABitmapDrawer.SetFont(AFont: TFPCustomFont); procedure TBGRABitmapDrawer.SetFont(AFont: TFPCustomFont);

2
components/tachart/tadrawercanvas.pas
View File

@ -242,8 +242,8 @@ end;
procedure TCanvasDrawer.SetBrushParams( procedure TCanvasDrawer.SetBrushParams(
AStyle: TFPBrushStyle; AColor: TChartColor); AStyle: TFPBrushStyle; AColor: TChartColor);
begin begin
FCanvas.Brush.Style := AStyle;
FCanvas.Brush.Color := AColor; FCanvas.Brush.Color := AColor;
FCanvas.Brush.Style := AStyle;
end; end;
procedure TCanvasDrawer.SetFont(AFont: TFPCustomFont); procedure TCanvasDrawer.SetFont(AFont: TFPCustomFont);

2
components/tachart/tadrawerfpcanvas.pas
View File

@ -241,8 +241,8 @@ end;
procedure TFPCanvasDrawer.SetBrushParams( procedure TFPCanvasDrawer.SetBrushParams(
AStyle: TFPBrushStyle; AColor: TChartColor); AStyle: TFPBrushStyle; AColor: TChartColor);
begin begin
FCanvas.Brush.Style := AStyle;
FCanvas.Brush.FPColor := FChartColorToFPColorFunc(AColor); FCanvas.Brush.FPColor := FChartColorToFPColorFunc(AColor);
FCanvas.Brush.Style := AStyle;
end; end;
procedure TFPCanvasDrawer.SetFont(AFont: TFPCustomFont); procedure TFPCanvasDrawer.SetFont(AFont: TFPCustomFont);

2
components/tachart/tadrawerfpvectorial.pas
View File

@ -252,8 +252,8 @@ end;
procedure TFPVectorialDrawer.SetBrushParams( procedure TFPVectorialDrawer.SetBrushParams(
AStyle: TFPBrushStyle; AColor: TChartColor); AStyle: TFPBrushStyle; AColor: TChartColor);
begin begin
FBrushStyle := AStyle;
SetBrushColor(AColor); SetBrushColor(AColor);
FBrushStyle := AStyle;
end; end;
procedure TFPVectorialDrawer.SetFont(AFont: TFPCustomFont); procedure TFPVectorialDrawer.SetFont(AFont: TFPCustomFont);

2
components/tachart/tadraweropengl.pas
View File

@ -266,8 +266,8 @@ end;
procedure TOpenGLDrawer.SetBrushParams( procedure TOpenGLDrawer.SetBrushParams(
AStyle: TFPBrushStyle; AColor: TChartColor); AStyle: TFPBrushStyle; AColor: TChartColor);
begin begin
Unused(AStyle);
SetBrushColor(AColor); SetBrushColor(AColor);
Unused(AStyle);
end; end;
procedure TOpenGLDrawer.SetFont(AFont: TFPCustomFont); procedure TOpenGLDrawer.SetFont(AFont: TFPCustomFont);