diff options
-rw-r--r-- | src/corelib/fpg_main.pas | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/corelib/fpg_main.pas b/src/corelib/fpg_main.pas index 0f117360..5907c1a9 100644 --- a/src/corelib/fpg_main.pas +++ b/src/corelib/fpg_main.pas @@ -422,6 +422,7 @@ procedure DebugLn(const s1, s2, s3, s4: TfpgString); // operator overloading of some useful structures operator = (a: TRect; b: TRect): boolean; operator = (const ASize1, ASize2: TfpgSize) b: Boolean; +operator = (const APoint1, APoint2: TPoint) b: Boolean; operator + (const APoint1, APoint2: TPoint) p: TPoint; operator + (const APoint1, APoint2: TfpgPoint) p: TfpgPoint; operator + (const APoint: TPoint; ASize: TfpgSize) p: TPoint; @@ -866,6 +867,11 @@ begin b := (ASize1.w = ASize2.w) and (ASize1.h = ASize2.h); end; +operator = (const APoint1, APoint2: TPoint) b: Boolean; +begin + b := (APoint1.X = APoint2.X) and (APoint1.Y = APoint2.Y); +end; + operator + (const APoint1, APoint2: TPoint) p: TPoint; begin p.x := APoint1.x + APoint2.x; |