'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 Control
Protected
	Override Sub GetCreateStruct(ByRef cs As CREATESTRUCT)
		With cs
			.lpszClass = "BUTTON"
			.style Or= BS_PUSHBUTTON
			.x = 0
			.y = 0
			.cx = 0
			.cy = 0
		End With
	End Sub
Public
	Sub RaiseClick()
		OutputDebugString(Ex"RaiseClick\r\n")
		OnClick(Args.Empty)
	End Sub

End Class

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