rechte Mausknopf hat drei EventIds

[mar]

Aus #PB_ events und #WM_ events lassen sich alle Zustände
der Maustasten generieren. Eine Eventabfrage fände ich schöner.

Aber was ist z.B. mit der mittleren Maustaste?

Code: Alles auswählen

If OpenWindow(0,0,0,200, 200 ,"Events",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  WindowID_0=WindowID(0) : CreateGadgetList(WindowID_0)
  ImageGadget(0,0,0,width,height,CreateImage(0,200,200))
  Repeat
    eventid=WaitWindowEvent()
    ;Debug eventid
    GadgetNummer = EventGadget()

    Select eventid
      Case #PB_Event_Gadget
       eventT=EventType()
       Debug "EventGadget"
       Select eventT
         Case #PB_EventType_LeftClick 
           Debug "#PB_EventType_LeftClick"
         Case #PB_EventType_RightClick
           Debug "#PB_EventType_RightClick"
         Case #PB_EventType_LeftDoubleClick
           Debug "#PB_EventType_LeftDoubleClick"
         Case #PB_EventType_RightDoubleClick
           Debug "#PB_EventType_RightDoubleClick"
         Case #PB_EventType_LostFocus
           Debug "#PB_EventType_LostFocus"
         Case #PB_EventType_Focus
           Debug "#PB_EventType_Focus"
         Case #PB_EventType_Change
           Debug "#PB_EventType_Change"
        EndSelect
      Case #WM_LBUTTONUP
        Debug "#WM_LBUTTONUP"
      Case 516 ; #WM_RBUTTONDOWN
        Debug "#WM_RBUTTONDOWN"
      Case 517 ;#WM_RBUTTONUP
        Debug "#WM_RBUTTONUP"
      Case #PB_Event_Menu
        Debug eventid : Debug "#PB_Event_Menu"
    EndSelect
  Until eventid=#PB_Event_CloseWindow
EndIf