Sub PrefView_Ready (PrefsView As PreferenceView)
[...]
TimePreference = PrefsView.AddSimplePreference("Time", "time1", "Custom TimePicker", DateTime.Time(PrefManager.GetLong2("time1", DateTime.Now)), DateTime.Now)
[....]
End Sub
Sub Time_PreferenceClicked (Preference As Preference) As Boolean
Dim TimePicker As TimePickerDialog
Dim currentTime As Long
currentTime = PrefManager.GetLong2("time1", DateTime.Now)
TimePicker.Initialize("TimePicker", DateTime.GetHour(currentTime), DateTime.GetMinute(currentTime), True)
TimePicker.show("1")
Return True
End Sub
Sub TimePicker_onTimeSet(hour As Int, minute As Int, second As Int)
Dim selectedTime As Long
selectedTime = DateUtils.SetDateAndTime(DateTime.GetYear(DateTime.Now), DateTime.GetMonth(DateTime.Now)+1, DateTime.GetDayOfMonth(DateTime.Now), hour, minute, second)
PrefManager.SetLong("time1", selectedTime)
TimePreference.Summary = DateTime.Time(selectedTime)
End Sub