Hey, thanks to @KZero for his good zPager class, i was able to extract a few things from it to make this cross platform view. I spend a lot of time in creating views, some views i need by my self, but some views not and to create a high quality view cost a lot of time. If you want to support...
Maybe there is a bug, in the 7-day display if, in the example, I press the button "back to the current date", the days of the week are desynchronized (example today is 04/14/2021 Wednesday if I press the button back to 14 but puts it on Monday)
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
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
Example:
Mark all sundays as a special day
B4X:
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
Special days can have different colors and you can give each one an identifier so you know what kind of special day it is on that day.
Hi Alexander. You have my donation Transaction: 2BV44284158154301
Good Job !!! ? ?
Can you send this address devilapp.eu@gmail.com
Thank you again for your effort
small sneak preview, to the new update, which comes next week.
It still needs a bit of work to make everything work together and look good, but the 1st steps are done.
small sneak preview, to the new update, which comes next week. View attachment 111877
It still needs a bit of work to make everything work together and look good, but the 1st steps are done.
Theoretically, the version is usable so far, but currently overlaps are not yet considered in the new appointment type.
Practically, I'm implementing the library in a project of mine right now and I'm finding new bugs that need to be fixed before I can update.
I am confident to be able to update soon, currently I can only work on my projects for a few hours in the evening.
That depends on a few things.
it is difficult to explain.
Example:
View Height = 50dip
Expandable = False (no drag panel on bottom)
Body Item Height in Percentage (Designer Property) = 50 (if you set it to 60% then the header height will be smaller and the items height will be bigger)
50% of the view height = 25dip for the header
Body Items has now the other 50% = 25dip
If the view is expanded, then the total height of the view is:
50dip + 25dip*4 (*4 because we have show 4 more weeks) = 150dip
if you have Expandable = True, then 15dip (BottomPanel Height in default) will be subtracted from the item height, you have to take this into account when you set the size of the view in the designer.
I hope I have been able to explain it to some extent.
In the next update a function will be added, with which you can read the expanded view height, without that the view must be expanded.