Android Question Bring forward, Send backward [Solved]

[Roger Daley]

Hi All,

I am looking for a way to programmatically send an Edittext backward or bring forward on the Views Tree as opposed to Edt.Bringtofront? I have found a wish for this on the forum but no answer.

Any hint gratefully received.

Regards Roger

 

[Erel]

Not sure that I understand.
BringToFront will bring it forward on the views tree.

 

[LucasHeer]

Sub sendViewBackwards(v As B4XView, p As Pane)
    Dim found As Int = -1
    For i=0 To p.NumberOfNodes
        Dim b As B4XView = p.GetNode(i)
        If(b = v) Then
            found = i
            Exit
        End If
    Next
    
    If(found > 0) Then
        v.SendToBack
        For i=0 To found -1
            Dim b As B4XView = p.GetNode(i)
            b.sendtoback
        Next
    End If
End Sub

Sub sendViewForwards(v As B4XView, p As Pane)
    Dim found As Int = -1
    For i=0 To p.NumberOfNodes
        Dim b As B4XView = p.GetNode(i)
        If(b = v) Then
            found = i
            Exit
        End If
    Next
    
    If(found < p.NumberOfNodes - 1) Then
        v.BringToFront
        For i=0 To p.NumberOfNodes - found - 1
            Dim b As B4XView = p.GetNode(found)
            b.BringToFront
        Next
    End If
End Sub

I wrote this in B4J.

You can use these functions to send a specific view in a panel forwards or backwards.

 

[LucasHeer]

Not sure that I understand.
BringToFront will bring it forward on the views tree.

I think he wants to shift the view by a single position

 

[Erel]

B4XView version of this code:

Sub sendViewBackwards(v As B4XView, p As B4XView)
    Dim found As Int = -1
    For i=0 To p.NumberOfViews
        Dim b As B4XView = p.GetView(i)
        If(b = v) Then
            found = i
            Exit
        End If
    Next
    
    If(found > 0) Then
        v.SendToBack
        For i=0 To found -1
            Dim b As B4XView = p.GetView(i)
            b.sendtoback
        Next
    End If
End Sub

Sub sendViewForwards(v As B4XView, p As B4XView)
    Dim found As Int = -1
    For i=0 To p.NumberOfViews
        Dim b As B4XView = p.GetView(i)
        If(b = v) Then
            found = i
            Exit
        End If
    Next
    
    If(found < p.NumberOfViews - 1) Then
        v.BringToFront
        For i=0 To p.NumberOfViews - found - 1
            Dim b As B4XView = p.GetView(found)
            b.BringToFront
        Next
    End If
End Sub

Tip: never use Pane.

 

[Roger Daley]

Not sure that I understand.
BringToFront will bring it forward on the views tree.

 

[Roger Daley]

Sub sendViewBackwards(v As B4XView, p As Pane)
    Dim found As Int = -1
    For i=0 To p.NumberOfNodes
        Dim b As B4XView = p.GetNode(i)
        If(b = v) Then
            found = i
            Exit
        End If
    Next
    
    If(found > 0) Then
        v.SendToBack
        For i=0 To found -1
            Dim b As B4XView = p.GetNode(i)
            b.sendtoback
        Next
    End If
End Sub

Sub sendViewForwards(v As B4XView, p As Pane)
    Dim found As Int = -1
    For i=0 To p.NumberOfNodes
        Dim b As B4XView = p.GetNode(i)
        If(b = v) Then
            found = i
            Exit
        End If
    Next
    
    If(found < p.NumberOfNodes - 1) Then
        v.BringToFront
        For i=0 To p.NumberOfNodes - found - 1
            Dim b As B4XView = p.GetNode(found)
            b.BringToFront
        Next
    End If
End Sub

I wrote this in B4J.

You can use these functions to send a specific view in a panel forwards or backwards.

Thanks Erel,
I'll see what I can do in B4A.

Roger

 

[Erel]

I'll see what I can do in B4A.

You can use the code from post #5.

 

[Roger Daley]

You can use the code from post #5.

Yep! I replied on the phone while on the run. I must wait till I read things properly. ?

 

[Roger Daley]

CONTINUED IN THIS THREAD.

B4XViews and back and forward [Solved in a crude manner]

OK I'm thick, Erel kindly posted a couple of Subs for moving views backward and forward in their Z order. These Subs use B4XViews, I have never used the B4X commands and thought this should be easy. After an afternoon of reading through stuff on the forum I have succeeded in achieving...

www.b4x.com