Ignore:
Timestamp:
Feb 17, 2018, 11:39:36 PM (7 years ago)
Author:
chronos
Message:
  • Added: TGPoint multiply operator to avoid FPC internal error.
File:
1 edited

Legend:

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

    r186 r187  
    2323    class operator LessThanOrEqual(const A, B: TGPoint<T>): Boolean;
    2424    class operator Equal(const A, B: TGPoint<T>): Boolean;
     25    class operator Multiply(const A, B: TGPoint<T>): TGPoint<T>;
    2526    function Min(const A, B: TGPoint<T>): TGPoint<T>;
    2627    function Max(const A, B: TGPoint<T>): TGPoint<T>;
     
    417418end;
    418419
     420class operator TGPoint<T>.Multiply(const A, B: TGPoint<T>): TGPoint<T>;
     421begin
     422  Result.X := A.X * B.X;
     423  Result.Y := A.Y * B.Y;
     424end;
     425
    419426class operator TGPoint<T>.GreaterThan(const A, B: TGPoint<T>): Boolean;
    420427begin
Note: See TracChangeset for help on using the changeset viewer.