diaglogFavori: panel with a list
DialogShow: in the example, there is an extra parameter :-(
B4X:
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, 300dip, 170dip) 'set the content size
p.LoadLayout("dialogFavori")
Dim rs As ResumableSub = Dialog.Show(p,"Yes", "No", "Cancel")
Wait For (rs) Complete (Result As Int)
If Result = xui.DialogResponse_Positive Then
'do something
End If