paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 01:19:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Always draw axis arrows with solid pen.

Browse Source 
git-svn-id: trunk@65422 -
This commit is contained in:
wp 2021-07-08 19:48:46 +00:00
parent eb20bb28bc
commit 2d8041f71d
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/tachart/tatypes.pas
View File

@ -751,6 +751,7 @@ begin
diag := -ADrawer.Scale(Round(Sqrt(Sqr(Length) + Sqr(Width)))); diag := -ADrawer.Scale(Round(Sqrt(Sqr(Length) + Sqr(Width))));
pt1 := AEndPos + RotatePointX(diag, AAngle - da)*sgn; pt1 := AEndPos + RotatePointX(diag, AAngle - da)*sgn;
pt2 := AEndPos + RotatePointX(diag, AAngle + da)*sgn; pt2 := AEndPos + RotatePointX(diag, AAngle + da)*sgn;
ADrawer.SetPenParams(psSolid, FPColorToTColor(APen.FPColor), APen.Width);
if BaseLength > 0 then begin if BaseLength > 0 then begin
ptBase := AEndPos + RotatePointX(-ADrawer.Scale(BaseLength), AAngle)*sgn; ptBase := AEndPos + RotatePointX(-ADrawer.Scale(BaseLength), AAngle)*sgn;
ADrawer.SetBrushParams(bsSolid, FPColorToChartColor(APen.FPColor)); ADrawer.SetBrushParams(bsSolid, FPColorToChartColor(APen.FPColor));