B4J Question Drag the buttons - Invert buttons

WebQuest · Dec 19, 2021

Hello Community,
I'm having trouble developing a function for my program. The problem is, I can't find a solution to swap any button dragged to another button. I am using the MouseDragged and MousePressed event to drag buttons to other locations, but I also wish that when a button is dragged to another button the dus swap positions. Anyone have any solutions? Any example will be appreciated.

EnriqueGonzalez · Dec 19, 2021

May be this library could help.
But i don't remember if it works with nodes sorry

jDragAndDrop2 - Drag and Drop

This library is an update to Andrews jDragandDrop to take advantage of the DragBorad.DragView available in JavaFX8. This allows displaying a graphic next to or behind the mouse cursor while dragging items. It's not quite a drop in replacement, but I tried to make it as close as possible. The...

www.b4x.com

WebQuest · Dec 19, 2021

Hello EnriqueGonzalez,
Grayie for the answer !. But currently I can already move the buttons, what I need is to be able to scale the position of the buttons when I add a dragged button.

stevel05 · Dec 19, 2021

The buttons all look identical in layout so it depends how you have set up the buttons, rather than actually moving the buttons, it would be simpler if you just change the text and tag if necessary for the source and target buttons when the dragged item is dropped.

This assumes that you have one click event for all buttons and are identifying the button clicked by it's text or tag.

If you are unsure of how to do this, attach an example project so we can see how you have set up the buttons.

WebQuest · Dec 19, 2021

I'm using Erel's example at this link to move the buttons.
Link: Example

Move Button:

Sub Process_Globals
   Private fx As JFX
   Private MainForm As Form
   Type PositionData (PressedX As Int, PressedY As Int)
   Private Button1 As Button
End Sub

Sub AppStart (Form1 As Form, Args() As String)
   MainForm = Form1
   MainForm.RootPane.LoadLayout("1") 'Load the layout file.
   MainForm.Show
End Sub

Sub Button1_MouseDragged (EventData As MouseEvent)
   Dim view As B4XView = Sender
   Dim pd As PositionData = view.Tag
   Dim ParentX As Int = EventData.X + view.Left
   Dim ParentY As Int = EventData.Y + view.Top
   view.Left = ParentX - pd.PressedX
   view.Top = ParentY - pd.PressedY
End Sub

Sub Button1_MousePressed (EventData As MouseEvent)
   Dim view As B4XView = Sender
   Dim pd As PositionData
   pd.PressedX = EventData.X
   pd.PressedY = EventData.Y
   view.Tag = pd
End Sub

stevel05 · Dec 19, 2021

That only has one button, you have 15, what we need to know is

How all of the buttons are set up.
How you are determining which button is to be replaced.
How you are going about replacing it.

If you can zip and post your project, it will allow me to confirm that my suggested solution is appropriate for your problem or not and save me having to write a whole new project to demonstrate it.

ilan · Dec 19, 2021

i made few months ago a simple drag and drop example. not with button but with canvas where you draw everything. it may help you.

FREE Source Code's !

Hi all, i have updated my webpage and decided to add a tutorial section. My first tutorial is a simple calculator (+,-,*,/) there is a video tutorial incl. Source code on my site. I will upload the project also here and you can go to my site to watch the video if you like. link...

www.b4x.com

ilan · Dec 19, 2021

btw just playing around with buttons. i am not sure i understood what you want to do but try this:

WebQuest · Dec 19, 2021

Ilano this effect is fantastic I will add it. But I didn't make myself clear! I need that when I move ex. BT1 on BT2 these have to change places. I tried to insert if then, but it is too long to write, there are too many cases with 15 buttons. I was looking for a solution that always works.

WebQuest · Dec 19, 2021

I've created an example of what I need! By dragging the BT1 to BT2 the two have to change places. Now I have used a simple if then code, but I need a solution that works with 15 buttons.

ilan · Dec 20, 2021

WebQuest said:
I tried to insert if then, but it is too long to write

? ? ? No, No , No !!! This is the worst idea you could have.

just modified a little bit my code and i think i get what you want:

TIP: when we make the Recursive check for all views you can use any other technique. like checking if TAG value is the same or stuff like that. so instead of checking if the node is a button you could add 10 buttons with tag value "dragme" and then make the check if the node.tag = "dragme"

~~EDIT: after watching the video i saw a small bug where the returned button (touchedbutton) is not scale back. it should very simple to be to fix it. i just need to get to work. will check if later.~~ (FIXED)

WebQuest · Dec 20, 2021

Great, but I have a problem your code is not working for me. I am using a PanelSchermoTab2 to accommodate the buttons.
What am I doing wrong? I put the panel in place of MainForm.RootPanel but nothing works?

B4X:

Sub PanelSchermoTab2_Touch (Action As Int, X As Float, Y As Float)
        Select Action
        Case 0 'down
            touchedButton = checkifbuttonpressed(X,Y,False)
        Case 1 'up
            If touchedButton.IsInitialized Then
                If checkifbuttonpressed(X,Y,True).IsInitialized Then
                    changedButton = checkifbuttonpressed(X,Y,True)
                    Dim changebPoint As point = Createpoint(changedButton.Left, changedButton.Top)
                    changedButton.SetLayoutAnimated(200,lastPosition.x,lastPosition.y,buttonOrgSize.width,buttonOrgSize.height) 'move the changebuton to touchbutton position
                    touchedButton.SetLayoutAnimated(200,changebPoint.x,changebPoint.y,buttonOrgSize.width,buttonOrgSize.height) 'stick the touched button
                Else
                    touchedButton.SetLayoutAnimated(200,lastPosition.x,lastPosition.y,buttonOrgSize.width,buttonOrgSize.height) 'return touchedbutton to his origin
                End If
            End If
            touchedButton = Null
        Case 2 'moving
            If touchedButton.IsInitialized Then
                touchedButton.Left = X - difference.x
                touchedButton.top = Y - difference.y
            End If
    End Select

End Sub


Sub PanelSchermoTab_Touch (Action As Int, X As Float, Y As Float)


Private Sub checkifbuttonpressed(x As Float, y As Float, skipTouchedButton As Boolean) As Button
    For Each v As Node In B4XPages.MainPage.PanelSchermoTab2.GetAllViewsRecursive
        If v Is Button Then
            Dim b As Button = v
            If x > b.Left And y > b.Top And x < b.Left+b.Width And y < b.Top + b.Height Then
                If skipTouchedButton Then
                    If b = touchedButton Then Continue 'skip tocuhedbutton check
                Else
                     lastPosition = Createpoint(b.Left,b.Top)
                End If
                BringToFront(b)
                Dim scale As Float = 20dip
                difference = Createpoint(x-b.Left+scale, y-b.Top+scale)
                b.SetLayoutAnimated(50,b.Left-scale,b.Top-scale,b.Width+(scale*2),b.Height+(scale*2))
                Return b
            End If           
        End If
    Next
    Return Null
End Sub

Sub BringToFront(n As Node)
    Dim parent As Pane = n.Parent
    n.RemoveNodeFromParent
    parent.AddNode(n, n.Left, n.Top, n.PrefWidth, n.PrefHeight)
End Sub



Public Sub Createpoint (x As Float, y As Float) As point
    Dim t1 As point
    t1.Initialize
    t1.x = x
    t1.y = y
    Return t1
End Sub


Public Sub Createsize (width As Float, height As Float) As size
    Dim t1 As size
    t1.Initialize
    t1.width = width
    t1.height = height
    Return t1
End Sub

ilan · Dec 20, 2021

are your buttons enabled or disabled?

DonManfred · Dec 20, 2021

WebQuest said:
but nothing works?

Upload a small not working project. Hard to help without for anyone.

ilan · Dec 20, 2021

WebQuest said:
but I have a problem your code is not working for me

if you try my example it is also not working for you?
it is really hard to understand what is wrong on your side without enough information.

as @DonManfred already wrote the best way to understand the issue on the other side is to try the same example they are running.
without seeing the code we cannot help much.

WebQuest · Dec 20, 2021

Sorry, here's the code. I believe it doesn't work because I am using the B4XPages base.

B4X:

Sub Class_Globals
    Private Root As B4XView
    Private xui As XUI
    Type point(x As Float, y As Float)
    Type size(width As Float, height As Float)
    Private touchedButton, changedButton As Button
    Private lastPosition, difference As point
    Private buttonOrgSize As size
    Private Button1 As Button
    Private Pane1 As Pane
End Sub

Public Sub Initialize
    
End Sub

'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
    buttonOrgSize = Createsize(Button1.Width,Button1.Height) 'set the init size of the button
End Sub

'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.

Sub Button1_Click
    xui.MsgboxAsync("Hello world!", "B4X")
End Sub


Private Sub MainForm_Touch (Action As Int, X As Float, Y As Float)
    Select Action
        Case 0 'down
            touchedButton = checkifbuttonpressed(X,Y,False)
        Case 1 'up
            If touchedButton.IsInitialized Then
                If checkifbuttonpressed(X,Y,True).IsInitialized Then
                    changedButton = checkifbuttonpressed(X,Y,True)
                    Dim changebPoint As point = Createpoint(changedButton.Left, changedButton.Top)
                    changedButton.SetLayoutAnimated(200,lastPosition.x,lastPosition.y,buttonOrgSize.width,buttonOrgSize.height) 'move the changebuton to touchbutton position
                    touchedButton.SetLayoutAnimated(200,changebPoint.x,changebPoint.y,buttonOrgSize.width,buttonOrgSize.height) 'stick the touched button
                Else
                    touchedButton.SetLayoutAnimated(200,lastPosition.x,lastPosition.y,buttonOrgSize.width,buttonOrgSize.height) 'return touchedbutton to his origin
                End If
            End If
            touchedButton = Null
        Case 2 'moving
            If touchedButton.IsInitialized Then
                touchedButton.Left = X - difference.x
                touchedButton.top = Y - difference.y
            End If
    End Select
End Sub

Private Sub checkifbuttonpressed(x As Float, y As Float, skipTouchedButton As Boolean) As Button
    For Each v As Node In Main.MainForm.RootPane.GetAllViewsRecursive
        If v Is Button Then
            Dim b As Button = v
            If x > b.Left And y > b.Top And x < b.Left+b.Width And y < b.Top + b.Height Then
                If skipTouchedButton Then
                    If b = touchedButton Then Continue 'skip tocuhedbutton check
                Else
                    lastPosition = Createpoint(b.Left,b.Top)
                End If
                BringToFront(b)
                Dim scale As Float = 20dip
                difference = Createpoint(x-b.Left+scale, y-b.Top+scale)
                b.SetLayoutAnimated(50,b.Left-scale,b.Top-scale,b.Width+(scale*2),b.Height+(scale*2))
                Return b
            End If
        End If
    Next
    Return Null
End Sub

Sub BringToFront(n As Node)
    Dim parent As Pane = n.Parent
    n.RemoveNodeFromParent
    parent.AddNode(n, n.Left, n.Top, n.PrefWidth, n.PrefHeight)
End Sub

Public Sub Createpoint (x As Float, y As Float) As point
    Dim t1 As point
    t1.Initialize
    t1.x = x
    t1.y = y
    Return t1
End Sub
 
Public Sub Createsize (width As Float, height As Float) As size
    Dim t1 As size
    t1.Initialize
    t1.width = width
    t1.height = height
    Return t1
End Sub

klaus · Dec 20, 2021

Why do you not post the project !?
It would be much easier for helpers, because we could directly test solutions and give a concrete advice to your problem.
As your project is a B4XPages project you should zip it by clicking with Ctrl on this line on top or the B4XMainPage module.

ilan · Dec 20, 2021

made really minor changes

WebQuest · Dec 20, 2021

This is the project in which I am testing the code. I changed the Root and created the Pane1_Touch event. But it doesn't work as it should.

Code:

Sub Class_Globals
    Private Root As B4XView
    Private xui As XUI
    Type point(x As Float, y As Float)
    Type size(width As Float, height As Float)
    Private touchedButton, changedButton As Button
    Private lastPosition, difference As point
    Private buttonOrgSize As size
    Private Button1 As Button
    Private Pane1 As Pane
End Sub

Public Sub Initialize
    
End Sub

'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
    buttonOrgSize = Createsize(Button1.Width,Button1.Height) 'set the init size of the button
End Sub

'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.

Sub Button1_Click
    xui.MsgboxAsync("Hello world!", "B4X")
End Sub


Private Sub Pane1_Touch (Action As Int, X As Float, Y As Float)
    Select Action
        Case 0 'down
            touchedButton = checkifbuttonpressed(X,Y,False)
        Case 1 'up
            If touchedButton.IsInitialized Then
                If checkifbuttonpressed(X,Y,True).IsInitialized Then
                    changedButton = checkifbuttonpressed(X,Y,True)
                    Dim changebPoint As point = Createpoint(changedButton.Left, changedButton.Top)
                    changedButton.SetLayoutAnimated(200,lastPosition.x,lastPosition.y,buttonOrgSize.width,buttonOrgSize.height) 'move the changebuton to touchbutton position
                    touchedButton.SetLayoutAnimated(200,changebPoint.x,changebPoint.y,buttonOrgSize.width,buttonOrgSize.height) 'stick the touched button
                Else
                    touchedButton.SetLayoutAnimated(200,lastPosition.x,lastPosition.y,buttonOrgSize.width,buttonOrgSize.height) 'return touchedbutton to his origin
                End If
            End If
            touchedButton = Null
        Case 2 'moving
            If touchedButton.IsInitialized Then
                touchedButton.Left = X - difference.x
                touchedButton.top = Y - difference.y
            End If
    End Select
End Sub

Private Sub checkifbuttonpressed(x As Float, y As Float, skipTouchedButton As Boolean) As Button
    For Each v As Node In B4XPages.MainPage.Root.GetAllViewsRecursive
        If v Is Button Then
            Dim b As Button = v
            If x > b.Left And y > b.Top And x < b.Left+b.Width And y < b.Top + b.Height Then
                If skipTouchedButton Then
                    If b = touchedButton Then Continue 'skip tocuhedbutton check
                Else
                    lastPosition = Createpoint(b.Left,b.Top)
                End If
                BringToFront(b)
                Dim scale As Float = 20dip
                difference = Createpoint(x-b.Left+scale, y-b.Top+scale)
                b.SetLayoutAnimated(50,b.Left-scale,b.Top-scale,b.Width+(scale*2),b.Height+(scale*2))
                Return b
            End If
        End If
    Next
    Return Null
End Sub

Sub BringToFront(n As Node)
    Dim parent As Pane = n.Parent
    n.RemoveNodeFromParent
    parent.AddNode(n, n.Left, n.Top, n.PrefWidth, n.PrefHeight)
End Sub

Public Sub Createpoint (x As Float, y As Float) As point
    Dim t1 As point
    t1.Initialize
    t1.x = x
    t1.y = y
    Return t1
End Sub
 
Public Sub Createsize (width As Float, height As Float) As size
    Dim t1 As size
    t1.Initialize
    t1.width = width
    t1.height = height
    Return t1
End Sub

ilan · Dec 20, 2021

Have a look at post #18

B4J Question Drag the buttons - Invert buttons

Active Member

Well-Known Member

Active Member

Expert

Active Member

Expert

Expert

Expert

Attachments

Active Member

Active Member

Attachments

Expert

Attachments

Active Member

Expert

Expert

Expert

Active Member

Expert

Expert

Attachments

Active Member

Attachments

Expert

Similar Threads