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