Changeset 643

Timestamp:

Oct 18, 2008, 12:48:40 AM (16 years ago)

Author:

イグトランス (egtra)

Message:

ListBoxをWmCommandControlの派生クラスへ変更。mouse_watcher_dlgが実行時エラーになる問題を解消。

File:

• trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/ListBox.ab (modified) (2 diffs)

trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/ListBox.ab

@@ -12 +12 @@
 */
 Class ListBox
-    Inherits Control
+    Inherits WmCommandControl
 Public
     Sub ListBox()
@@ -30 +30 @@
         End If
     End Sub
+
+    /*
+    @date 2008/10/18
+    @todo 対応するイベントをまだ設けていない通知メッセージへの対応
+    */
+    Override Function RaiseCommandEvent(notificationCode As Word) As Boolean
+        Dim lr As LRESULT
+        RaiseCommandEvent = False
+        Select Case notificationCode
+            Case LBN_ERRSPACE
+                RaiseCommandEvent = False
+            Case LBN_SELCHANGE
+                RaiseCommandEvent = False
+            Case BN_CLICKED
+                RaiseCommandEvent = OnClick(Args.Empty)
+            Case LBN_DBLCLK
+                RaiseCommandEvent = OnDoubleClick(Args.Empty)
+            Case LBN_SELCANCEL
+                RaiseCommandEvent = False
+            Case LBN_SETFOCUS
+                RaiseCommandEvent = ProcessMessage(WM_SETFOCUS, 0, 0, lr)
+            Case LBN_KILLFOCUS
+                RaiseCommandEvent = ProcessMessage(WM_KILLFOCUS, 0, 0, lr)
+        End Select
+    End Function
 Protected
     Override Sub GetCreateStruct(ByRef cs As CREATESTRUCT)