Operator overloading for TRect structure.

1 files changed, 13 insertions, 0 deletions

diff --git a/src/corelib/fpg_main.pas b/src/corelib/fpg_main.pas
index c0209f08..3841c250 100644
--- a/src/corelib/fpg_main.pas
+++ b/src/corelib/fpg_main.pas
@@ -385,6 +385,8 @@ procedure DebugLn(const s1, s2: TfpgString);
 procedure DebugLn(const s1, s2, s3: TfpgString);
 procedure DebugLn(const s1, s2, s3, s4: TfpgString);
 
+// operator overloading of some useful structures
+operator = (a: TRect; b: TRect): boolean;
 
 implementation
 
@@ -769,6 +771,17 @@ begin
   DebugLn(s1 + ' ' + s2 + ' ' + s3 + ' ' + s4);
 end;
 
+operator = (a: TRect; b: TRect): boolean;
+begin
+  if    (a.Top    = b.Top)
+    and (a.Left   = b.Left)
+    and (a.Bottom = b.Bottom)
+    and (a.Right  = b.Right) then
+    Result := True
+  else
+    Result := False;
+end;
+
 { TfpgTimer }
 
 procedure TfpgTimer.SetEnabled(const AValue: boolean);