Sub Listar_Click
Builder.Title("Months and Days")
Builder.Items(Array As String("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday"))
Builder.ItemsCallback
Builder.NegativeText("Cancel")
Builder.Show
End Sub
Sub Dialog_ButtonPressed (Dialog As MaterialDialog, Action As String)
Select Action
Case Dialog.ACTION_POSITIVE
Log("Positive Button pressed")
ToastMessageShow(Action, False)
Case Dialog.ACTION_NEGATIVE
Log("Negative Button pressed")
ToastMessageShow(Action, False)
Case Dialog.ACTION_NEUTRAL
Log("Neutral Button pressed")
ToastMessageShow(Action, False)
End Select
Log("CheckBox: " & Dialog.PromptCheckBoxChecked)
End Sub
Sub Dialog_ItemSelected (Dialog As MaterialDialog, Position As Int, Text As String)
Log($"Item Selected: ${Position} : ${Text}"$)
ToastMessageShow(Text, False)
End Sub