'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