Implemented equals (=) operator for TPoint type

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;