I'm using this example:
Is it posible to have a draggable button inside a draggable panel?
I'm trying with this code but it doesn't work:
Is it posible to have a draggable button inside a draggable panel?
I'm trying with this code but it doesn't work:
B4X:
Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
Page1.Initialize("Page1")
Page1.Title = "Page 1"
Page1.RootPanel.Color = Colors.White
NavControl.ShowPage(Page1)
pnl.Initialize("")
Page1.RootPanel.AddView(pnl, 0, 0, 300, 300)
pnl.Color = Colors.Yellow
Dim dv1 As DraggableView
dv1.Initialize(Page1.RootPanel, pnl)
button1.Initialize("", button1.STYLE_SYSTEM)
pnl.AddView(button1, 0, 0, 100, 100)
button1.Color = Colors.ARGB(100, 0, 100, 0)
Dim dv2 As DraggableView
dv2.Initialize(pnl, button1)
End Sub