Changeset 173 for trunk/Packages

Timestamp:

Nov 24, 2017, 8:35:08 PM (7 years ago)

Author:

chronos

Message:

• Fixed: Build under FPC 3.0.0.

File:

• trunk/Packages/Common/UGeometryClasses.pas (modified) (1 diff)

trunk/Packages/Common/UGeometryClasses.pas

@@ -94 +94 @@
   D: TPoint;
 begin
-  D := TPoint.Create(P.X - Center.X, P.Y - Center.Y);
-  Result := TPoint.Create(Center.X + Round(D.X * Cos(Angle) - D.Y * Sin(Angle)),
+  D := Point(P.X - Center.X, P.Y - Center.Y);
+  Result := Point(Center.X + Round(D.X * Cos(Angle) - D.Y * Sin(Angle)),
     Center.Y + Round(D.X * Sin(Angle) + D.Y * Cos(Angle)));
 end;