source: trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/Button.ab@ 637

'Classes/ActiveBasic/Windows/UI/Button.ab

#require <Classes/ActiveBasic/Windows/UI/Control.ab>

Namespace ActiveBasic
Namespace Windows
Namespace UI

/*!
@date 2008/07/13
@brief  ボタンを表すクラス。
@author Egtra
*/
Class Button
    Inherits WmCommandControl
Protected
    Override Sub GetCreateStruct(ByRef cs As CREATESTRUCT)
        With cs
            .lpszClass = "BUTTON"
            .style Or= BS_PUSHBUTTON
        End With
    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

End Namespace 'UI
End Namespace 'Widnows
End Namespace 'ActiveBasic