B4J Question [SOLVED] Where can I find a DatePicker example to review?

[Mikelgiles]

I need to implement a DatePicker to use in a desktop app and am only finding sample code for web apps. I have been looking to find out what events I can use to update a B4XTable cell when a date is selected in the datepicker.

 

[LucaMs]

https://www.b4x.com/android/forum/threads/b4x-xui-anotherdatepicker.85160/#content

https://www.b4x.com/android/forum/threads/b4x-xui-views-cross-platform-views-and-dialogs.100836/

 

[Mikelgiles]

https://www.b4x.com/android/forum/threads/b4x-xui-anotherdatepicker.85160/#content

https://www.b4x.com/android/forum/threads/b4x-xui-views-cross-platform-views-and-dialogs.100836/

I had used the designer and added view datepicker but found no event that was triggered because I didnt click all of the proper check boxes. Now that I have that fixed I have it working with the exception of not finding any way to set the default date to the date that was in the column/row that was clicked. Now I am wondering if I should have used AnotherDatepicker instead. I chose datepicker because it was the one that shows up in the designer(and AnotherDatepicker looked to be a overkill and complicated). Is datepicker a bad choice?

 

[LucaMs]

Is datepicker a bad choice?

Certainly not, otherwise Erel would have removed it from "the designer"

 

[Erel]

There is nothing bad with the internal DatePicker however XUI Views date picker is simple to use:

Sub Process_Globals
   Private fx As JFX
   Private MainForm As Form
   Private Dialog As B4XDialog
   Private DateTemplate As B4XDateTemplate
   Private xui As XUI
End Sub

Sub AppStart (Form1 As Form, Args() As String)
   MainForm = Form1
   MainForm.Show
   Dialog.Initialize(MainForm.RootPane)
   DateTemplate.Initialize
   Dialog.Title = "Example"
End Sub

Sub MainForm_MouseClicked (EventData As MouseEvent)
   Wait For (Dialog.ShowTemplate(DateTemplate, "", "", "Cancel")) Complete (Result As Int)
   If Result = xui.DialogResponse_Positive Then
       Log($"Selected date: $Date{DateTemplate.Date}"$)
   End If
End Sub

 

[Mikelgiles]

There is nothing bad with the internal DatePicker however XUI Views date picker is simple to use:

Sub Process_Globals
   Private fx As JFX
   Private MainForm As Form
   Private Dialog As B4XDialog
   Private DateTemplate As B4XDateTemplate
   Private xui As XUI
End Sub

Sub AppStart (Form1 As Form, Args() As String)
   MainForm = Form1
   MainForm.Show
   Dialog.Initialize(MainForm.RootPane)
   DateTemplate.Initialize
   Dialog.Title = "Example"
End Sub

Sub MainForm_MouseClicked (EventData As MouseEvent)
   Wait For (Dialog.ShowTemplate(DateTemplate, "", "", "Cancel")) Complete (Result As Int)
   If Result = xui.DialogResponse_Positive Then
       Log($"Selected date: $Date{DateTemplate.Date}"$)
   End If
End Sub

Thanks Erel, that works much better than what I was doing with the original datepicker and works like a charm. I was ignoring it because it looked so confusing but your examole made it pretty easy. Thanks again.