Trackpad-Scrolling inside a ScrollArea with Canvas dont work

[Lebostein]

move cursor outside the canvas and scroll - work
move cursor inside the canvas and try to scroll - don't work

Scrolling inside a "ScrollArea" should work in every cases. Or there some events to handle this?

Code: Select all

 If OpenWindow(0, 0, 0, 700, 400, "ScrollAreaGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    ScrollAreaGadget(0, 10, 10, 680, 380, 1000, 1000, 30)
      ButtonGadget  (1, 10, 10, 230, 30,"Button 1")
      ButtonGadget  (2, 50, 50, 230, 30,"Button 2")
      ButtonGadget  (3, 90, 90, 230, 30,"Button 3")
      CanvasGadget  (5, 200, 200, 500, 500)
      CloseGadgetList()
    StartDrawing(CanvasOutput(5))
    Box(0,0,500,500,$FF0000)
    StopDrawing()
    Repeat
      Select WaitWindowEvent()
        Case  #PB_Event_CloseWindow
          End
        Case  #PB_Event_Gadget
          Select EventGadget()
            Case 1
              MessageRequester("Info","Button 1 was pressed!",#PB_MessageRequester_Ok)
            Case 2
              MessageRequester("Info","Button 2 was pressed!",#PB_MessageRequester_Ok)
            Case 3
              MessageRequester("Info","Button 3 was pressed!",#PB_MessageRequester_Ok)
          EndSelect
      EndSelect
    ForEver
  EndIf

[mk-soft]

the CanvasGadget has except for Windows automatically focus. See Canvas help.

Solution:

Code: Select all

If OpenWindow(0, 0, 0, 700, 400, "ScrollAreaGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    ScrollAreaGadget(0, 10, 10, 680, 380, 1000, 1000, 30)
      ButtonGadget  (1, 10, 10, 230, 30,"Button 1")
      ButtonGadget  (2, 50, 50, 230, 30,"Button 2")
      ButtonGadget  (3, 90, 90, 230, 30,"Button 3")
      CanvasGadget  (5, 200, 200, 500, 500)
      CloseGadgetList()
    StartDrawing(CanvasOutput(5))
    Box(0,0,500,500,$FF0000)
    StopDrawing()
    Repeat
      Select WaitWindowEvent()
        Case  #PB_Event_CloseWindow
          End
        Case  #PB_Event_Gadget
          Select EventGadget()
            Case 1
              MessageRequester("Info","Button 1 was pressed!",#PB_MessageRequester_Ok)
            Case 2
              MessageRequester("Info","Button 2 was pressed!",#PB_MessageRequester_Ok)
            Case 3
              MessageRequester("Info","Button 3 was pressed!",#PB_MessageRequester_Ok)
            Case 5
              If EventType() = #PB_EventType_MouseWheel
                wheel = GetGadgetAttribute(5, #PB_Canvas_WheelDelta)
                SetGadgetAttribute(0, #PB_ScrollArea_Y, GetGadgetAttribute(0, #PB_ScrollArea_Y) - wheel * 3)
              EndIf
              
          EndSelect
      EndSelect
    ForEver
  EndIf

[Danilo]

What about left-right scrolling / left-right wipe? There is no event to support that, and
#PB_Canvas_WheelDelta gives only values for up-down scrolling / up-down wiping gesture.

Within the ScrollArea, left-right scrolling/wiping works fine.

EDIT:
#PB_EventType_MouseWheel event fires also for left-right scrolling/wiping, but
#PB_Canvas_WheelDelta is always 0.

[Danilo]

What about left-right scrolling / left-right wipe?

- CanvasGadget GetWheelDeltaX() + GetWheelDeltaY()

[Fred]

It's the intended behaviour (all mouse event in the canvas have the priority. We could still add a flag like '#PB_Canavas_DisableWheel' to allow this easily.

[collectordave]

Hi all

Just a little confused.

Ran the example above and found the scrolling does not accur until the scrollarea gadget is clicked.

Looked like the canvas gadget did the scrolling so experimented by taking out the canvas gadget. Same again.

here is the code

Code: Select all

If OpenWindow(0, 0, 0, 700, 400, "ScrollAreaGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    ScrollAreaGadget(0, 10, 10, 680, 380, 1000, 1000, 30)
      ButtonGadget  (1, 10, 10, 230, 30,"Button 1")
      ButtonGadget  (2, 50, 50, 230, 30,"Button 2")
      ButtonGadget  (3, 90, 90, 230, 30,"Button 3")
      CloseGadgetList()
    
    Repeat
      Select WaitWindowEvent()
        Case  #PB_Event_CloseWindow
          End
        Case  #PB_Event_Gadget
          Select EventGadget()

            Case 1 
              MessageRequester("Info","Button 1 was pressed!",#PB_MessageRequester_Ok)
            Case 2
              MessageRequester("Info","Button 2 was pressed!",#PB_MessageRequester_Ok)
            Case 3
              MessageRequester("Info","Button 3 was pressed!",#PB_MessageRequester_Ok)

          EndSelect
      EndSelect
    ForEver
  EndIf

How can I get the scroll area gadget to scroll on mousewheel without clicling so just mouse over?

cross platform please.

regards

CD

[collectordave]

Reading more think it can be done.

Added

Code: Select all

TextGadget(4,10,140,100,40,"")
HideGadget(4,#True)

Just after last button gadget then

SetActiveGadget(4)

After closegadgetlist()

Works First time even with a canvasgadget added again.