Dialog.Title = "Proizvodi"
Dim rs As Object = Dialog.ShowTemplate(options, "", "", "Odustani")
Dialog.Base.SetLayoutAnimated(0, Activity.Left + 5%x, Activity.top + 5%y, Activity.Width - 10%x, Activity.Height - 10%y)
Wait For (rs) Complete (Result As Int)
If Result = XUI.DialogResponse_Positive Then
Log(options.SelectedItem)
End If