mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-10-02 13:50:15 +02:00
TAChart: Add operator- for TDoublePoint
git-svn-id: trunk@24349 -
This commit is contained in:
parent
f15d3f5f96
commit
fafe56406f
@ -193,6 +193,7 @@ operator +(const A: TPoint; B: TSize): TPoint; overload; inline;
|
||||
operator +(const A, B: TPoint): TPoint; overload; inline;
|
||||
operator +(const A, B: TDoublePoint): TDoublePoint; overload; inline;
|
||||
operator - (const A, B: TPoint): TPoint; overload; inline;
|
||||
operator -(const A, B: TDoublePoint): TDoublePoint; overload; inline;
|
||||
operator =(const A, B: TMethod): Boolean; overload; inline;
|
||||
|
||||
implementation
|
||||
@ -528,6 +529,12 @@ begin
|
||||
Result.Y := A.Y - B.Y;
|
||||
end;
|
||||
|
||||
operator - (const A, B: TDoublePoint): TDoublePoint; overload; inline;
|
||||
begin
|
||||
Result.X := A.X - B.X;
|
||||
Result.Y := A.Y - B.Y;
|
||||
end;
|
||||
|
||||
operator = (const A, B: TMethod): Boolean;
|
||||
begin
|
||||
Result := (A.Code = B.Code) and (A.Data = B.Data);
|
||||
|
Loading…
Reference in New Issue
Block a user