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

Timestamp:

Mar 13, 2007, 11:55:49 AM (17 years ago)

Author:

イグトランス (egtra)

Message:

GetHashCodeを実装

File:

• Include/Classes/System/Drawing/Rectangle.ab (modified) (1 diff)

Include/Classes/System/Drawing/Rectangle.ab

@@ -148 +148 @@
     End Function
 
+    Override Function GetHashCode() As Long
+        Return x Xor _System_BSwap(y) Xor width Xor _System_BSwap(height)
+    End Function
+
     Static Function FromLTRB(l As Long, t As Long, r As Long, b As Long) As Rectangle
         Dim rect As Rectangle(l, t, r - l, r - b)