paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 11:19:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Support brush style, pen style and pen width in fpvectorial drawer

Browse Source 
git-svn-id: trunk@38557 -
This commit is contained in:
ask 2012-09-07 13:07:09 +00:00
parent 2404c9e445
commit 0ee540a7df
1 changed files with 27 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
components/tachart/tadrawerfpvectorial.pas
View File

@ -34,8 +34,12 @@ type
FCanvas: TvVectorialPage;
FFontSize: Integer;
FPenColor: TFPColor;
FPenStyle: TFPPenStyle;
FPenWidth: Integer;
procedure AddLine(AX, AY: Integer);
procedure ApplyBrush;
procedure ApplyPen;
function InvertY(AY: Integer): Integer; inline;
strict protected
function GetFontAngle: Double; override;
@ -92,6 +96,19 @@ begin
Unused(ADelta);
end;
procedure TFPVectorialDrawer.ApplyBrush;
begin
FCanvas.SetBrushColor(FBrushColor);
FCanvas.SetBrushStyle(FBrushStyle);
end;
procedure TFPVectorialDrawer.ApplyPen;
begin
FCanvas.SetPenColor(FPenColor);
FCanvas.SetPenStyle(FPenStyle);
FCanvas.SetPenWidth(FPenWidth);
end;
procedure TFPVectorialDrawer.ClippingStart(const AClipRect: TRect);
begin
Unused(AClipRect); // Not implemented.
@ -188,8 +205,8 @@ begin
for i := 1 to ANumPts - 1 do
with APoints[i + AStartIndex] do
AddLine(X, Y);
FCanvas.SetBrushColor(FBrushColor);
FCanvas.SetPenColor(FPenColor);
ApplyBrush;
ApplyPen;
FCanvas.EndPath();
end;
@ -203,13 +220,15 @@ begin
for i := 1 to ANumPts - 1 do
with APoints[i + AStartIndex] do
AddLine(X, Y);
FCanvas.SetPenColor(FPenColor);
ApplyPen;
FCanvas.EndPath();
end;
procedure TFPVectorialDrawer.PrepareSimplePen(AColor: TChartColor);
begin
FPenColor := FChartColorToFPColorFunc(AColor);
FPenStyle := psSolid;
FPenWidth := 1;
end;
procedure TFPVectorialDrawer.RadialPie(
@ -228,9 +247,8 @@ begin
AddLine(AX2, AY2);
AddLine(AX1, AY2);
AddLine(AX1, AY1);
FCanvas.SetBrushColor(FBrushColor);
FCanvas.SetBrushStyle(FBrushStyle);
FCanvas.SetPenColor(FPenColor);
ApplyBrush;
ApplyPen;
FCanvas.EndPath();
end;
@ -266,12 +284,14 @@ end;
procedure TFPVectorialDrawer.SetPen(APen: TFPCustomPen);
begin
FPenColor := APen.FPColor;
FPenStyle := APen.Style;
FPenWidth := APen.Width;
end;
procedure TFPVectorialDrawer.SetPenParams(
AStyle: TFPPenStyle; AColor: TChartColor);
begin
Unused(AStyle);
FPenStyle := AStyle;
FPenColor := FChartColorToFPColorFunc(AColor);
end;