Base = Activity
Dialog.Initialize (Base)
SearchTemplate.Initialize
Dim Items As List
Items.Initialize
Wait For ( Families(pnl1.Tag, Items) ) Complete (ResultF As Boolean)
SearchTemplate.SetItems(Items)
SearchTemplate.Resize(90%x, 90%y)
Dim rs As ResumableSub = Dialog.ShowTemplate(SearchTemplate, "", "", "CANCEL")
Dim cancelbtn As B4XView = Dialog.GetButton(xui.DialogResponse_Cancel)
cancelbtn.Width = 120dip
cancelbtn.Left = cancelbtn.Left - 50dip
Wait For ( rs ) Complete (Result As Int)
If Result = xui.DialogResponse_Positive Then
log(SearchTemplate.SelectedItem)