[B4X] [XUI] [Old] AS CalendarAdvanced 📅 - OneRow/FiveRow Calendar - Expand and Collapse [Payware]

• 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

ASCalendarAdvanced1.HeaderColor = xui.Color_Blue
ASCalendarAdvanced1.BodyColor = xui.Color_Blue
ASCalendarAdvanced1.BottomColor = xui.Color_Blue
ASCalendarAdvanced1.OtherMonthBackgroundColor = xui.Color_Red

Alexander Stolte said:

In the next few weeks the following things will be done:

• Performance improvements
  • a slimmed down variant of lazy loading, since many pages lead to considerable performance losses
• BugFixing if any are available
• You can set a range of months (start and end)
• All important functions are moved to a separate module
• The normal ASCalendar View is published, which works without ViewPager
  • Here's what it makes possible:
  • View attachment 117182
  • You can place the normal ASCalendar view in a list as many times as you want
  • All features and functions from the advanced version are available in the normal version thanks to its own module and I only need to extend a codebase

Click to expand...

imbault said:

How to have Month name and year on the top of the calendar, is this a property?

Click to expand...

Private Sub ASCalendarAdvanced1_VisibleRangeChange(StartDate As Long,EndDate As Long)

    Dim p As Period
    p.Days = 8
   
    xbblbl_current_month.Text = $"[b]${DateUtils.GetMonthName(DateUtils.AddPeriod(StartDate,p))} [color=#2D8879]${DateTime.GetYear(DateUtils.AddPeriod(StartDate,p))}[/color][/b]"$
End Sub

Alexander Stolte said:

no, it's just a label above the view.
"xbblbl_current_month" is this label.
In this case it is a BBCodeLabel.

B4X:

Private Sub ASCalendarAdvanced1_VisibleRangeChange(StartDate As Long,EndDate As Long)

    Dim p As Period
    p.Days = 8
 
    xbblbl_current_month.Text = $"[b]${DateUtils.GetMonthName(DateUtils.AddPeriod(StartDate,p))} [color=#2D8879]${DateTime.GetYear(DateUtils.AddPeriod(StartDate,p))}[/color][/b]"$
End Sub

Click to expand...

imbault said:

Can you please send me code project of

Click to expand...

Alexander Stolte said:

no, it's just a label above the view.
"xbblbl_current_month" is this label.
In this case it is a BBCodeLabel.

B4X:

Private Sub ASCalendarAdvanced1_VisibleRangeChange(StartDate As Long,EndDate As Long)

Dim p As Period
p.Days = 8

xbblbl_current_month.Text = $"[b]${DateUtils.GetMonthName(DateUtils.AddPeriod(StartDate,p))} [color=#2D8879]${DateTime.GetYear(DateUtils.AddPeriod(StartDate,p))}[/color][/b]"$
End Sub

Click to expand...

Alexander Stolte said:

No, because this is a image from the internet as inspiration.

The code here is from a project of mine.

Click to expand...

imbault said:

but I don't find the event VisibleRangeChange of ASCalendarAdvanced in order to put your code...

Click to expand...

Alexander Stolte said:

No, because this is a image from the internet as inspiration.

The code here is from a project of mine.

Click to expand...

    ASCalendarAdvanced1.ExtraInfosTextProperties.TextFont = xui.CreateDefaultFont(8)
  
    ASCalendarAdvanced1.WeekNameShort = ASCalendarAdvanced1.CreateASCalendarAdvanced_WeekNameShort("Lun","Mar","Mer","Jeu","Ven","Sam","Dim")
    ASCalendarAdvanced1.MonthNameShort = ASCalendarAdvanced1.CreateASCalendarAdvanced_MonthNameShort("Jan","Fév","Mar","Avr","Mai","Juin","Juil","Août","Sept","Oct","Nov","Déc")


    ASCalendarAdvanced1.ShowOtherMonths =False
    ASCalendarAdvanced1.UpdateBody
    ASCalendarAdvanced1.UpdateHeader

    ASCalendarAdvanced1.ShowFirstWeekOfMonthInFirstRow = True

  
    Dim p_1 As Period : p_1.Months = -1
    Dim p_2 As Period : p_2.Months = 1
    ASCalendarAdvanced1.SetLimitRange(DateUtils.AddPeriod(DateTime.Now,p_1),DateUtils.AddPeriod(DateTime.Now,p_2))
  
  
    ASCalendarAdvanced1.CreateCalendar

Private Sub ASCalendarAdvanced1_VisibleRangeChange(StartDate As Long,EndDate As Long)

    Log(" ASCalendarAdvanced1_VisibleRangeChange Event")
    Dim p As Period
    p.Days = 8
 
    xbblbl_current_month.Text = $"[b]${DateUtils.GetMonthName(DateUtils.AddPeriod(StartDate,p))} [color=#2D8879]${DateTime.GetYear(DateUtils.AddPeriod(StartDate,p))}[/color][/b]"$
End Sub

Alexander Stolte said:

Check the Version of ASViewPager.

Click to expand...

imbault said:

I removed ASViewPager lib as you said in #94 the calendar can work without it

Click to expand...

Alexander Stolte said:

#94 is not a change log, it's a sneak preview for the future. ASCalendarAdvanced can't work without ASViewPager.

Click to expand...

Alex Oscar Hedman said:

CalendarAdvanced

Click to expand...

• 2.13
  • BugFix - The event "VisibleRangeChange" was not triggered when creating the calendar

Wien.Mart said:

Hello, may I know if the calendar can handle scheduling for two or more people and have a recurring task on the schedule? Thanks in advance.

Click to expand...

• 2.14
  • Add AppointmentType1BottomAppointmentTyp2Top - If false then AppointmentType1 is on Top and Type2 is on the bottom

focus330 said:

Only a question: Is it possible to have the text of the 'Appointmentype2' under the day and not over ? I trued something with AppointmentType2_Itemproprieties without success.

Click to expand...