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

Timestamp:

Feb 16, 2007, 7:34:38 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

Boolean対応ほか微修正

File:

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

Include/Classes/System/Drawing/Rectangle.ab

@@ -110 +110 @@
     End Function
 
-    Function IsEmpty() As BOOL
+    Function IsEmpty() As Boolean
         If Width <= 0 Or Height <= 0 Then
             IsEmpty = _System_TRUE
@@ -140 +140 @@
     End Function
 
-    Function Equals(ByRef rc As Rectangle) As BOOL
+    Function Equals(ByRef rc As Rectangle) As Boolean
         If X = rc.X And Y = rc.Y And Width = rc.Width And Height = rc.Height Then
             Equals = _System_TRUE
@@ -153 +153 @@
     End Function
 
-    Function Contains(x As Long, y As Long) As BOOL
+    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
             Contains = _System_TRUE
@@ -161 +161 @@
     End Function
 
-    Function Contains(ByRef pt As Point) As BOOL
+    Function Contains(ByRef pt As Point) As Boolean
         ContainsPTF = Contains(pt.X, pt.Y)
     End Function
 
-    Function Contains(ByRef rc As Rectangle) As BOOL
+    Function Contains(ByRef rc As Rectangle) As Boolean
         If X <= rc.X And rc.Right <= Right And Y <= rc.Y And rc.Bottom <= Bottom Then
             ContainsRCF = _System_TRUE
@@ -202 +202 @@
     End Function
 
-    Function IntersectsWith(ByRef rc As Rectangle) As BOOL
+    Function IntersectsWith(ByRef rc As Rectangle) As Boolean
         If Left < rc.Right And _
             Top < rc.Bottom And _