B4A Library [B4X] [XUI] AS CalendarAdvanced 📅 - OneRow/FiveRow Calendar - Expand and Collapse

Hey all, after almost a week of work and much frustration, I am proud to share with you a calendar view.
The view is inspired on the calendar view in the outlook app.

This library is not free, because, it cost a lot of time and gray hair to create such views.
Donations from 7€ or 8$ are valid. (You can donate any amount you want :))
Please write CalendarAdvanced in the order description, thanks.

Thanks for your understanding. :)
  1. Donate
  2. I will send you an e-mail with the code to decrypt the .zip file
  3. Done
NEW Special Days
IMG_5041.jpg

NEW AppointmentType1
IMG_5012.jpg

AppointmentType1,AppointmentType2,AppointmentType3
1618912554091.png
1618912567441.png
1618912577470.png

Collapsed
IMG_3868.jpg

Expanded
IMG_3787.jpg

seamless transition between the two modes
ezgif.com-gif-maker.gif

You can disable the Expandable to use the view in only one mode, then the bottom drag bar is not visible.

B4J is currently not supported, but will be in the near future.
B4J is now supported.
B4j: jXUI,jDateUtils,jReflection,xCustomListView,ASViewPager
B4a: XUi,DateUtils,Reflection,xCustomListView,ASViewPager
B4i: iXUI,iDateUtils,xCustomListView,ASViewPager,GestureRecognizer
Make sure you are using ASViewPager V1.24+
On B4I you need GestureRecognizer Download the .bas file in the attachment
Examples:
change body month names and header week names:
ASCalendarAdvanced1.WeekNameShort = ASCalendarAdvanced1.CreateASCalendarAdvanced_WeekNameShort("Mon","Tue","Wed","Thu","Fri","Sat","Sun")
ASCalendarAdvanced1.MonthNameShort = ASCalendarAdvanced1.CreateASCalendarAdvanced_MonthNameShort("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sept","Oct","Nov","Dec")
ASCalendarAdvanced1.UpdateBody 'Update all body items to the new style/text
ASCalendarAdvanced1.UpdateHeader 'Update all header items to the new style/text
Call this in B4XPage_Created or on Form Load and call this after you change something on the body, but only once at runtime
B4X:
'Call this to Build the calendar, unfortunately this is needed, otherwise runtime errors will occur
'Call this after you set all properties you want
ASCalendarAdvanced1.CreateCalendar
Mark all Sundays as a SpecialDay:
Sub ASCalendarAdvanced1_VisibleRangeChanged(StartDate As Long,EndDate As Long)
    Dim sundays As List = ASCalendarAdvanced1.GetDaysBetween2Dates(StartDate,EndDate, 1)
    For Each s As Long In sundays
        ASCalendarAdvanced1.AddSpecialDay(s,xui.Color_ARGB(255,221, 95, 96),"official_holiday")
    Next
    ASCalendarAdvanced1.CommitSpecialDays
End Sub

ASCalendarAdvanced
Author: Alexander Stolte
Version: 2.06

  • ASCalendarAdvanced
    • Events:
      • HeightChanged (Height As Float)
      • SelectedDateChanged (Date As Long)
      • TouchDown
      • TouchUp
      • VisibleRangeChanged (StartDate As Long, EndDate As Long)
    • Fields:
      • mBase As B4XView
      • Tag As Object
    • Functions:
      • AddAppointmentType1 (date As Long, color As Int) As String
      • AddAppointmentType2 (date As Long, color As Int, text As String, text_color As Int) As String
      • AddAppointmentType3 (start_date As Long, end_date As Long, color As Int) As String
      • AddSpecialDay (date As Long, color As Int, identifier As String) As String
        Adds a new special day - call CommitSpecialDays if youre done with adding
        color - Text Color
        value - e.g. "official_holiday", "birthday","Vacation"
      • Back2CurrentDate As String
        Slides Back or Forward to the Current Date
      • Base_Resize (Width As Double, Height As Double) As String
      • Class_Globals As String
      • CommitSpecialDays As String
        Commits all new visible special dates
      • CommitStyleChanges As String
        a simple Base_Resize, but all visible items ar updated
      • CreateASCalendarAdvanced_AppointmentType1 (date As Long, color As Int) As ASCalendarAdvanced_AppointmentType1
        simple dot under date
      • CreateASCalendarAdvanced_AppointmentType2 (date As Long, color As Int, text As String, text_color As Int) As ASCalendarAdvanced_AppointmentType2
        short text above date
      • CreateASCalendarAdvanced_AppointmentType2_ItemProperties (xfont As B4XFont, height As Float, padding As Float, corner_radius As Float) As ASCalendarAdvanced_AppointmentType2_ItemProperties
      • CreateASCalendarAdvanced_AppointmentType3 (start_date As Long, end_date As Long, color As Int) As ASCalendarAdvanced_AppointmentType3
      • CreateASCalendarAdvanced_AppointmentType3_ItemProperties (height As Float, alpha_color As Int, corner_radius As Float) As ASCalendarAdvanced_AppointmentType3_ItemProperties
        alpha_color - value between 0 - 255, its the aplha for the range appointments
      • CreateASCalendarAdvanced_BodyTextProperties (TextColor As Int, TextFont As B4XFont, TextAlignment_Vertical As String, TextAlignment_Horizontal As String) As ASCalendarAdvanced_BodyTextProperties
      • CreateASCalendarAdvanced_ExtraInfosTextProperties (TextColor As Int, TextFont As B4XFont, TextAlignment_Vertical As String, TextAlignment_Horizontal As String) As ASCalendarAdvanced_ExtraInfosTextProperties
      • CreateASCalendarAdvanced_HeaderTextProperties (TextColor As Int, TextFont As B4XFont, TextAlignment_Vertical As String, TextAlignment_Horizontal As String) As ASCalendarAdvanced_HeaderTextProperties
      • CreateASCalendarAdvanced_MonthNameShort (January As String, February As String, March As String, April As String, May As String, June As String, July As String, August As String, September As String, October As String, November As String, December As String) As ASCalendarAdvanced_MonthNameShort
      • CreateASCalendarAdvanced_SpecialDay (date As Long, color As Int, identifier As String) As ASCalendarAdvanced_SpecialDay
      • CreateASCalendarAdvanced_WeekNameShort (Monday As String, Tuesday As String, Wednesday As String, Thursday As String, Friday As String, Saturday As String, Sunday As String) As ASCalendarAdvanced_WeekNameShort
      • CreateCalendar
        call this function only once
      • DesignerCreateView (Base As Object, Lbl As Label, Props As Map) As String
        Base type must be Object
      • getAppointmentType2_ItemPropertiest As ASCalendarAdvanced_AppointmentType2_ItemProperties
      • getAppointmentType3_ItemPropertiest As ASCalendarAdvanced_AppointmentType3_ItemProperties
      • getBodyTextProperties As ASCalendarAdvanced_BodyTextProperties
      • getBottomHeight As Float
        gets or sets the height of the drag-panel on the bottom, to expand or collapse the view
        Default 15dip
      • GetDaysBetween2Dates (StartDate As Long, EndDate As Long, RequiredDayOfWeek As Int) As List
        RequiredDayOfWeek - week starts at 1=sunday,2=monday...
        Call it if you are done adding new special days, makes this way makes the performance better
      • GetExpandedViewHeight As Float
        gets the view height of the expanded view height
      • getExtraInfosTextProperties As ASCalendarAdvanced_ExtraInfosTextProperties
      • getHeaderPanel As B4XView
      • getHeaderTextProperties As ASCalendarAdvanced_HeaderTextProperties
      • getMonthNameShort As ASCalendarAdvanced_MonthNameShort
      • getSelectedDate As Long
        gets or sets the selected date
      • GetSpecialDayAt (date As Long) As ASCalendarAdvanced_SpecialDay
        Gets a ASCalendarAdvanced_SpecialDay object on a date if exists
      • getStartDate As Long
        Set this date before you call CreateCalendar
      • getVisibleDateRange As Map
        Public Sub CommitViewPager
        xASVP_Horizontal.Base_Resize(mBase.wi
        End Sub
        gets the current visible date range as map
        <code>Dim tmp_m As Map = ASCalendarAdvanced1.VisibleDateRange
        Log("StartDate: " & DateUtils.TicksToString(tmp_m.Get("StartDate")))
        Log("EndDate: " & DateUtils.TicksToString(tmp_m.Get("EndDate")))</code>
      • getWeekNameShort As ASCalendarAdvanced_WeekNameShort
      • Initialize (Callback As Object, EventName As String) As String
      • IsInitialized As Boolean
        Tests whether the object has been initialized.
      • Month2WeekKeepSelectedWeekVisible (keep As Boolean) As String
        If you switch from MonthView to WeekView then the selected day keeps visible
        Default: True
      • NextWeek As String
        Scrolls to the next week or month it depends on the expanded state
      • PreviousWeek As String
        Scrolls to the previous week or month it depends on the expanded state
      • RemoveAppointmentType1 (date As Long) As String
        if there are multiple AppointmentType1 on the date, then all of them will be removed
      • RemoveAppointmentType2 (date As Long) As String
        removes AppointmentType2 on that day
        call CommitStyleChanges if youre done with removing
      • RemoveOneAppointmentType1 (date As Long) As String
        if there are multiple AppointmentType1 on the date, then one of them will be removed
        call CommitStyleChanges if youre done with removing
      • RemoveSpecialDay (date As Long) As String
        Removes a special day - call CommitSpecialDays if youre done with adding
      • Reset (ApType1 As Boolean, ApType2 As Boolean, ApType3 As Boolean, SpecialDays As Boolean) As String
        removes all appointments or special days. Set to "True" to control what should be reset
        call CommitStyleChanges if youre resetting the SpecialDays
      • Scroll2Date (Date As Long) As String
        Slides Back or Forward to a special date
      • setAppointmentType2_ItemPropertiest (ItemProperties As ASCalendarAdvanced_AppointmentType2_ItemProperties) As String
      • setAppointmentType3_ItemPropertiest (ItemProperties As ASCalendarAdvanced_AppointmentType3_ItemProperties) As String
      • setBodyTextProperties (BodyTextProperties As ASCalendarAdvanced_BodyTextProperties) As String
      • setBottomHeight (height As Float) As String
        gets or sets the height of the drag-panel on the bottom, to expand or collapse the view
        Default 15dip
        call CommitStyleChanges if you change the value
      • setExtraInfosTextProperties (ExtraInfosTextProperties As ASCalendarAdvanced_ExtraInfosTextProperties) As String
      • setExtraItemGap (gap As Float) As String
        sets the ExtraItemGab - is to prevent the font from covering the month number
        Default 6dip
        call CommitStyleChanges if you change the value
      • setFirstDayOfWeek (number As Int) As String
        1-7 - set this before you call CreateCalendar
        Friday = 1
        Thursday = 2
        Wednesday = 3
        Tuesday = 4
        Monday = 5
        Sunday = 6
        Saturday = 7
      • setHeaderTextProperties (HeaderTextProperties As ASCalendarAdvanced_HeaderTextProperties) As String
      • setKeepSelectedDate (keep As Boolean) As String
        Default: False
        WeekView: The same week day is selected if you switch to the next week e.g. Monday 05.07.201-> Monday 12.07.2021
        MonthView: The same date is selected if you switch to the next month e.g 22.07.2021-> 22.08.2021
      • setMonthNameShort (MonthNameShort As ASCalendarAdvanced_MonthNameShort) As String
      • setSelectedDate (date As Long) As String
        gets or sets the selected date
      • setShowFirstWeekOfMonthInFirstRow (show As Boolean) As String
        if the calendar is expanded, then the 1st week of the month will be in the 1st row
      • setShowOtherMonths (show As Boolean) As String
        Only in MonthView - set it to False if you dont show the days from the next or previous month
        Default: True
      • setStartDate (date As Long) As String
        Set this date before you call CreateCalendar
      • setWeekNameShort (WeekNameShort As ASCalendarAdvanced_WeekNameShort) As String
      • SpecialDayExists (date As Long) As Boolean
        Returns True if a special day is already added to a date
      • UpdateAll As String
        UpdateBody and UpdateHeader in one
      • UpdateBody As String
      • UpdateHeader As String
    • Properties:
      • AppointmentType2_ItemPropertiest As ASCalendarAdvanced_AppointmentType2_ItemProperties
      • AppointmentType3_ItemPropertiest As ASCalendarAdvanced_AppointmentType3_ItemProperties
      • BodyTextProperties As ASCalendarAdvanced_BodyTextProperties
      • BottomHeight As Float
        gets or sets the height of the drag-panel on the bottom, to expand or collapse the view
        Default 15dip
      • ExtraInfosTextProperties As ASCalendarAdvanced_ExtraInfosTextProperties
      • ExtraItemGap
        sets the ExtraItemGab - is to prevent the font from covering the month number
        Default 6dip
        call CommitStyleChanges if you change the value
      • FirstDayOfWeek
        1-7 - set this before you call CreateCalendar
        Friday = 1
        Thursday = 2
        Wednesday = 3
        Tuesday = 4
        Monday = 5
        Sunday = 6
        Saturday = 7
      • HeaderPanel As B4XView [read only]
      • HeaderTextProperties As ASCalendarAdvanced_HeaderTextProperties
      • KeepSelectedDate
        Default: False
        WeekView: The same week day is selected if you switch to the next week e.g. Monday 05.07.201-> Monday 12.07.2021
        MonthView: The same date is selected if you switch to the next month e.g 22.07.2021-> 22.08.2021
      • MonthNameShort As ASCalendarAdvanced_MonthNameShort
      • SelectedDate As Long
        gets or sets the selected date
      • ShowFirstWeekOfMonthInFirstRow
        if the calendar is expanded, then the 1st week of the month will be in the 1st row
      • ShowOtherMonths
        Only in MonthView - set it to False if you dont show the days from the next or previous month
        Default: True
      • StartDate As Long
        Set this date before you call CreateCalendar
      • VisibleDateRange As Map [read only]
        Public Sub CommitViewPager
        xASVP_Horizontal.Base_Resize(mBase.wi
        End Sub
        gets the current visible date range as map
        <code>Dim tmp_m As Map = ASCalendarAdvanced1.VisibleDateRange
        Log("StartDate: " & DateUtils.TicksToString(tmp_m.Get("StartDate")))
        Log("EndDate: " & DateUtils.TicksToString(tmp_m.Get("EndDate")))</code>
      • WeekNameShort As ASCalendarAdvanced_WeekNameShort
  • ASCalendarAdvanced_AppointmentType1
    • Fields:
      • color As Int
      • date As Long
      • IsInitialized As Boolean
        Tests whether the object has been initialized.
    • Functions:
      • Initialize
        Initializes the fields to their default value.
  • ASCalendarAdvanced_AppointmentType2
    • Fields:
      • color As Int
      • date As Long
      • IsInitialized As Boolean
        Tests whether the object has been initialized.
      • text As String
      • text_color As Int
    • Functions:
      • Initialize
        Initializes the fields to their default value.
  • ASCalendarAdvanced_AppointmentType2_ItemProperties
    • Fields:
      • corner_radius As Float
      • height As Float
      • IsInitialized As Boolean
        Tests whether the object has been initialized.
      • padding As Float
      • xfont As B4XFont
    • Functions:
      • Initialize
        Initializes the fields to their default value.
  • ASCalendarAdvanced_AppointmentType3
    • Fields:
      • color As Int
      • end_date As Long
      • IsInitialized As Boolean
        Tests whether the object has been initialized.
      • start_date As Long
    • Functions:
      • Initialize
        Initializes the fields to their default value.
  • ASCalendarAdvanced_AppointmentType3_ItemProperties
    • Fields:
      • alpha_color As Int
      • corner_radius As Float
      • height As Float
      • IsInitialized As Boolean
        Tests whether the object has been initialized.
    • Functions:
      • Initialize
        Initializes the fields to their default value.
  • ASCalendarAdvanced_BodyTextProperties
    • Fields:
      • IsInitialized As Boolean
        Tests whether the object has been initialized.
      • TextAlignment_Horizontal As String
      • TextAlignment_Vertical As String
      • TextColor As Int
      • TextFont As B4XFont
    • Functions:
      • Initialize
        Initializes the fields to their default value.
  • ASCalendarAdvanced_ExtraInfosTextProperties
    • Fields:
      • IsInitialized As Boolean
        Tests whether the object has been initialized.
      • TextAlignment_Horizontal As String
      • TextAlignment_Vertical As String
      • TextColor As Int
      • TextFont As B4XFont
    • Functions:
      • Initialize
        Initializes the fields to their default value.
  • ASCalendarAdvanced_HeaderTextProperties
    • Fields:
      • IsInitialized As Boolean
        Tests whether the object has been initialized.
      • TextAlignment_Horizontal As String
      • TextAlignment_Vertical As String
      • TextColor As Int
      • TextFont As B4XFont
    • Functions:
      • Initialize
        Initializes the fields to their default value.
  • ASCalendarAdvanced_MonthNameShort
    • Fields:
      • April As String
      • August As String
      • December As String
      • February As String
      • IsInitialized As Boolean
        Tests whether the object has been initialized.
      • January As String
      • July As String
      • June As String
      • March As String
      • May As String
      • November As String
      • October As String
      • September As String
    • Functions:
      • Initialize
        Initializes the fields to their default value.
  • ASCalendarAdvanced_SpecialDay
    • Fields:
      • color As Int
      • date As Long
      • identifier As String
      • IsInitialized As Boolean
        Tests whether the object has been initialized.
    • Functions:
      • Initialize
        Initializes the fields to their default value.
  • ASCalendarAdvanced_WeekNameShort
    • Fields:
      • Friday As String
      • IsInitialized As Boolean
        Tests whether the object has been initialized.
      • Monday As String
      • Saturday As String
      • Sunday As String
      • Thursday As String
      • Tuesday As String
      • Wednesday As String
    • Functions:
      • Initialize
        Initializes the fields to their default value.
  • WeekCounter
  • Vertical Swipe
  • MultiSelect
  • HideOtherMonths
  • Scroll2NextMonthIfClickOnNextMonth
  • AppointmentType1 - automatically display a + symbol when too many have been added
  • AppointmentType2 - support of multiple in one day e.g. for symbols
If you have features or something is still missing, let me know.
Changelog
  • 1.00
    • Release
  • 1.01
    • BugFixes
    • Add set ShowFirstWeekOfMonthInFirstRow - if the calendar is expanded, then the 1st week of the month will be in the 1st row - set this to true before you call "CreateCalendar"
  • 1.02
    • Add get VisibleDateRange- gets the current visible date range as map
    • BugFixes if ShowFirstWeekOfMonthInFirstRow is True
  • 1.03
    • Many BugFixes
    • ShowFirstWeekOfMonthInFirstRow is now fully implemented
  • 1.04
    • B4J Support
      • DoubleClick on Bottom to Expand or Collapse
        • Depend on Expandable
    • Add Designer Property ShowFirstWeekOfMonthInFirstRow - if the calendar is expanded then the 1st week of the month will be in the 1st row
  • 1.05 (read more about this update)
    • Important BugFixes if the view is expanded
    • Add AppointmentType1 - dots under a date
      • Add SetAppointmentType1 - adds an appointment to a date
      • IMG_5012.jpg
  • 1.06
    • BugFix
  • 1.07 (read more about this update)
    • SetAppointmentType1 renamed to AddAppointmentType1
    • BugFix on VisibleRangeChanged
    • Add GetDaysBetween2Dates - Returns a list of dates at a special day in a week e.g. all sundays between 2 dates
    • Add AddSpecialDay - Adds a new special day
      • IMG_5041.jpg
      • Add CommitSpecialDays - Commits all new visible special dates
      • Add SpecialDayExists - Returns True if a special day is already added to a date
      • Add GetSpecialDayAt - Gets a ASCalendarAdvanced_SpecialDay object on a date if exists
      • Add RemoveSpecialDay - Removes a special day
  • 2.00 (read more about this update)
    • BugFixes
    • Expand with fingers is now smooth
    • Add AppointmentType2 - Text Label above date
      • Add AddAppointmentType2 - adds an appointment to a date
    • Add AppointmentType3 - mark a range between 2 dates
      • Add AddAppointmentType3 - adds an range appointment between 2 dates
    • Add set and get AppointmentType2_ItemPropertiest - change the properties to customize AppointmentType2 look and feel e.g. corner_radius or padding
    • Add set and get AppointmentType3_ItemPropertiest - change the properties to customize AppointmentType3 look and feel e.g. corner_radius or aplha color
    • Add get and set BottomHeight - gets or sets the height of the drag-panel on the bottom, to expand or collapse the view
    • Add CommitStyleChanges - a simple Base_Resize, but all visible items ar updated
    • Add Event TouchDown - fires if the user touch the expand panel
    • Add Event TouchUp - fires if the user release the expand panel
    • Add Function GetExpandedViewHeight - gets the view height of the expanded view height
    • Add RemoveOneAppointmentType1 - if there are multiple AppointmentType1 on the date, then one of them will be removed
    • Add RemoveAppointmentType1 - if there are multiple AppointmentType1 on the date, then all of them will be removed
    • Add RemoveAppointmentType2 - removes AppointmentType2 on that day
    • Add Reset - removes all appointments or special days. Set to "True" to control what should be reset
    • Add set ExtraItemGap - is to prevent the font from covering the month number
  • 2.01 (read more about this update)
    • BugFix - Back2CurrentDay the current day panel has covered the day label
    • BugFix - AppointmentType3
    • Add get HeaderPanel - gets the header panel (code example)
    • Add set and get SelectedDate - gets or sets the selected date
    • BugFix - Removing Appointments
  • 2.02
    • BugFix
  • 2.04
    • Base_Resize is now public
    • Intern Function IIF renamed to iif2
  • 2.05 (read more about this update)
    • Add StartDate - Set here the date where you want to start - set this before you call CreateCalendar
    • Add FirstDayOfWeek - 1-7 - set this before you call CreateCalendar
  • 2.06 (read more about this update)
    • BugFix New Handling of other Months
      • not the whole next month is in a different color, but only the days that are not in the current month
    • Add KeepSelectedDate
      • Default: False
      • WeekView: The same week day is selected if you switch to the next week e.g. Monday 05.07.201-> Monday 12.07.2021
      • MonthView: The same date is selected if you switch to the next month e.g 22.07.2021-> 22.08.2021
    • Add Month2WeekKeepSelectedWeekVisible - If you switch from MonthView to WeekView then the selected day keeps visible
      • Default: True
    • Add ShowOtherMonths - Only in MonthView - set it to False if you dont show the days from the next or previous month
      • Default: True
  • 2.07
    • BugFix B4A and B4J HeightChanged event is now firing
  • 2.08
    • Intern Function iif2 removed and the core iif is now used
      • B4A V11+ - B4J V9.10+ - B4I V7.50+
    • B4I better perfomance on Page Change with ASViewPager V1.18+
    • B4I better perfomance on Expand and Collapse with finger and with the functions
    • BugFixes
  • 2.10 (read more about this update)
    • New Event VisibleRangeChange - is triggered before the new page is completely visible.
    • Add SetLimitRange - Limit the calendar to a certain range of months
      • Set one of them to 0 if you dont want a limit
  • 2.11 (read more about this update)
    • Designer Property "Expanded" a better handling of the view
      • If True the full height is used to display the view expanded
      • IF False the full height is used to display the view collapsed
      • Old Handling:
        • If True the full height is used to display the view collapsed and from the body height the expanded heihgt was calculated
    • Designer Property "BodyItemHeightInPercentage" Removed
      • was a poor indicator of how big the header is
    • Add Desinger Property "HeaderHeight" - Determines the size of the header. The larger the number the less space the items have in the body
    • Add Designer Property "KeepSelectedDate"
    • Add Designer Porperty "BottomHeight" - the height of the drag-panel on the bottom, to expand or collapse the view
    • Add Designer Property "ShowOtherMonths" - Only in MonthView - set it to False if you dont show the days from the next or previous month
    • Add Expand - Expands the view
    • Add Close - Collsaps the view
    • B4J BugFixes
  • 2.12
    • Add set HeaderColor
    • Add set BodyColor - the complete calendar is rebuilt at the action
    • Add set BottomColor
    • Add set OtherMonthBackgroundColor - the complete calendar is rebuilt at the action
  • 2.13
    • BugFix - The event "VisibleRangeChange" was not triggered when creating the calendar
Have Fun :)
 

Attachments

  • GestureRecognizer.bas
    11.2 KB · Views: 144
  • 2.10 Backup ASCalendarAdvanced.zip
    14.3 KB · Views: 67
  • Example AS CalendarAdvanced.zip
    12.7 KB · Views: 82
  • ASCalendarAdvanced.zip
    14.8 KB · Views: 8
Last edited:

focus330

Member
Licensed User
Sorry but I didn't receive your email with the key. My payPal address is OK and they send me a confirm for the payment ( 8,00 USD ) Transaction ID: 6NM57452CS650662T
 

Lello1964

Well-Known Member
Licensed User
I have a problem using ScrollDate function.

I have this code :
B4X:
    dataAss.WeekNameShort = dataAss.CreateASCalendarAdvanced_WeekNameShort("Lun","Mar","Mer","Gio","Ven","Sab","Dom")
    dataAss.MonthNameShort = dataAss.CreateASCalendarAdvanced_MonthNameShort("Gen","Feb","Mar","Apr","Mag","Giu","Lug","Ago","Set","Ott","Nov","Dic")
    dataAss.SelectedDate = dataPrevista
    dataAss.UpdateBody
    dataAss.UpdateHeader
    dataAss.ShowFirstWeekOfMonthInFirstRow = True
    dataAss.CreateCalendar
    dataAss.CreateASCalendarAdvanced_SpecialDay(dataPrevista, xui.Color_ARGB(255,221, 95, 96), "data1")
    dataAss.AddAppointmentType1(map.Get("dataPrevista"), xui.Color_ARGB(255,221, 95, 96))
'    dataAss.AddSpecialDay(map.Get("dataPrevista"), xui.Color_ARGB(255,221, 95, 96), "")
    dataAss.Scroll2Date(dataPrevista)

and have this error :

Errore nella linea: 326 (ASViewPager)
java.lang.IndexOutOfBoundsException: Index 1 out of bounds for length 1
at java.base/jdk.internal.util.Preconditions.outOfBounds(Preconditions.java:64)
at java.base/jdk.internal.util.Preconditions.outOfBoundsCheckIndex(Preconditions.java:70)
at java.base/jdk.internal.util.Preconditions.checkIndex(Preconditions.java:248)
at java.base/java.util.Objects.checkIndex(Objects.java:372)
at java.base/java.util.ArrayList.get(ArrayList.java:458)
at anywheresoftware.b4a.objects.collections.List.Get(List.java:122)
at b4j.example.customlistview._replaceat(customlistview.java:914)
at b4j.example.ascalendaradvanced._addweekpanel(ascalendaradvanced.java:2380)
at b4j.example.ascalendaradvanced._scroll2date(ascalendaradvanced.java:883)
at b4j.example.b4xmainpage._clvassistenza_itemclick(b4xmainpage.java:17243)
at java.base/jdk.internal.reflect.NativeMethodAccessorImpl.invoke0(Native Method)
at java.base/jdk.internal.reflect.NativeMethodAccessorImpl.invoke(NativeMethodAccessorImpl.java:62)
at java.base/jdk.internal.reflect.DelegatingMethodAccessorImpl.invoke(DelegatingMethodAccessorImpl.java:43)
at java.base/java.lang.reflect.Method.invoke(Method.java:566)
at anywheresoftware.b4a.shell.Shell.runMethod(Shell.java:632)
at anywheresoftware.b4a.shell.Shell.raiseEventImpl(Shell.java:237)
at anywheresoftware.b4a.shell.Shell.raiseEvent(Shell.java:167)
at jdk.internal.reflect.GeneratedMethodAccessor7.invoke(Unknown Source)
at java.base/jdk.internal.reflect.DelegatingMethodAccessorImpl.invoke(DelegatingMethodAccessorImpl.java:43)
at java.base/java.lang.reflect.Method.invoke(Method.java:566)
at anywheresoftware.b4a.BA.raiseEvent2(BA.java:108)
at anywheresoftware.b4a.shell.ShellBA.raiseEvent2(ShellBA.java:98)
at anywheresoftware.b4a.keywords.Common.CallSub4(Common.java:504)
at anywheresoftware.b4a.keywords.Common.CallSubNew3(Common.java:467)
at b4j.example.customlistview$ResumableSub_PanelClickHandler.resume(customlistview.java:808)
at b4j.example.customlistview._panelclickhandler(customlistview.java:751)
at b4j.example.customlistview._panel_mouseclicked(customlistview.java:742)
at java.base/jdk.internal.reflect.NativeMethodAccessorImpl.invoke0(Native Method)
at java.base/jdk.internal.reflect.NativeMethodAccessorImpl.invoke(NativeMethodAccessorImpl.java:62)
at java.base/jdk.internal.reflect.DelegatingMethodAccessorImpl.invoke(DelegatingMethodAccessorImpl.java:43)
at java.base/java.lang.reflect.Method.invoke(Method.java:566)
at anywheresoftware.b4a.BA.raiseEvent2(BA.java:108)
at anywheresoftware.b4a.BA.raiseEvent(BA.java:95)
at anywheresoftware.b4j.objects.NodeWrapper$1.handle(NodeWrapper.java:109)
at anywheresoftware.b4j.objects.NodeWrapper$1.handle(NodeWrapper.java:1)
at javafx.base/com.sun.javafx.event.CompositeEventHandler.dispatchBubblingEvent(CompositeEventHandler.java:86)
at javafx.base/com.sun.javafx.event.EventHandlerManager.dispatchBubblingEvent(EventHandlerManager.java:238)
at javafx.base/com.sun.javafx.event.EventHandlerManager.dispatchBubblingEvent(EventHandlerManager.java:191)
at javafx.base/com.sun.javafx.event.CompositeEventDispatcher.dispatchBubblingEvent(CompositeEventDispatcher.java:59)
at javafx.base/com.sun.javafx.event.BasicEventDispatcher.dispatchEvent(BasicEventDispatcher.java:58)
at javafx.base/com.sun.javafx.event.EventDispatchChainImpl.dispatchEvent(EventDispatchChainImpl.java:114)
at javafx.base/com.sun.javafx.event.BasicEventDispatcher.dispatchEvent(BasicEventDispatcher.java:56)
at javafx.base/com.sun.javafx.event.EventDispatchChainImpl.dispatchEvent(EventDispatchChainImpl.java:114)
at javafx.base/com.sun.javafx.event.BasicEventDispatcher.dispatchEvent(BasicEventDispatcher.java:56)
at javafx.base/com.sun.javafx.event.EventDispatchChainImpl.dispatchEvent(EventDispatchChainImpl.java:114)
at javafx.base/com.sun.javafx.event.BasicEventDispatcher.dispatchEvent(BasicEventDispatcher.java:56)
at javafx.base/com.sun.javafx.event.EventDispatchChainImpl.dispatchEvent(EventDispatchChainImpl.java:114)
at javafx.base/com.sun.javafx.event.BasicEventDispatcher.dispatchEvent(BasicEventDispatcher.java:56)
at javafx.base/com.sun.javafx.event.EventDispatchChainImpl.dispatchEvent(EventDispatchChainImpl.java:114)
at javafx.base/com.sun.javafx.event.EventUtil.fireEventImpl(EventUtil.java:74)
at javafx.base/com.sun.javafx.event.EventUtil.fireEvent(EventUtil.java:54)
at javafx.base/javafx.event.Event.fireEvent(Event.java:198)
at javafx.graphics/javafx.scene.Scene$ClickGenerator.postProcess(Scene.java:3564)
at javafx.graphics/javafx.scene.Scene$ClickGenerator.access$8200(Scene.java:3492)
at javafx.graphics/javafx.scene.Scene$MouseHandler.process(Scene.java:3860)
at javafx.graphics/javafx.scene.Scene$MouseHandler.access$1200(Scene.java:3579)
at javafx.graphics/javafx.scene.Scene.processMouseEvent(Scene.java:1849)
at javafx.graphics/javafx.scene.Scene$ScenePeerListener.mouseEvent(Scene.java:2588)
at javafx.graphics/com.sun.javafx.tk.quantum.GlassViewEventHandler$MouseEventNotification.run(GlassViewEventHandler.java:397)
at javafx.graphics/com.sun.javafx.tk.quantum.GlassViewEventHandler$MouseEventNotification.run(GlassViewEventHandler.java:295)
at java.base/java.security.AccessController.doPrivileged(Native Method)
at javafx.graphics/com.sun.javafx.tk.quantum.GlassViewEventHandler.lambda$handleMouseEvent$2(GlassViewEventHandler.java:434)
at javafx.graphics/com.sun.javafx.tk.quantum.QuantumToolkit.runWithoutRenderLock(QuantumToolkit.java:390)
at javafx.graphics/com.sun.javafx.tk.quantum.GlassViewEventHandler.handleMouseEvent(GlassViewEventHandler.java:433)
at javafx.graphics/com.sun.glass.ui.View.handleMouseEvent(View.java:556)
at javafx.graphics/com.sun.glass.ui.View.notifyMouse(View.java:942)
at javafx.graphics/com.sun.glass.ui.win.WinApplication._runLoop(Native Method)
at javafx.graphics/com.sun.glass.ui.win.WinApplication.lambda$runLoop$3(WinApplication.java:174)
at java.base/java.lang.Thread.run(Thread.java:834)
 

Lello1964

Well-Known Member
Licensed User
I'm using in B4J, i've ASViewPager V1.15 and ASCalendarAdvanced 2.04 , but have this error in :
dataAss.Scroll2Date(dataPrevista)

dataPrevista is defined as long and value is : 1642546800000

no error removing dataAss.Scroll2Date(dataPrevista)
 

Alexander Stolte

Expert
Licensed User
Update
  • 2.05
    • Add StartDate - Set here the date where you want to start - set this before you call CreateCalendar
    • Add FirstDayOfWeek - 1-7 - set this before you call CreateCalendar
StartDate
Use this instead of "Scroll2Date" to set a start date. Then the correct week/month is built directly, instead of first the current date and then the date what we want actually.
B4X:
Dim p As Period
p.Years = 3
ASCalendarAdvanced1.StartDate = DateUtils.AddPeriod(DateTime.Now,p)
ASCalendarAdvanced1.CreateCalendar
FirstDayOfWeek
Don't forget to adjust the WeekNameShort.
  • Friday = 1
  • Thursday = 2
  • Wednesday = 3
  • Tuesday = 4
  • Monday = 5
  • Sunday = 6
  • Saturday = 7
B4X:
ASCalendarAdvanced1.FirstDayOfWeek = 5'Monday
 

wimpie3

Well-Known Member
Licensed User
Thanks for the update, definitely looking forward to the planned features since I need several of them to continue working on my project!
 

Alexander Stolte

Expert
Licensed User
Update
  • 2.06
    • BugFix New Handling of other Months
      • not the whole next month is in a different color, but only the days that are not in the current month
    • Add KeepSelectedDate
      • Default: False
      • WeekView: The same week day is selected if you switch to the next week e.g. Monday 05.07.201-> Monday 12.07.2021
      • MonthView: The same date is selected if you switch to the next month e.g 22.07.2021-> 22.08.2021
    • Add Month2WeekKeepSelectedWeekVisible - If you switch from MonthView to WeekView then the selected day keeps visible
      • Default: True
    • Add ShowOtherMonths - Only in MonthView - set it to False if you dont show the days from the next or previous month
      • Default: True
KeepSelectedDate
KeepSelectedDate.gif

Month2WeekKeepSelectedWeekVisible
Month2WeekKeepSelectedWeekVisible.gif

ShowOtherMonths
If False
IMG_9305.jpg
 

wimpie3

Well-Known Member
Licensed User
Little remark concerning the animation in Month2WeekKeepSelectedWeekVisible

I see that in the example above the 8th of the month is selected. When you go from month view to the week view, the month view is animated out of the way, and only when the first week of the current month is visible, the 8th scrolls into view.

I'm sure you're going to say this is impossible, but in most calendars I've seen, the entire month calendar is moved upwards during the animation from month to week, and the currently selected week gets "stuck" where the week calendar should be.

It's hard to explain, let me find a demo for you. The way it is done now, in two movements (one animating the month and one animating the week to the correct date) is not feeling "right" IMHO.
 

Alexander Stolte

Expert
Licensed User
Look in the Outlook app, there the behavior is exactly the same. And its from Microsoft.

I'm sure you're going to say this is impossible
But the way the complete view is designed, it is not possible to do it any other way, the calendar only becomes small when the user releases the touch gesture and the view is small.

If I would rebuild the view already in the touch movement so that in the 1st line the current period is to be seen, then that looks even more stupid. The user can always go back while he is in the movement.
 

wimpie3

Well-Known Member
Licensed User
This is what I mean. Look at the 12th day. When you go from month to week mode, the week with the 12th day slides up with the rest of the month weeks, but once it has reached the top position, it stays "locked" to form the week calendar and the remaining weeks below scroll out of view. This animation is way smoother when compared to your "first month goes away and than the week slides in". But I'm not sure that is doable in your current setup... it's only a suggestion to make things look smoother. Not criticism!!

calendarView.gif


And here's another example that does the same (day 25 stays in focus when going to week mode):

Collapsible-Calendar-View-Androidc.gif
 
Last edited:
Top