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

fpvectorial: Fix clockwise flag of elliptic arc path segment in case of top-left coordinates.

Browse Source 
git-svn-id: trunk@52878 -
This commit is contained in:
wp 2016-08-27 19:37:07 +00:00
parent c334d3f20a
commit 1bdf5a3004
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpvectorial/fpvectorial.pas
View File

@ -3362,8 +3362,7 @@ function T2DSegment.GetPointAndTangentForDistance(ADistance: Double; out AX,
var
lStartPoint: T3DPoint;
begin
Result:=inherited GetPointAndTangentForDistance(ADistance, AX, AY,
ATangentAngle);
Result:=inherited GetPointAndTangentForDistance(ADistance, AX, AY, ATangentAngle);
if not GetStartPoint(lStartPoint) then Exit;
Result := LineEquation_GetPointAndTangentForLength(lStartPoint, Make3DPoint(X, Y), ADistance, AX, AY, ATangentAngle);
end;
@ -4867,7 +4866,7 @@ begin
segment.CY := ACenterY;
segment.XRotation := AXAxisRotation;
segment.LeftmostEllipse := False; // which value would it have?
segment.ClockwiseArcFlag := AClockwiseArcFlag;
segment.ClockwiseArcFlag := AClockwiseArcFlag xor FPage.UseTopLeftCoordinates;
segment.CenterSetByUser := True;
AppendSegment(segment);