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