Changeset 637 for trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/Button.ab

Timestamp:

Sep 29, 2008, 1:02:27 AM (16 years ago)

Author:

イグトランス (egtra)

Message:

Button.OnClickの仕組みを汎用的（WM_COMMAND全般）に。WndProcなどをProtectedへ。

File:

• trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/Button.ab (modified) (2 diffs)

trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/Button.ab

@@ -13 +13 @@
 */
 Class Button
-    Inherits Control
+    Inherits WmCommandControl
 Protected
     Override Sub GetCreateStruct(ByRef cs As CREATESTRUCT)
@@ -26 +26 @@
     End Sub
 
+    Override Function RaiseCommandEvent(notificationCode As Word) As Boolean
+        Dim lr As LRESULT
+        RaiseCommandEvent = False
+        Select Case notificationCode
+            Case BN_CLICKED
+                RaiseCommandEvent = OnClick(Args.Empty)
+            Case BN_DBLCLK
+                RaiseCommandEvent = OnDoubleClick(Args.Empty)
+            Case BN_SETFOCUS
+                RaiseCommandEvent = ProcessMessage(WM_SETFOCUS, 0, 0, lr)
+            Case BN_KILLFOCUS
+                RaiseCommandEvent = ProcessMessage(WM_KILLFOCUS, 0, 0, lr)
+            'ここに挙げられなかったBNメッセージは、16ビットWindowsとの互換性のためとされているもの。
+        End Select
+    End Function
+
 End Class