Hi have some data in CustomListView. now want edit with b4xdialog when click on CustomListView items
B4X:
Private Sub xclv_ItemClick (Index As Int, Value As Object)
'// here Will access all data, now want get all data in b4xdialog '<<------------------------------------
'Dim item As CLVItem = xclv.GetRawListItem(Index)
'Dim p As Panel = item.Panel.GetView(0)
'Dim lbl As Label = p.GetView(1)
'lbl.Text = "NEW TxT"
'lbl.TextColor = Colors.Red
Dim senderButton As button
'Log(senderButton)
ShowDialog(senderButton, CreateMap(), 0)
End Sub
Private Sub ShowDialog(senderButton As Button,item As Map, RowId As Int)
Dim v As B4XView = xui.CreatePanel("")
v.SetLayoutAnimated(0,0,0,90%x,600dip) '//'set the dialog-content size
v.LoadLayout("dialog")
dialog.Title="SET Mode"
dialog.BorderWidth = 0
dialog.BorderCornersRadius=10
dialog.TitleBarColor = xui.Color_ARGB(255, 140, 140, 140)
dialog.ButtonsColor = xui.Color_ARGB(255, 140, 140, 140)
dialog.ButtonsTextColor = xui.Color_ARGB(255, 255, 255, 255)
dialog.BackgroundColor = xui.Color_ARGB(255, 255, 255, 230)
'// dialog.ShowCustom(v,"Ok","","Cansel")
Dim obj As Object = dialog.ShowCustom(v,"Ok","","Cansel")
wait For(obj) complete (result As Int)
If result = xui.DialogResponse_Positive Then
Log("Closed Dialog")
End If
End Sub