Changeset 643 for trunk


Ignore:
Timestamp:
Oct 18, 2008, 12:48:40 AM (16 years ago)
Author:
イグトランス (egtra)
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/ListBox.ab

    r611 r643  
    1212*/
    1313Class ListBox
    14     Inherits Control
     14    Inherits WmCommandControl
    1515Public
    1616    Sub ListBox()
     
    3030        End If
    3131    End Sub
     32
     33    /*
     34    @date 2008/10/18
     35    @todo 対応するイベントをまだ設けていない通知メッセージへの対応
     36    */
     37    Override Function RaiseCommandEvent(notificationCode As Word) As Boolean
     38        Dim lr As LRESULT
     39        RaiseCommandEvent = False
     40        Select Case notificationCode
     41            Case LBN_ERRSPACE
     42                RaiseCommandEvent = False
     43            Case LBN_SELCHANGE
     44                RaiseCommandEvent = False
     45            Case BN_CLICKED
     46                RaiseCommandEvent = OnClick(Args.Empty)
     47            Case LBN_DBLCLK
     48                RaiseCommandEvent = OnDoubleClick(Args.Empty)
     49            Case LBN_SELCANCEL
     50                RaiseCommandEvent = False
     51            Case LBN_SETFOCUS
     52                RaiseCommandEvent = ProcessMessage(WM_SETFOCUS, 0, 0, lr)
     53            Case LBN_KILLFOCUS
     54                RaiseCommandEvent = ProcessMessage(WM_KILLFOCUS, 0, 0, lr)
     55        End Select
     56    End Function
    3257Protected
    3358    Override Sub GetCreateStruct(ByRef cs As CREATESTRUCT)
Note: See TracChangeset for help on using the changeset viewer.