B4A Class DatePicker, CalendarView, TimelineView, TagView

DatePicker is a beautiful b4x class library. It offers easy customization to match any theme.

The source code for DatePicker is available on Github, allowing you to easily modify it to suit your personal needs. Source here: https://github.com/tummosoft/B4XUI

 

[tummosoft]

CalendarView is designed for use in apps such as planning and event management.

Dim bAirplane As B4XBitmap=LoadBitmapResize(File.DirAssets,"airplane.png", 20dip, 20dip, True)  'resizes the image
    Dim bMeeting As B4XBitmap=LoadBitmapResize(File.DirAssets,"hangouts-meet.png", 20dip, 20dip, True)  'resizes the image
    Dim bTeam As B4XBitmap=LoadBitmapResize(File.DirAssets,"team.png", 20dip, 20dip, True)  'resizes the image
    'CalendarBox2.BitMap = b
    Log(DateTime.Now)
    
    
    
    'DrawCalendar(DateTime.Now)
    
    Dim color1 As Int = Colors.ARGB(255,91, 35, 255)
    Dim color2 As Int = Colors.ARGB(255,0, 139, 255)
    Dim color3 As Int = Colors.ARGB(255,228, 255, 48)
    Dim color4 As Int = Colors.ARGB(255,54, 47, 79)
    Dim color5 As Int = Colors.ARGB(255, 246, 48, 73)
    
    Dim color6 As Int = Colors.ARGB(255,251, 239, 118)
    Dim color7 As Int = Colors.ARGB(255, 254, 194, 136)
    Dim color8 As Int = Colors.ARGB(255, 250, 92, 92)
            
    CalendarView1.AddBitmap(DateTime.Now, bAirplane)
    CalendarView1.AddBitmap(DateTime.DateParse("4/13/2026"), bMeeting)
    CalendarView1.AddBitmap(DateTime.DateParse("4/24/2026"), bTeam)
    
    CalendarView1.DrawCalendar(DateTime.DateParse("4/1/2026"))
    
    
    CalendarView1.AddEvent(color1, "Add event", DateTime.DateParse("4/21/2026"))
    CalendarView1.AddEvent(color2, "Add event", DateTime.DateParse("4/21/2026"))
    CalendarView1.AddEvent(color3, "Add event", DateTime.DateParse("4/21/2026"))
    
    CalendarView1.AddEvent(color5, "Add event", DateTime.DateParse("4/15/2026"))
    
    CalendarView1.AddEvent(color6, "Add event", DateTime.DateParse("4/4/2026"))
    CalendarView1.AddEvent(color7, "Add event", DateTime.DateParse("4/4/2026"))

 

[mcqueccu]

Only for B4A?

 

[tummosoft]

Only for B4A?

This is pure B4X source code; I think it works with B4i projects. However, I haven't had the chance to test it on B4i yet.

 

[tummosoft]

TimelineView is designed to be simple and easy to apply to projects.

    Dim bMeeting As B4XBitmap=LoadBitmapResize(File.DirAssets,"icons8-meeting-50.png", 20dip, 20dip, True) 
    Dim bRunning As B4XBitmap=LoadBitmapResize(File.DirAssets,"running.png", 20dip, 20dip, True)
    Dim bRound As B4XBitmap=LoadBitmapResize(File.DirAssets,"round.png", 20dip, 20dip, True)
    Dim bCircle As B4XBitmap=LoadBitmapResize(File.DirAssets,"circle.png", 20dip, 20dip, True)

    
    Dim time_line_content As List
    time_line_content.Initialize
    
    Dim item As TimelineItem
    item.Initialize
    item.icon = bRound
    item.title = "Project Kickoff"
    item.des = "Meeting with stakeholders completed."
    item.approve = False
    item.time = DateTime.Now
    item.color = Colors.ARGB(255, 237, 247, 86)
    time_line_content.Add(item)

    Dim item As TimelineItem
    item.Initialize
    item.icon = bCircle
    item.title = "Design System Approval"
    item.des = "Final review of typography, color palette And compoment library."
    item.approve = True
    item.time = DateTime.Now + 3600000
    item.color = Colors.ARGB(255, 157, 249, 239)
    time_line_content.Add(item)

    Dim item As TimelineItem
    item.Initialize
    item.icon = bCircle
    item.title = "Alpha release"
    item.des = "Deployment To staging server."
    item.approve = False
    item.time = DateTime.Now + 4600000
    item.color = Colors.ARGB(255, 255, 246, 133)
    time_line_content.Add(item)

    Dim item As TimelineItem
    item.Initialize
    item.icon = bCircle
    item.title = "Testing And review"
    item.des = "Send project To teste team."
    item.approve = False
    item.time = DateTime.Now + 7600000
    item.color = Colors.ARGB(255, 0, 221, 255)
    time_line_content.Add(item)
    
    Dim box_height As Int = 90dip
    Dim positionY As Int = 0
        
    For i=0 To time_line_content.Size - 1
        Dim item1 As TimelineItem = time_line_content.Get(i)
        
        Dim boxTimeLine As TimelineBox
                
        If item1.approve = True Then
            box_height = 140dip
        Else       
            box_height = 90dip           
        End If
        
        boxTimeLine.Initialize(Me, "TimeLine", scrollLv.Width, box_height)
        scrollLv.Panel.AddView(boxTimeLine.GetView,0,positionY, scrollLv.Width, box_height)
        positionY = positionY + box_height
                        
        boxTimeLine.Title = item1.title
        boxTimeLine.Time = DateTime.Time(item1.time)
        boxTimeLine.Description = item1.des       
        boxTimeLine.Bitmap = item1.icon
        boxTimeLine.Color = item1.color
        
        If item1.approve = False Then
            boxTimeLine.HideButton       
        End If
        
    Next
    scrollLv.Panel.Height = positionY

 

[tummosoft]

* TagView: An B4X TagView library. You can customize awesome TagView by using this library.

Sub Class_Globals
    Private Root As B4XView
    Private xui As XUI  
    Private Panel1 As Panel
    Dim vTagView As TagView
End Sub

Public Sub Initialize
'    B4XPages.GetManager.LogEvents = True
End Sub

'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
   
    vTagView.Initialize(Me, "vTagView", Panel1.Width, Panel1.Height)
    Panel1.AddView(vTagView.GetView, 0,0, Panel1.Width, Panel1.Height)
   
    Dim items_tag As Map
    items_tag.Initialize
    items_tag.Put("Apple", False)  
    items_tag.Put("Banana", True) ' selected
    items_tag.Put("Alpine Strawberry", False)
    items_tag.Put("Banana Banana", False)
    items_tag.Put("Amaou Strawberries", False)
    items_tag.Put("Banana Banana", False)
    items_tag.Put("Acerola Cherries", False)
    items_tag.Put("African Breadfruit", False)
    items_tag.Put("Akebi Fruit", False)  
    items_tag.Put("African Mango", True)  ' selected
    items_tag.Put("Amanatsu Oranges", False)
    items_tag.Put("Ambarella", True)  ' selected
       
    vTagView.SetItems(items_tag)
   
End Sub

Private Sub Button1_Click
    Dim rs As List = vTagView.GetSelectedItem
    For Each item In rs
        Log(item)
    Next
   
End Sub

Sub vTagView_ItemClick(index As Int, selected As Boolean)
    Log("Position= " & index)
    Log("selected= " & selected)
End Sub