Changeset 223 for Include/Classes/System/Drawing/Rectangle.ab

Timestamp:

Apr 30, 2007, 1:56:57 PM (18 years ago)

Author:

イグトランス (egtra)

Message:

Controlがコンパイルできるように修正

File:

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

Include/Classes/System/Drawing/Rectangle.ab

@@ -4 +4 @@
 #define __SYSTEM_DRAWING_RECTANGLE_AB__
 
-#include <Classes/System/Math.ab>
-#include <Classes/System/Drawing/RectangleF.ab>
-#include <Classes/System/Drawing/Point.ab>
-#include <Classes/System/Drawing/Size.ab>
+#require <Classes/System/Math.ab>
+#require <Classes/System/Drawing/RectangleF.ab>
+#require <Classes/System/Drawing/Point.ab>
+#require <Classes/System/Drawing/Size.ab>
 
 Class Rectangle
@@ -32 +32 @@
     End Sub
 
-    Sub Rectangle(ByRef r As Rectangle)
-        x = r.x
-        y = r.y
-        width = r.width
-        height = r.height
-    End Sub
-
     Sub Rectangle(ByRef r As RECT)
-        This = FromLTRB(r.left, r.top, r.right, r.bottom)
+        x = r.left
+        y = r.top
+        width = r.right - r.left
+        height = r.top - r.bottom
     End Sub
 
@@ -111 +107 @@
 
     Function IsEmpty() As Boolean
-        If Width <= 0 Or Height <= 0 Then
-            IsEmpty = _System_TRUE
-        Else
-            IsEmpty = _System_FALSE
-        End If
-    End Function
-/*
-    Function Operator = (rc As Rectangle)
-        With rc
-            x = .x
-            y = .y
-            width = .width
-            height = .height
-        End With
-    End Function
-*/
+        Return Width <= 0 Or Height <= 0
+    End Function
+
     Function Operator == (rc As Rectangle)
         Return Equals(rc)
@@ -140 +123 @@
 
     Function Equals(rc As Rectangle) As Boolean
-        If X = rc.X And Y = rc.Y And Width = rc.Width And Height = rc.Height Then
-            Return True
-        Else
-            Return False
-        End If
+        Return X = rc.X And Y = rc.Y And Width = rc.Width And Height = rc.Height
     End Function
 
     Override Function GetHashCode() As Long
-        Return x Xor _System_BSwap(y) Xor width Xor _System_BSwap(height)
+        Return x As DWord Xor _System_BSwap(y As DWord) Xor width As DWord Xor _System_BSwap(height As DWord)
     End Function
 
     Static Function FromLTRB(l As Long, t As Long, r As Long, b As Long) As Rectangle
-        return New Rectangle(l, t, r - l, r - b)
+        return New Rectangle(l, t, r - l, b - t)
     End Function
 
     Function Contains(x As Long, y As Long) As Boolean
-        If x >= X And x < X + Width And y >= Y And y < Y + Height Then
-            Return True
-        Else
-            Return False
-        End If
+        Return x >= X And x < X + Width And y >= Y And y < Y + Height
     End Function
 
@@ -168 +143 @@
 
     Function Contains(rc As Rectangle) As Boolean
-        If X <= rc.X And rc.Right <= Right And Y <= rc.Y And rc.Bottom <= Bottom Then
-            Return True
-        Else
-            Return False
-        End If
+        Return X <= rc.X And rc.Right <= Right And Y <= rc.Y And rc.Bottom <= Bottom
     End Function
 
@@ -205 +176 @@
 
     Function IntersectsWith(rc As Rectangle) As Boolean
-        If Left < rc.Right And _
+        Return Left < rc.Right And _
             Top < rc.Bottom And _
             Right > rc.Left And _
-            Bottom > rc.Top Then
-            Return True
-        Else
-            Return False
-        End If
+            Bottom > rc.Top
     End Function