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

Timestamp:

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

Author:

イグトランス (egtra)

Message:

GetHashCodeを実装

File:

• Include/Classes/System/Drawing/SizeF.ab (modified) (2 diffs)

Include/Classes/System/Drawing/SizeF.ab

@@ -40 +40 @@
     End Sub
 
-    Function Operator + (sz As SizeF) As SizeF
+    Function Operator +(sz As SizeF) As SizeF
         Dim ret As SizeF(width + sz.width, height + sz.height)
         Return ret
     End Function
 
-    Function Operator - (sz As SizeF) As SizeF
+    Function Operator -(sz As SizeF) As SizeF
         Dim ret As SizeF(width - sz.width, height - sz.height)
         Return ret
     End Function
 
-    Function Operator == (sz As SizeF) As Boolean
+    Function Operator ==(sz As SizeF) As Boolean
         Return Equals(sz)
     End Function
 
-    Function Operator <> (sz As SizeF) As Boolean
+    Function Operator <>(sz As SizeF) As Boolean
         Return Not Equals(sz)
     End Function
 
-    Sub Operator = (ByRef sz As SizeF)
+    Sub Operator =(ByRef sz As SizeF)
         width = sz.width
         height = sz.height
@@ -70 +70 @@
         End If
     End Function
+
+    Override Function GetHashCode() As Long
+        Return VarPtr(GetDWord(width)) Xor _System_BSwap(VarPtr(GetDWord(height)))
 
     Function IsEmpty() As Boolean