Index: trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/StaticText.ab
===================================================================
--- trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/StaticText.ab	(revision 638)
+++ trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/StaticText.ab	(revision 638)
@@ -0,0 +1,34 @@
+'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