Changeset 173


Ignore:
Timestamp:
Nov 24, 2017, 8:35:08 PM (7 years ago)
Author:
chronos
Message:
  • Fixed: Build under FPC 3.0.0.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Packages/Common/UGeometryClasses.pas

    r171 r173  
    9494  D: TPoint;
    9595begin
    96   D := TPoint.Create(P.X - Center.X, P.Y - Center.Y);
    97   Result := TPoint.Create(Center.X + Round(D.X * Cos(Angle) - D.Y * Sin(Angle)),
     96  D := Point(P.X - Center.X, P.Y - Center.Y);
     97  Result := Point(Center.X + Round(D.X * Cos(Angle) - D.Y * Sin(Angle)),
    9898    Center.Y + Round(D.X * Sin(Angle) + D.Y * Cos(Angle)));
    9999end;
Note: See TracChangeset for help on using the changeset viewer.