B4A Library DateTimePicker UPDATE 2023

Version: 3 NEW UPDATE 11/2023
This is a B4A Class. It opens a Time-, Date- or DateTime-Picker Dialog based on the B4XPreferencesDialog.

DLGTime.png
DLGDate2.png
DLGDateTime.png
Help.png

Features:
  • Individual or Default Parameter Setup for Dialog Colors and Item Text.
  • All 3 Dialog types in one class.
  • Returned Result is in B4X Ticks.

Installation:
Copy the TD_DateTimePicker Class in your Projekt.
Copy the Files .json Files to the Files Folder of your Project.

Installation in the Project:
Sub Class_Globals
    Private Root As B4XView
    Private xui As XUI
    
    Private TD_DateTimePicker1 As TD_DateTimePicker
    Private TDDateTimePicker1Parameter As Map
End Sub

Public Sub Initialize
    TDDateTimePicker1Parameter.initialize
End Sub

Create This Sub and configure your Parameter needs:
Sub SetupDialog(UseDefault As Boolean)   
    TDDateTimePicker1Parameter.clear
    If UseDefault=False Then
        ' Setup of Individual Dialog TDDateTimePicker1
        ' TDDateTimePicker1Parameter listetd below are an example and similar to the default TDDateTimePicker1 Parameters
        TDDateTimePicker1Parameter.Put("DLGWidth",75%x)
        TDDateTimePicker1Parameter.Put("DLGHeight",50%x)
        TDDateTimePicker1Parameter.Put("Theme","THEME_LIGHT")
        TDDateTimePicker1Parameter.Put("InfoTitle","Help")
        TDDateTimePicker1Parameter.Put("InfoDateDLG","Click on Date to open Calendar.")
        TDDateTimePicker1Parameter.Put("InfoTimeDLG","Time in 24h format.")
        TDDateTimePicker1Parameter.Put("InfoDateTimeDLG","Click on Date to open Calendar. Time in 24h format.")
        TDDateTimePicker1Parameter.Put("TitleBarColor",Colors.blue)
        TDDateTimePicker1Parameter.Put("TitleBarHeight",50dip)
        TDDateTimePicker1Parameter.Put("TitleTextColor",Colors.White)
        TDDateTimePicker1Parameter.Put("Top", 100dip)
        TDDateTimePicker1Parameter.Put("BackgroundColor",Colors.White)
        TDDateTimePicker1Parameter.Put("BodyTextColor",Colors.White)
        TDDateTimePicker1Parameter.Put("BorderColor",Colors.Black)
        TDDateTimePicker1Parameter.Put("BorderWidth", 2dip)
        TDDateTimePicker1Parameter.Put("BorderCornerRadius",5dip)
        TDDateTimePicker1Parameter.put("ItemDate", "Date:")
        TDDateTimePicker1Parameter.put("ItemTimeHour", "Hour:")
        TDDateTimePicker1Parameter.put("ItemTimeMinute", "Minute:")
        TDDateTimePicker1Parameter.put("ItemTimeSecond", "Second:")
        TDDateTimePicker1Parameter.Put("btOKString", "OK")
        TDDateTimePicker1Parameter.Put("btOKWidth",20dip)
        TDDateTimePicker1Parameter.Put("btOKLeft",50dip)
        TDDateTimePicker1Parameter.Put("btOKColor", Colors.Blue)
        TDDateTimePicker1Parameter.Put("btOKTextColor", Colors.White)
        TDDateTimePicker1Parameter.Put("btCancelString", "Cancel")
        TDDateTimePicker1Parameter.Put("btCancelWidth",20dip)
        TDDateTimePicker1Parameter.Put("btCancelLeft",40dip)
        TDDateTimePicker1Parameter.Put("btCancelColor", Colors.Blue)
        TDDateTimePicker1Parameter.Put("btCancelTextColor", Colors.White)
    Else
        TDDateTimePicker1Parameter.Clear
    End If
    TD_DateTimePicker1.DLGParam = TDDateTimePicker1Parameter

Call the Dialog:
Sub btDateTime_Click
    ' Setupb Basic Dialog TDDateTimePicker1Parametereter
    SetupDialog(True)
    ' Setup SecificDialog TDDateTimePicker1Parametereter
    ' YOu must use this parameter!
    ' DLType: Date Time DateTime (case sensitive)
    TDDateTimePicker1Parameter.Put("DLGTitle", "Select a Date")
    TDDateTimePicker1Parameter.Put("DLGType", "DateTime")
    ' Initialize and configure the Dialog
    ' ID, the root object of this page
    ' PageName, the Name of this Page
    ' Eventname, The Sub-Name of the resuklt event
    ' Parameter, Map with individual Parameter
    ' Initialize(ID As B4XView,PageName As String,Eventname As String,DLGTDDateTimePicker1Parametereter As Map)
    TD_DateTimePicker1.Initialize(Root,"mainpage","TD_DateTimePicker1",TDDateTimePicker1Parameter)
    ' Show DTPicker
    TD_DateTimePicker1.showDialog
End Sub

Create This Event Sub to get the DIalog result:
Sub TD_DateTimePicker1_Result(result As Long)
    Log(result)
End Sub
 

Attachments

  • TD_DateTimePicker.bas
    8 KB · Views: 48
  • JSONFiles.zip
    1,001 bytes · Views: 49
Last edited:
Top