Sub Globals
Private DateTimePicker1 As DateTimePicker
Private xui As XUI 'ignore
Private DateTimePickerPanel As B4XView
Private Dialog As B4XDialog
End Sub
Sub Activity_Create(FirstTime As Boolean)
Dialog.Initialize (Activity)
If DateTimePickerPanel.IsInitialized = False Then
DateTimePickerPanel = xui.CreatePanel("")
DateTimePickerPanel.SetLayoutAnimated(0, 0, 0, 300dip, 150dip)
DateTimePickerPanel.LoadLayout("1")
DateTimePicker1.SetMinDate(DateTime.Now-DateTime.TicksPerDay*15)
DateTimePicker1.SetMaxDate(DateTime.Now+DateTime.TicksPerDay*2)
DateTimePicker1.SetSelectedValue(DateTime.Now)
DateTimePicker1.backgroundColor = xui.Color_White
DateTimePicker1.focusedTextColor = xui.Color_Gray
DateTimePicker1.lineColor = xui.Color_Blue
DateTimePicker1.fadeAwayEffect = True 'New
DateTimePicker1.Show
End If
' Wait For (Dialog.Show("1234", "OK", "", "Cancel")) Complete (Result As Int)
Wait For (Dialog.ShowCustom(DateTimePickerPanel, "OK", "", "Cancel")) Complete (Result As Int)
If Result = xui.DialogResponse_Positive Then
ToastMessageShow($"$Time{DateTimePicker1.Selected}"$,True)
End If
End Sub