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

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

  • Sample1.zip
    9.1 KB · Views: 54
  • Sample2.zip
    9.4 KB · Views: 57
  • iSample1.zip
    2.4 KB · Views: 50
  • iSample2.zip
    2.5 KB · Views: 48
  • iSD_DiscTimePicker 0.07.zip
    203.9 KB · Views: 40
  • SD_DiscTimePicker 0.07.zip
    12.1 KB · Views: 51
Last edited:

T201016

Active Member
Licensed User
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 :)
 

Star-Dust

Expert
Licensed User
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 :)
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.
 

Star-Dust

Expert
Licensed User
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



Usage examples:
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:

T201016

Active Member
Licensed User
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.
 

T201016

Active Member
Licensed User
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:
    DiskPicker1.AddToListUp("1","One").AddToListUp("2","Two")...
    DiskPicker1.AddToDown1("A","One").AddToDown1("B","Two")...
    DiskPicker1.AddToDown2("Jeden","1").AddToDown2("Dwa","2")...
 

Star-Dust

Expert
Licensed User
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:
    DiskPicker1.AddToListUp("1","One").AddToListUp("2","Two")...
    DiskPicker1.AddToDown1("A","One").AddToDown1("B","Two")...
    DiskPicker1.AddToDown2("Jeden","1").AddToDown2("Dwa","2")...
i will check if there is an error
 

Star-Dust

Expert
Licensed User
Update 0.07 fix bugs
 
Top