B4J Question [AsViewPager] block or consume event

[micro]

Hi to all
I am using AsViewerPage component (Alexander stolte library) in a b4J project
This run on a Touch PanelPC.
The passage from one page to another must take place only from code, but if I drag the page with my finger, they scroll and this must not happen.
How i can consume or block event in TouchBegin?
Thanks

P.S.
just to clarify
the IgnorePageChangedEvent property, does not resolve the problem.

 

[Alexander Stolte]

The passage from one page to another must take place only from code, but if I drag the page with my finger, they scroll and this must not happen.
How i can consume or block event in TouchBegin?

The scrolling is not done by the library, but by the xCustomListView (on B4J based on ScrollPane) in the background.
but how to stop the touch there, I do not know.

 

[micro]

The scrolling is not done by the library, but by the xCustomListView (on B4J based on ScrollPane) in the background.
but how to stop the touch there, I do not know.

?
the problem is that it is a project that took me a long time and I developed it on this library (AsViewPager), if I knew this problem I would have looked for another solution.

Thanks and Best regards

 

[Alexander Stolte]

the problem is that it is a project that took me a long time and I developed it on this library (AsViewPager), if I knew this problem I would have looked for another solution.

maybe someone else has a solution, you can make a new thread, how to disable the touch on scrollpane on touch devices.
I have unfortunately no way to test this, because I do not have a touch device with windows.

 

[Alexander Stolte]

How to inhibit scrolling during a drag

I am writing an application that uses the Scrollpane with a vertical scrollbar. The user manipulates objects on the screen though standard dragging (mouse_dragged/mouse_released events) The problem is that a vertical drag also causes scrolling. Basically I need a way to inhibit the Scrollpane...

www.b4x.com

I found this thread. Maybe this helps

 

[Alexander Stolte]

you can acces the ScrollPane with:

ASViewPager1.CustomListView.sv

 

[micro]

I have tried with this

Private ps as Scroolpane
......
ps = AsViewPager1.CustomListView.sv
ps.Pannable = false

but not work
Each page I load inside ASViewPager has a main Pane but the only event I can use for these Pane is the Touch but not the Mousexxxxx.
But the Touch event does not have the EventData parameter to be able to consume the event.
Other solutions?
Thanks

 

[Alexander Stolte]

a solution can be this:

setMouseTransparent, enable mouse events in underlying nodes

Subject: Routine to enable mouse events being transmitted to underlying nodes. In B4J, when a node covers other nodes, like a Pane, the mouse events are not submitted to underlying nodes. This is the same as in B4i, it is inverse in B4A. In B4i, you can use the UserInteractionEnabled property...

www.b4x.com

Dim jo As JavaObject = AsViewPager1.CustomListView.sv
jo.RunMethod("setMouseTransparent", Array(True))

 

[Alexander Stolte]

maybe this can be interesting too

Adding a Label to a ScrollPane

This seems like a very elementary question but I have seen no explanation or example of it: How can I add a Label to a ScrollPane? Unlike "Pane", ScrollPane has no "AddNode". None of the available parameters for ScrollPane seem to apply to this. So far, I have only done this using SceneBuilder...

www.b4x.com

 

[micro]

Dim jo As JavaObject = AsViewPager1.CustomListView.sv jo.RunMethod("setMouseTransparent", Array(True))

Hi Alexander
As you well know this also disables the Click event on other views and playing with the MousEneterd and MouseExit events to enable or disable the mouse sometimes causes unwanted sistuations, then this method is not optimal.
Let's see what else to do .....
Thanks

 

[Alexander Stolte]

To better search for solutions, I have activated the touch with the mouse, did not know that such a thing goes:

Dim ps As ScrollPane = ASViewPager1.CustomListView.sv
ps.Pannable = True

i have come up with the following solution:

1. Add a panel with full height and width
2. Private Sub tmp_xpnl_MouseDragged (EventData As MouseEvent)
       EventData.Consume
   End Sub
3. done, no more scrolling with touch/mouse

 

[micro]

1. Private Sub tmp_xpnl_MouseDragged (EventData As MouseEvent)
   EventData.Consume
   End Sub
2. done, no more scrolling with touch/mouse

?
Thanks Alexander
I had already solved the same way with the same Panels that I load in the AsViewPager
Thank you for your availability and advice