Changeset 223 for Include/Classes/System/Windows/Forms/Message.ab

Timestamp:

Apr 30, 2007, 1:56:57 PM (18 years ago)

Author:

イグトランス (egtra)

Message:

Controlがコンパイルできるように修正

File:

• Include/Classes/System/Windows/Forms/Message.ab (modified) (7 diffs)

Include/Classes/System/Windows/Forms/Message.ab

@@ -4 +4 @@
 #define __SYSTEM_WINDOWS_FORMS_MESSAGE_AB__
 
+#require <windows.sbp>
+
 Class Message
 Public
-    Sub Operator =(ByRef x As Message)
-        hwnd = x.hwnd
-        msg = x.msg
-        wp = x.wp
-        lp = x.lp
-        lr = x.lr
-    End Sub
-
-    /*Const*/ Function HWnd() As HWND
+    Const Function HWnd() As HWND
         Return hwnd
     End Function
@@ -22 +16 @@
     End Sub
 
-    /*Const*/ Function Msg() As DWord
+    Const Function Msg() As DWord
         Return msg
     End Function
@@ -30 +24 @@
     End Sub
 
-    /*Const*/ Function WParam() As WPARAM
+    Const Function WParam() As WPARAM
         Return wp
     End Function
@@ -38 +32 @@
     End Sub
 
-    /*Const*/ Function LParam() As LPARAM
+    Const Function LParam() As LPARAM
         Return lp
     End Function
@@ -46 +40 @@
     End Sub
 
-    /*Const*/ Function Result() As LRESULT
+    Const Function Result() As LRESULT
         Return lr
     End Function
@@ -54 +48 @@
     End Sub
 
-    /*Const*/ Function Equals(x As Message) As BOOL
+    /*Const*/ Function Equals(x As Message) As Boolean
         Return hwnd = x.hwnd And _
             msg = x.msg And _
@@ -62 +56 @@
     End Function
 
-    /*Const*/ Function Operator ==(x As Message) As BOOL
+    Override Function GetHashCode() As Long
+        Return _System_HashFromPtr(hwnd) Xor (Not msg) Xor _System_HashFromPtr(wp As VoidPtr) Xor _
+            (Not _System_HashFromPtr(lp As VoidPtr)) Xor _System_HashFromPtr(lr As VoidPtr)
+    End Function
+
+    Const Function Operator ==(x As Message) As BOOL
         Return Equals(x)
     End Function
 
-    /*Const*/ Function Operator <>(x As Message) As BOOL
+    Const Function Operator <>(x As Message) As BOOL
         Return Not Equals(x)
     End Function