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

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

Namespace ActiveBasic
Namespace Windows
Namespace UI

/*!
@date 2008/07/13
@brief	ボタンを表すクラス。
@author Egtra
*/
Class Button
	Inherits ButtonBase
Protected
	Override Sub GetCreateStruct(ByRef cs As CREATESTRUCT)
		Super.GetCreateStruct(cs)
		cs.style Or= BS_PUSHBUTTON
	End Sub
Public

End Class

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