Changeset 22 for branches/overos/UTypes.pas

Timestamp:

Dec 30, 2018, 1:01:14 AM (5 years ago)

Author:

chronos

Message:

• Added: Close button to window title bar.

File:

• branches/overos/UTypes.pas (modified) (6 diffs)

branches/overos/UTypes.pas

@@ -18 +18 @@
     class operator Add(A, B: TSize): TSize;
     class operator Subtract(A, B: TSize): TSize;
+    class operator Equal(A, B: TSize): Boolean;
   end;
 
@@ -28 +29 @@
     class operator Add(A, B: TPosition): TPosition;
     class operator Subtract(A, B: TPosition): TPosition;
+    class operator Equal(A, B: TPosition): Boolean;
   end;
 
@@ -37 +39 @@
     function Create(Position: TPosition; Size: TSize): TRectangle;
     function Contains(Position: TPosition): Boolean;
+    class operator Equal(A, B: TRectangle): Boolean;
+  end;
+
+  TMessage = class
+    Handle: TObject;
   end;
 
@@ -56 +63 @@
     (Self.Position.Left + Self.Size.Width >= Position.Left) and
     (Self.Position.Top + Self.Size.Height >= Position.Top);
+end;
+
+class operator TRectangle.Equal(A, B: TRectangle): Boolean;
+begin
+  Result := (A.Position = B.Position) and (A.Size = B.Size);
 end;
 
@@ -78 +90 @@
 end;
 
+class operator TPosition.Equal(A, B: TPosition): Boolean;
+begin
+  Result := (A.Left = B.Left) and (A.Top = B.Top);
+end;
+
 { TSize }
 
@@ -98 +115 @@
 end;
 
+class operator TSize.Equal(A, B: TSize): Boolean;
+begin
+  Result := (A.Width = B.Width) and (A.Height = B.Height);
+end;
+
 
 end.