B4A Library Another Dial Time Picker

It wraps this Github project. Posting the following:
1. B4A sample project
2. B4A library files (copy them to your additional library folder)

Sample code:

#Region  Project Attributes
    #ApplicationLabel: DialTimePicker
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: landscape
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

    Private dtp1 As DialTimePicker
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("main")
  
  
    dtp1.HourFormat24 = False
    dtp1.CanvasColor = Colors.Transparent
    dtp1.TextColor = Colors.Yellow
    dtp1.DialColor = Colors.Blue
    dtp1.ClockColor = Colors.Red

End Sub

Sub Activity_Resume
  
    dtp1.setFirstTime


End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub dtp1_time_changed(hr As Int, minute As Int, AmPm As String)
  
    Log("hour = " & hr)
    Log("minute = " & minute)
    Log("AM PM = " & AmPm)
  
End Sub

The library:
DialTimePicker
Author: Github: Ugur Tekbas, Wrapped by: Johan Schoeman
Version: 1

• DialTimePicker
  Events:
  • time_changed (hr As Int, minute As Int, AmPm As String)
  Fields:
  • ba As BA
  Methods:
  • BringToFront
  • DesignerCreateView (base As PanelWrapper, lw As LabelWrapper, props As Map)
  • Initialize (EventName As String)
  • Invalidate
  • Invalidate2 (arg0 As Rect)
  • Invalidate3 (arg0 As Int, arg1 As Int, arg2 As Int, arg3 As Int)
  • IsInitialized As Boolean
  • RemoveView
  • RequestFocus As Boolean
  • SendToBack
  • SetBackgroundImage (arg0 As Bitmap)
  • SetColorAnimated (arg0 As Int, arg1 As Int, arg2 As Int)
  • SetLayout (arg0 As Int, arg1 As Int, arg2 As Int, arg3 As Int)
  • SetLayoutAnimated (arg0 As Int, arg1 As Int, arg2 As Int, arg3 As Int, arg4 As Int)
  • SetVisibleAnimated (arg0 As Int, arg1 As Boolean)
  • disableTouch (disableTouch As Boolean)
  • setFirstTime
  Properties:
  • AmPM As String [read only]
  • Background As Drawable
  • CanvasColor As Int [write only]
  • ClockColor As Int [write only]
  • Color As Int [write only]
  • CurrentHour As Int [read only]
  • CurrentMin As Int [read only]
  • DialColor As Int [write only]
  • Enabled As Boolean
  • Height As Int
  • HourFormat24 As Boolean [write only]
  • Left As Int
  • Tag As Object
  • TextColor As Int [write only]
  • Top As Int
  • Visible As Boolean
  • Width As Int

 

[johndb]

Thank you for another valuable library. The Github link in post #1 isn't a valid address

 

[Johan Schoeman]

Thank you for another valuable library. The Github link in post #1 isn't a valid address

Link in post #1 fixed

 

[moster67]

You beat me to it - I was playing with that project yesterday thinking of wrapping it.

Lol

 

[Daniel-White]

Heee, nice one. I like it. it is more easy to put the time. or pick up. Thanks for share it.

 

[MarcoRome]

+10 and you have my DONATION ( 6KS00821GU744443M ) for your great work.
Thank you again Johan

 

[Johan Schoeman]

+10 and you have my DONATION ( 6KS00821GU744443M ) for your great work.
Thank you again Johan

Thank you Sir....

 

[MarcoRome]

Thank you Sir....

I hope that soon a lot people follow this for your hard work ( of course without forget Don Manfred, Informatix, ThedesolateSoul, Worwound, Corwin...sorry if i forget someone ).
It is very easy to write "Thanks" , but certainly better to make a small donation.
Thank you again for your work.

 

[Mashiane]

Hi, is it possible to set the time in this view? for example Im saving and retrieving time from a db and want to show saved time..

 

[Johan Schoeman]

Hi, is it possible to set the time in this view? for example Im saving and retrieving time from a db and want to show saved time..

I will revisit the project and if possible add the functionality to set the time

 

[Johan Schoeman]

I will revisit the project and if possible add the functionality to set the time

Try with the attached library files.

Sample code:

#Region  Project Attributes
    #ApplicationLabel: DialTimePicker
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: landscape
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

    Private dtp1 As DialTimePicker
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("main")
   
   
    dtp1.HourFormat24 = False
    dtp1.CanvasColor = Colors.Transparent
    dtp1.TextColor = Colors.Yellow
    dtp1.DialColor = Colors.Blue
    dtp1.ClockColor = Colors.Red
    dtp1.setTime(17, 28)                'or dtp1.initTime(17, 28) ----> dtp1.initTime(hour, minutes)
   
End Sub

Sub Activity_Resume
   


End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub dtp1_time_changed(hr As Int, minute As Int, AmPm As String)
   
    Log("hour = " & hr)
    Log("minute = " & minute)
    Log("AM PM = " & AmPm)
   
End Sub

Added
dtp1.setTime(17, 28) 'or dtp1.initTime(17, 28) ----> dtp1.initTime(hour, minutes)

 

[Mashiane]

Try with the attached library files.

Sample code:

#Region  Project Attributes
    #ApplicationLabel: DialTimePicker
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: landscape
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

    Private dtp1 As DialTimePicker
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("main")
  
  
    dtp1.HourFormat24 = False
    dtp1.CanvasColor = Colors.Transparent
    dtp1.TextColor = Colors.Yellow
    dtp1.DialColor = Colors.Blue
    dtp1.ClockColor = Colors.Red
    dtp1.setTime(17, 28)                'or dtp1.initTime(17, 28) ----> dtp1.initTime(hour, minutes)
  
End Sub

Sub Activity_Resume
  


End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub dtp1_time_changed(hr As Int, minute As Int, AmPm As String)
  
    Log("hour = " & hr)
    Log("minute = " & minute)
    Log("AM PM = " & AmPm)
  
End Sub

Added
dtp1.setTime(17, 28) 'or dtp1.initTime(17, 28) ----> dtp1.initTime(hour, minutes)

Thanks, will check this out soon...

 

[jaraiza]

Hi! Is there any way to make the little circle bigger? In some phones is very difficult to change the hour when the dial circle needs to be medium or small size.

Thanks!

 

[Johan Schoeman]

Hi! Is there any way to make the little circle bigger? In some phones is very difficult to change the hour when the dial circle needs to be medium or small size.

Thanks!

Attached updated library files (V1.02).

Added the following two methods:

dtp1.DialRadiusDP = 25       'set the size of the small circle
dtp1.TrackSize = 5           'set the width of the big circle

 

[jaraiza]

Attached updated library files (V1.02).

Added the following two methods:

dtp1.DialRadiusDP = 25       'set the size of the small circle
dtp1.TrackSize = 5           'set the width of the big circle

Thank you very much!!

 

[JohnC]

I think I found a bug with this library...

If I set to AM/PM mode using "dtFrom.HourFormat24 = False" and then try either of these methods:

    dtp1.initTime(22,0)
    dtp1.setTime(22,0)

It should set the clock to 10:00 PM, but it sets it to 10:00 "AM".

Or am I doing something wrong?