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

Timestamp:

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

Author:

イグトランス (egtra)

Message:

GetHashCodeを実装

File:

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

Include/Classes/System/Drawing/Color.ab

@@ -75 +75 @@
     Sub SetFromCOLORREF(rgb As COLORREF)
         If (rgb And &hff000000) = &h01000000 Then
-            Exit Sub ' インデックス指定は無効
+            Exit Sub ' パレットインデックス指定は無効
         Else
             argb = Color_MakeARGB(255, GetRValue(rgb), GetGValue(rgb), GetBValue(rgb))
@@ -107 +107 @@
         Dim c As Color(a, r, g, b)
         Return c
+    End Function
+
+    Override Function GetHashCode() As Long
+        Return argb As Long
     End Function