B4J Question Smooth dragging

Cableguy

Expert

Licensed User

Longtime User

• Nov 19, 2018

• #2

In the EventData you will find all you need!
the mouse event will tell you if is is a down, a move or an up event, along with the screen coordinates.

 

Upvote 0

ThRuST

Well-Known Member

Licensed User

Longtime User

• Nov 19, 2018

• #3

@Cableguy I was assuming that the initial storage of the x,ypostion should be done in one of the below events, but perhaps another event should be used.

B4X:

_MouseClicked (EventData As MouseEvent)

B4X:

_MousePressed (EventData As MouseEvent)

B4X:

_MouseDragged (EventData As MouseEvent)

 

Upvote 0

ThRuST

Well-Known Member

Licensed User

Longtime User

• Nov 19, 2018

• #4

-Storing x and y is used to avoid the glitch and "jump" of the object at the beginning of dragging that is. This is usually done is the MouseClick event in C sharp, but my old method didn't work in B4J. Thereby my question.

 

Upvote 0

ThRuST

Well-Known Member

Licensed User

Longtime User

• Nov 19, 2018

• #5

I guess this webpage explains exactly what I am trying to achieve. >Here<'s where the party's at

 

Upvote 0

ThRuST

Well-Known Member

Licensed User

Longtime User

• Nov 19, 2018

• #6

 

Upvote 0

ThRuST

Well-Known Member

Licensed User

Longtime User

• Nov 19, 2018

• #7

@Cableguy Thanks. Mission completed. Coruscant was saved. Heading back to base :-D

 

Upvote 0

ThRuST

Well-Known Member

Licensed User

Longtime User

• Nov 19, 2018

• #8

...but not quite yet Here's the JavaFX way, and that's the way we need to use.

 

Upvote 0

Alexander Stolte

Expert

Licensed User

Longtime User

• Nov 20, 2018

• #9

Smooth dragging:

B4X:

Private Sub xpnl_test_Touch(Action As Int, X As Float, Y As Float) As Boolean
       If Action = xpnl_test.TOUCH_ACTION_DOWN Then
   
            donwx  = X
            downy  = y
   
        Else if Action = xpnl_test.TOUCH_ACTION_MOVE Then
   
            xpnl_test.Top = xpnl_test.Top + y - downy
            xpnl_test.Left = xpnl_test.Left + x - donwx
   
        End If
  
    Return True
End Sub

I use this code in my AS MsgBox Class.

 

Upvote 0

ThRuST

Well-Known Member

Licensed User

Longtime User

• Nov 20, 2018

• #10

@Alexander Stolte Wow nice. I see it also works with B4J I link to your library here

[B4X] [XUI] AS MsgBox/Dialog

 

Upvote 0