paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-25 05:37:17 +01:00
Code Issues Packages Projects Releases Wiki Activity

fpvectorial: Fix misplaced rounded rectangle painted on canvas.

Browse Source
This commit is contained in:
wp_xyz 2023-01-23 23:17:01 +01:00
parent f26def2c25
commit cd60db2407
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpvectorial/fpvectorial.pas
View File

@ -6347,6 +6347,7 @@ var
cc: T3dPointsArray = nil;
ctr: T3dPoint;
refPt: T3dPoint;
refPtRot: T3dPoint;
shift: T3dPoint;
j: Integer;
phi, lYAdj: Double;
@ -6394,9 +6395,10 @@ begin
pts[j] := Rotate3DPointInXY(pts[j], ctr, phi);
for j := 0 to High(cc) do
cc[j] := Rotate3DPointInXY(cc[j], ctr, phi);
refPtRot := Rotate3DPointInXY(refPt, ctr, phi); // refPt after rotation
// Perform the translation so that top/left corner is back at its original position.
shift := Make3dPoint(refPt.x - pts[0].x, refPt.y - pts[0].y);
// Perform the translation so that the refPt is back at its original position.
shift := Make3dPoint(refPt.x - refPtRot.x, refPt.y - refPtRot.y);
for j := 0 to High(pts) do
pts[j] := Offset3dPoint(pts[j], shift);
for j := 0 to High(cc) do