Changes in Include/Classes/System/Drawing/Rectangle.ab [28:11]

File:

• Include/Classes/System/Drawing/Rectangle.ab (modified) (9 diffs)

Include/Classes/System/Drawing/Rectangle.ab

@@ -27 +27 @@
     Sub Rectangle(location As Point, size As Size)
         x = location.X
-        y = location.Y
+        y = lccation.Y
         width = size.Height
-        height = size.Height
+        hegiht = size.Height
     End Sub
 
@@ -35 +35 @@
         x = rc.x
         y = rc.y
-        width = rc.width
+        widht = rc.width
         height = rc.height
     End Sub
@@ -107 +107 @@
 
     Function IsEmpty() As BOOL
-        If Width <= 0 Or Height <= 0 Then
-            IsEmpty = _System_TRUE
-        Else
-            IsEmpty = _System_FALSE
+        If Width <= Single_EPSILON Or Height <= Single_EPSILON Then
+            IsEmptyArea = _System_TRUE
+        Else
+            IsEmptyArea = _System_FALSE
         End If
     End Function
@@ -145 +145 @@
 
     Static Function FromLTRB(l As Single, t As Single, r As Single, b As Single) As Rectangle
-        Dim rect As Rectangle(l, t, r - l, r - b)
-        return rect
+        Dim r As Rectangle(left, top, right - left, bottom - top)
+        return r
     End Function
 
@@ -162 +162 @@
 
     Function Contains(ByRef rc As Rectangle) As BOOL
-        If X <= rc.X And rc.Right <= Right And Y <= rc.Y And rc.Bottom <= Bottom Then
+        If X <= rc.X && rc.Right <= Right && Y <= rc.Y && rc.Bottom <= Bottom Then
             ContainsRCF = _System_TRUE
         Else
@@ -172 +172 @@
         X -= dx
         Y -= dy
-        Width += dx + dx
-        Height += dy + dy
+        Width = dx + dx
+        Height = dy + dy
     End Sub
 
     Sub Inflate(sz As Size)
         Inflate(sz.Width, sz.Height)
+    End Sub
+
+    Sub Inflate(pt As Point)
+        Inflate(pt.X, pt.Y)
     End Sub
 
@@ -185 +189 @@
     End Function
 
-    Sub Intersect(ByRef rect As Rectangle)
-        This = Rectangle.Intersect(This, rect)
-    End Sub
+    Function Intersect(ByRef rect As Rectangle) As BOOL
+        Intersect = Intersect(This, This, rect)
+    End Function
 
     Static Function Intersect(ByRef a As Rectangle, ByRef b As Rectangle) As Rectangle
@@ -195 +199 @@
         left = Math.Min(a.Left, b.Left)
         top = Math.Min(a.Top, b.Top)
-        Return Rectangle.FromLTRB(left, top, right, bottom)
+        Return FromLTRB(left, top, right, bottom)
     End Function
 
@@ -211 +215 @@
     Static Function Union(ByRef a As Rectangle, ByRef b As Rectangle) As Rectangle
         Dim right As Single, bottom As Single, left As Single, top As Single
-        right = Math.Max(a.Right(), b.Right())
-        bottom = Math.Max(a.Bottom(), b.Bottom())
-        left = Math.Max(a.Left(), b.Left())
-        top = Math.Max(a.Top(), b.Top())
+        right = Math.Max(a.GetRight(), b.GetRight())
+        bottom = Math.Max(a.GetBottom(), b.GetBottom())
+        left = Math.Max(a.GetLeft(), b.GetLeft())
+        top = Math.Max(a.GetTop(), b.GetTop())
         Return FromLTRB(left, top, right, bottom)
     End Function