B4A Library Material Date Picker

#Extends : android.support.v4.app.FragmentActivity

Sub Globals
   Dim Datepicker As Intellvold_DatePicker
   Dim Mycalendar As Intellvold_Calendar
   Dim Timepicker As Intellvold_TimePicker
End Sub


Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout")
End Sub

Sub Button1_Click
    Datepicker.Initialize("Date",2022 ,DateTime.GetMonth(DateTime.Now) ,DateTime.GetDayOfMonth(DateTime.Now))
    Mycalendar.Initialize("dd.mm.yyyy",Mycalendar.PRC,"2.02.1990") 'start date
'   Datepicker.SetThemeDark
    Datepicker.SetMinDate(Mycalendar)
    Mycalendar.Initialize("dd.mm.yyyy",Mycalendar.PRC,"2.02.2030") 'end date
    Datepicker.SetMaxDate(Mycalendar)
    Datepicker.CancelColor = Colors.Red
    Datepicker.OkColor = Colors.Green
    Datepicker.Title = "IntellVold"
    Datepicker.CancelText = "yox"
    Datepicker.OkText = "bəli"
'   Datepicker.SetThemeDark
    Datepicker.SetOnCancel("can")
'   Datepicker.show("bir")
    Datepicker.show2("iki")
    Datepicker.About
    Sleep(10000)
'   Datepicker.Dismiss_Dialog
End Sub


Sub Date_OnDateSet (year As Int ,monthOfYear As Int , dayOfMonth As Int)
    ToastMessageShow(year&"/"&(NumberFormat(monthOfYear,2 ,0))&"/"&NumberFormat(dayOfMonth ,2 ,0) ,False)
    Msgbox(year&"/"&(NumberFormat(monthOfYear,2 ,0))&"/"&NumberFormat(dayOfMonth ,2 ,0) ,"")
End Sub

Sub can_OnCancelDate ()
    ToastMessageShow("cancel" ,False)
End Sub

Private Sub Button2_Click
    Timepicker.Initialize("Time" ,21 ,45 ,True)
    Timepicker.CancelColor = Colors.Red
    Timepicker.CancelText = "yox"
    Timepicker.OkColor = Colors.Yellow
    Timepicker.OkText = "bəli"
    Timepicker.SetOnCancel("Time")
'   Timepicker.SetThemeDark
    Timepicker.show("bir")
    Timepicker.Title = "TimeIntellvold"
    Sleep(4000)
'   Timepicker.Dismiss_Dialog
End Sub

Sub Time_OnCancelTime ()
    Log("Time_OnCancelTime")
End Sub

Sub Time_OnTimeSet (hourOfDay As Int ,minute As Int , second As Int)
    ToastMessageShow(hourOfDay&":"&minute&":"&second ,False)
    Msgbox(hourOfDay&":"&minute&":"&second ,"")
End Sub

SetApplicationAttribute(android:theme, "@style/MyAppTheme")
CreateResource(values, theme.xml,
<resources>
    <style name="MyAppTheme" parent="Theme.AppCompat.Light.NoActionBar">
 
 
 
 
 <item name="colorAccent">#040925</item>
        <item name="windowNoTitle">true</item>
        <item name="windowActionBar">false</item>
        <item name="android:navigationBarColor">#FF000000</item>
 
 
 
    </style>
</resources>
)