PureBoard

Code: Alles auswählen

Define flags

flags = #PB_Canvas_Container

OpenWindow(0, #PB_Ignore, #PB_Ignore, 500, 500, "Canvas Test")

CanvasGadget(0, 0, 0, 500, 500, flags)

ButtonGadget(1, 0, 0, 50, 30, "Test")

If flags & #PB_Canvas_Container : CloseGadgetList() : EndIf

Repeat
  Select WindowEvent()
    Case #PB_Event_Gadget
      Select EventGadget()
        Case 0
          If EventType() = #PB_EventType_MouseWheel
            Debug GetGadgetAttribute(0, #PB_Canvas_WheelDelta)
          EndIf
      EndSelect
    Case #PB_Event_CloseWindow
      End
  EndSelect
ForEver

Code: Alles auswählen

flags = #PB_Canvas_Container | #PB_Canvas_Keyboard

Code: Alles auswählen

;-Top my mk-soft

ImportC ""
  gdk_event_get_scroll_deltas(*Event, *delta_x, *delta_y)
EndImport

Procedure signal_scroll_event_cb(*self, *event.gdkeventscroll, user_data)
  Protected deltaX.d, deltaY.d
  If *event\type = #GDK_SCROLL
    ;Debug "Scroll State " + *event\state
    gdk_event_get_scroll_deltas(*event, @deltaX, @deltaY)
    PostEvent(#PB_Event_Gadget, GetActiveWindow(), user_data, #PB_EventType_MouseWheel, -deltaY)
  EndIf
EndProcedure

Define flags

flags = #PB_Canvas_Container

OpenWindow(0, #PB_Ignore, #PB_Ignore, 500, 500, "Canvas Test")

CanvasGadget(1, 0, 0, 500, 300, #PB_Canvas_Border | flags)

ButtonGadget(2, 0, 0, 50, 30, "Test")

If flags & #PB_Canvas_Container
  CloseGadgetList()
  g_signal_connect_(GadgetID(1), "scroll-event", @signal_scroll_event_cb(), 1)
EndIf

Repeat
  Select WindowEvent()
    Case #PB_Event_Gadget
      Select EventGadget()
        Case 1
          If EventType() = #PB_EventType_MouseWheel
            If flags & #PB_Canvas_Container
              Debug EventData()
            Else
              Debug GetGadgetAttribute(0, #PB_Canvas_WheelDelta)
            EndIf
          EndIf
      EndSelect
    Case #PB_Event_CloseWindow
      End
  EndSelect
ForEver