Changeset 674


Ignore:
Timestamp:
Jan 12, 2009, 1:56:33 PM (16 years ago)
Author:
NoWest
Message:

チケット1 #198 の問題でマウスイベントが正常に動きませんので、
暫定的に変換プログラムを挿入しました。

File:
1 edited

Legend:

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

    r646 r674  
    217217        Dim wp = e.WParam
    218218        Dim lp = e.LParam
    219         makeMouseEventFromMsg = New MouseArgs(LOWORD(wp) As MouseButtons, 1, GET_X_LPARAM(lp), GET_Y_LPARAM(lp), 0)
     219
     220        /*************************************************/
     221        Dim mb As MouseButtons
     222        If LOWORD(wp) = 0 Then mb = MouseButtons.None
     223        If LOWORD(wp) and MK_LBUTTON Then mb or = MouseButtons.Left
     224        If LOWORD(wp) and MK_RBUTTON Then mb or = MouseButtons.Right
     225        If LOWORD(wp) and MK_MBUTTON Then mb or = MouseButtons.Middle
     226        If LOWORD(wp) and MK_XBUTTON1 Then mb or = MouseButtons.XButton1
     227        If LOWORD(wp) and MK_XBUTTON2 Then mb or = MouseButtons.XButton2
     228        If LOWORD(wp) and MK_SHIFT Then mb or = MouseButtons.Shift
     229        If LOWORD(wp) and MK_CONTROL Then mb or = MouseButtons.Control
     230        makeMouseEventFromMsg = New MouseArgs(mb, 1, GET_X_LPARAM(lp), GET_Y_LPARAM(lp), 0)
     231        /*************************************************/
     232
     233        'makeMouseEventFromMsg = New MouseArgs(LOWORD(wp) As MouseButtons, 1, GET_X_LPARAM(lp), GET_Y_LPARAM(lp), 0)
    220234    End Function
    221235
Note: See TracChangeset for help on using the changeset viewer.