Changeset 642 for trunk/ab5.0/ablib/src/Classes

Timestamp:

Oct 17, 2008, 12:45:59 AM (16 years ago)

Author:

イグトランス (egtra)

Message:

CheckBoxとButtonBaseクラスを追加。

Location:

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

Files:

• Button.ab (modified) (2 diffs)
• ButtonBase.ab (added)
• CheckBox.ab (added)

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

@@ -1 +1 @@
 'Classes/ActiveBasic/Windows/UI/Button.ab
 
-#require <Classes/ActiveBasic/Windows/UI/Control.ab>
+#require <Classes/ActiveBasic/Windows/UI/ButtonBase.ab>
 
 Namespace ActiveBasic
@@ -13 +13 @@
 */
 Class Button
-    Inherits WmCommandControl
+    Inherits ButtonBase
 Protected
     Override Sub GetCreateStruct(ByRef cs As CREATESTRUCT)
-        With cs
-            .lpszClass = "BUTTON"
-            .style Or= BS_PUSHBUTTON
-        End With
+        Super.GetCreateStruct(cs)
+        cs.style Or= BS_PUSHBUTTON
     End Sub
 Public
-    Sub RaiseClick()
-        OnClick(Args.Empty)
-    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