B4A Library [B4X] [XUI] SD DiscTimePicker (DateTimePicker - DiskPicker)

For Android and iOS.

SD_DiscTimePicker

Author: Star-Dust
Version: 0.07
  • DiscTimePicker
    • Events:
      • Change (DateTimeChange As Long)
    • Functions:
      • Class_Globals As String
      • DesignerCreateView (Base As Object, Lbl As Label, Props As Map) As String
        Base type must be Object
      • Initialize (Callback As Object, EventName As String) As String
      • Invalidate As String
      • IsInitialized As Boolean
        Verifica se l'oggetto sia stato inizializzato.
    • Properties:
      • DateTimeTicks As Long
  • DiskPicker
    • Events:
      • ChangeIndexDown1 (Index As Int)
      • ChangeIndexDown2 (Index As Int)
      • ChangeIndexUp (Index As Int)
    • Fields:
      • InfoFontSize As Int
      • TextFontSize As Int
    • Functions:
      • AddToDown1 (Text As String, Info As String) As DiskPicker
      • AddToDown2 (Text As String, Info As String) As DiskPicker
      • AddToListUp (Text As String, Info As String) As DiskPicker
      • Class_Globals As String
      • ClearListDown1 As String
      • ClearListDown2 As String
      • ClearListUp As String
      • DesignerCreateView (Base As Object, Lbl As Label, Props As Map) As String
        Base type must be Object
      • Initialize (Callback As Object, EventName As String) As String
      • Invalidate As String
      • IsInitialized As Boolean
        Verifica se l'oggetto sia stato inizializzato.
    • Properties:
      • PickerIndexDown1 As Int
      • PickerIndexDown2 As Int
      • PickerIndexUp As Int

DiscTimePicker
Video2.gif


DiskPicker
Video3.gif
 

Attachments

Last edited:
Click to expand...
Update to release 0.03
Video2.gif
 
Last edited:
Hi,
Interestingly solved library. If it could also be used for other purposes, e.g. with the minimum - maximum variant for each ring set separately and with the possibility of changing texts, it would be a great library of versatile use :)
 
T201016 said:
Hi,
Interestingly solved library. If it could also be used for other purposes, e.g. with the minimum - maximum variant for each ring set separately and with the possibility of changing texts, it would be a great library of versatile use :)
Click to expand...
I'll think about it, but the change is radical.
Here is the control of the dates and the length of the days of the month, it should be upset.
 
Update rel 0.05
  • Add Class DiskPicker
    This new class allows you to have a customizable disk in the three lists. With Text and information below for each element
  • Usage examples have been added
video3.gif



Code: Copy 
Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("Layout1")
    DiskPicker1.AddToListUp("1","One").AddToListUp("2","Two").AddToListUp("3","Three").AddToListUp("4","Four").AddToListUp("5","Five").AddToListUp("6","Six").AddToListUp("7","Seven")
    DiskPicker1.AddToDown1("A","One").AddToDown1("B","Two").AddToDown1("C","Three").AddToDown1("D","Four").AddToDown1("E","Five").AddToDown1("F","Six").AddToDown1("G","Seven")
    DiskPicker1.AddToDown2("One","1").AddToDown2("Two","2").AddToDown2("Three","3").AddToDown2("Four","4").AddToDown2("Five","5").AddToDown2("Six","6").AddToDown2("Seven","7")
End Sub

Private Sub DiskPicker1_ChangeIndexUp(Index As Int)
    Log("Up: " & Index)
End Sub

Private Sub DiskPicker1_ChangeIndexDown1(Index As Int)
    Log("D1: " & Index)
End Sub

Private Sub DiskPicker1_ChangeIndexDown2(Index As Int)
    Log("D2: " & Index)
End Sub
 
Last edited:
Hi, Star-Dust!
that's how I meant it !!! :)
This solution now gives me the opportunity to create a project that I have been trying on for some time ...
Thank you very much for making these changes :)
Best regards.
 
Hi,
following your example from post # 12 I noticed that the content for the lower circle of DiskPicker1.AddToDown2 ("Jeden", "1"). AddToDown2 ("Dwa", "2") ... etc is not showing up in my example. Instead, it takes values from AddToListUp.
(I understand that the DiscTimePicker has three circles?)

B4X: Copy 
    DiskPicker1.AddToListUp("1","One").AddToListUp("2","Two")...
    DiskPicker1.AddToDown1("A","One").AddToDown1("B","Two")...
    DiskPicker1.AddToDown2("Jeden","1").AddToDown2("Dwa","2")...
 
T201016 said:
Hi,
following your example from post # 12 I noticed that the content for the lower circle of DiskPicker1.AddToDown2 ("Jeden", "1"). AddToDown2 ("Dwa", "2") ... etc is not showing up in my example. Instead, it takes values from AddToListUp.
(I understand that the DiscTimePicker has three circles?)

B4X: Copy 
    DiskPicker1.AddToListUp("1","One").AddToListUp("2","Two")...
    DiskPicker1.AddToDown1("A","One").AddToDown1("B","Two")...
    DiskPicker1.AddToDown2("Jeden","1").AddToDown2("Dwa","2")...
Click to expand...
i will check if there is an error
 
Update 0.07 fix bugs
 
You must log in or register to reply here.
Back
Top