Changeset 212 for Include/Classes/System/Drawing/Point.ab

Timestamp:

Apr 13, 2007, 5:12:31 PM (18 years ago)

Author:

イグトランス (egtra)

Message:

Object.ReferenceEqualsを追加

File:

• Include/Classes/System/Drawing/Point.ab (modified) (4 diffs)

Include/Classes/System/Drawing/Point.ab

@@ -20 +20 @@
     End Sub
 
-    Sub Point(ByRef pt As Point)
+    Sub Point(pt As Point)
         x = pt.x
         y = pt.y
@@ -52 +52 @@
 
     Function IsEmpty() As Boolean
-        If x = 0 And y = 0 Then
-            Return _System_TRUE
-        Else
-            Return _System_FALSE
-        End If
+        Return x = 0 And y = 0
     End Function
-
+/*
     Sub Operator = (ByRef pt As Point)
         x = pt.x
         y = pt.y
     End Sub
-
+*/
     Function Operator + (pt As Point) As Point
         Return Add(This, pt)
@@ -119 +115 @@
 
     Function Equals(pt As Point) As Boolean
-        If x = pt.x And y = pt.y Then
-            Equals = _System_TRUE
-        Else
-            Equals = _System_FALSE
-        End If
+        Return x = pt.x And y = pt.y
     End Function
 
@@ -145 +137 @@
     End Function
 
+    Function Operator () As PointF
+        Return Return PointF(X, Y)
+    End Function
+
 Private
     x As Long