B4A Library [B4X] [XUI] AS Scheduler 📅 - MonthView, DayView (Week), AgendaView and CalendarView [Payware]

scsjc

Well-Known Member
Licensed User
Longtime User
Hi Alexander
I found a litle bug, doesn't show the title in the weekly recurring event. It seems to me that there is a problem in the library.

 

Alexander Stolte

Expert
Licensed User
Longtime User
Another thing, how can you change the color of today's background circle?
In the Designer the
CurrentDateColor
Property. Or per code:
B4X:
ASScheduler_MonthView1.CurrentDateColor = xui.Color_Black
 

Alexander Stolte

Expert
Licensed User
Longtime User
Update
  • 2.06
    • DayView
      • Add B4J only Event HoverOverAppointment
      • BugFixes
    • MonthView
      • Add B4J only Event HoverOverAppointment
      • Add Event CustomDrawDay
      • Add Type ASScheduler_MonthView_CustomDrawDay
    • AgendaView
      • Add B4J only Event HoverOverAppointment
    • General
      • Add B4J only Type ASScheduler_HoverOverInfos
Examples of how to use these events are coming soon.
 
Last edited:

Alexander Stolte

Expert
Licensed User
Longtime User
Update
  • 2.07
    • General
      • HoverOverAppointment have now better results
    • CalendarView
      • BugFixes
      • Add get and set HeaderProperties
      • Add get and set BodyProperties
      • Add get and set MonthNameShort
      • Add get and set WeekNameShort
      • Add get and set SpecialDayProperties
      • Add Event CustomDrawDay
      • Add Type ASScheduler_CalendarView_CustomDrawDay
    • MonthView
      • BugFixes
      • Add get and set HeaderHeight
      • Add Properties to Type ASScheduler_MonthView_DayProperties
        • TextFont
        • TextFontCurrentDay
    • Utils
      • Add AppointmentWidth and AppointmentHeight to type ASScheduler_HoverOverInfos
 

Alexander Stolte

Expert
Licensed User
Longtime User
If someone want to test the lib. before purchasing, then you can do it now in the post #4 with APK's
 

Alexander Stolte

Expert
Licensed User
Longtime User
B4J Add Menu to Appointments on HoverOver
 

Alexander Stolte

Expert
Licensed User
Longtime User
Update
  • 2.08
    • CalendarView
      • Function "RefreshScheduler" is now even better
        • No visual flickering
        • Changes are instant
    • MonthView
      • Function "RefreshScheduler" is now even better
    • DayView
      • Function "RefreshScheduler" is now even better
 
Last edited:

Alexander Stolte

Expert
Licensed User
Longtime User
Update
  • 2.09
    • MonthView
      • Add B4J only Event AppointmentRightClick
    • DayView
      • Add B4J only Event AppointmentRightClick
    • AgendaView
      • Add B4J only Event AppointmentRightClick
New B4J Example Project for the new Event
 

Alexander Stolte

Expert
Licensed User
Longtime User
This update includes a lot of bug fixes and performance improvements.
Update
  • 2.10
    • MonthView
      • BugFixes
      • Minor Improvments
      • Add AppointmentDoubleClick Event
      • Add DayDoubleClick Event
      • Add DayRightClick Event (B4J only)
    • DayView
      • BugFixes
      • Add TimeBlockRightClick Event (B4J only)
      • Add AppointmentDoubleClick Event
      • Add TimeBlockDoubleClick Event
    • AgendaView
      • BugFixes
      • Add AppointmentDoubleClick Event
    • CalendarView
      • BugFixes
    • API
      • Massive Performance improvements on the GetAppointments function
      • Massive Performance improvements on the GetAppointmentCountOnOneDay function
      • Add get SQL - gets the sql object, to make custom queries
Bulk Inserts
If you have to add a lot of appointments at once, because you are importing a backup or synchronizing a lot of data from the online database, it can take quite a long time. Therefore there is now the possibility to make bulk inserts.

B4X:
    ASSchedulerUtils.API.SQL.BeginTransaction
    Try
    
        Dim StartDate As Long = DateTime.Now - (DateTime.TicksPerDay * 10)
    
        For i = 0 To 5800 -1 'Inserts on 5800 days appointments
        
            Dim ThisDate As Long = StartDate + (DateTime.TicksPerDay * i)
        
            For z = 0 To 4 -1 '4 appointments for 5800 day = 19.200 appointments
            
                Dim StartHour As Int = Rnd(7,22)
                Dim EndHour As Int = StartHour + Rnd(1,3)
            
                Dim Appointment1 As ASScheduler_Appointment = ASSchedulerUtils.CreateASScheduler_Appointment(0,"Test " & (z+1),"",xui.Color_ARGB(255,Rnd(0,256),Rnd(0,256),Rnd(0,256)),False,DateUtils.SetDateAndTime(DateTime.GetYear(ThisDate),DateTime.GetMonth(ThisDate),DateTime.GetDayOfMonth(ThisDate),StartHour,0,0),DateUtils.SetDateAndTime(DateTime.GetYear(ThisDate),DateTime.GetMonth(ThisDate),DateTime.GetDayOfMonth(ThisDate),EndHour,0,0))
                ASSchedulerUtils.API.CreateAppointment(Appointment1)
            
            Next
        
        Next
    
        Dim Appointment1 As ASScheduler_Appointment = ASSchedulerUtils.CreateASScheduler_AppointmentRecurring(0,"Recurring","",xui.Color_ARGB(255,Rnd(0,256),Rnd(0,256),Rnd(0,256)),False,DateUtils.SetDateAndTime(2022,8,17,14,0,0),DateUtils.SetDateAndTime(2022,8,17,16,0,0),True,ASSchedulerUtils.Recurring_Day,7)
        ASSchedulerUtils.API.CreateAppointment(Appointment1)'insert appointment
    
        ASSchedulerUtils.API.SQL.TransactionSuccessful
    Catch
        Log(LastException.Message)
        #If B4I or B4J
        ASSchedulerUtils.API.SQL.RollBack 'no changes will be made
        #End If
    End Try
    #If B4A
    ASSchedulerUtils.API.SQL.EndTransaction
    #End If
 

asales

Expert
Licensed User
Longtime User
I run the AS Scheduler MonthView Example and get this issues:

1 - How to change the first day to Sunday? I tried in designer, but don't work.

2 - The calendar is not show correctly.
Sep 1 (Thursday) is show as Sunday



I get the similar issue with the AS Scheduler CalendarView Example.
21/August/2022 (Sunday) is show as Tuesday.

This is happen when I start the example.
If I click in the arrow to move to September, I get an empty calendar (edit: after some seconds, the September calendar is show).
When I back, I get this screen:
 

Attachments

  • 1661049320055.png
    14.1 KB · Views: 150
Last edited:

Alexander Stolte

Expert
Licensed User
Longtime User
1 - How to change the first day to Sunday? I tried in designer, but don't work.
Change the first day of week in the designer to sunday and change the order of the names.
B4X:
ASScheduler_MonthView1.WeekNameShort = ASSchedulerUtils.CreateASScheduler_WeekNameShort("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday")
ASScheduler_MonthView1.RefreshScheduler
 

asales

Expert
Licensed User
Longtime User
Change the first day of week in the designer to sunday and change the order of the names.
No effect.
Even change the names, the calendar is not updated (not change the order and the name still in english).
And the 1 September is show in the incorrect day (Sunday).
B4X:
ASScheduler_MonthView1.WeekNameShort = ASSchedulerUtils.CreateASScheduler_WeekNameShort("Domingo","Segunda","Terça","Quarta","Quinta","Sexta","Sábado")
ASScheduler_MonthView1.RefreshScheduler
 
Cookies are required to use this site. You must accept them to continue using the site. Learn more…