source: trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/StaticText.ab@ 638

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

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

Namespace ActiveBasic
Namespace Windows
Namespace UI

/*!
@brief スタティックコントロールのクラス（テキスト専用）
@date 2008/09/29
@auther Egtra
アイコンとか画像表示はまた別のクラスで
*/
Class StaticText
    Inherits WmCommandControl
Protected
    Override Sub GetCreateStruct(ByRef cs As CREATESTRUCT)
        With cs
            .lpszClass = "STATIC"
        End With
    End Sub
Public
    Override Function RaiseCommandEvent(notificationCode As Word) As Boolean
        'ToDo: 後でイベントを調べる
        RaiseCommandEvent = False
    End Function

    'ToDo: Lineなどを設ける
End Class

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