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

TAChart: Scale arrows

Browse Source 
git-svn-id: trunk@31725 -
This commit is contained in:
ask 2011-07-17 08:48:38 +00:00
parent 4352638a91
commit 7e525bd5f0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/tachart/tatypes.pas
View File

@ -1011,8 +1011,8 @@ var
pt: TPoint;
begin
if not Visible then exit;
da := ArcTan2(Width, Length);
pt := Point(-Length, 0);
da := ArcTan2(ADrawer.Scale(Width), ADrawer.Scale(Length));
pt := Point(-ADrawer.Scale(Length), 0);
ADrawer.Polyline([
AEndPos + RotatePoint(pt, AAngle - da), AEndPos,
AEndPos + RotatePoint(pt, AAngle + da)], 0, 3);