Suggestion: Add the ability to display holidays

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   I want to be able to display holidays on a calendar with multiple schedules.  The only way I can do it now is to add all-day events to at least one of the schedules.  This is okay but it would be cleaner if I could just add some text to the calendar caption bar or modify the Date Label displayed.  I can't find a way to do either of these in the current implementation.

How have other people handled holidays?

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
PeterG Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 24 February 2010 Status: Offline Points: 8	Post Options Post Reply Quote PeterG Report Post Thanks(0) Quote Reply Topic: Suggestion: Add the ability to display holidays Posted: 28 May 2011 at 5:01pm
	I want to be able to display holidays on a calendar with multiple schedules. The only way I can do it now is to add all-day events to at least one of the schedules. This is okay but it would be cleaner if I could just add some text to the calendar caption bar or modify the Date Label displayed. I can't find a way to do either of these in the current implementation. How have other people handled holidays?
	Product: ActiveX PropertyGrid Version 15.0.2 Product: ActiveX Calendar Version 15.0.2 Platform: Windows Vista Business (32bit) Language: Clarion 7.3

Fabian Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 22 November 2004 Location: Switzerland Status: Offline Points: 336	Post Options Post Reply Quote Fabian Report Post Thanks(0) Quote Reply Posted: 01 June 2011 at 2:02am
	Hi PeterG, Probably helps you this snippet (for V15.x) Private Sub CalendarControl1_GetItemText(ByVal ItemParams As XtremeCalendarControl.CalendarGetItemTextParams) Dim h As Holidays Dim CacheIdx As Long Dim Ev As CalendarEvent If ItemParams.Item = xtpCalendarItemText_DayViewDayHeaderLeft Then h = WhatHoliday(ItemParams.ViewDay.Date) If h <> Holidays.None Then ItemParams.Text = Format$(ItemParams.ViewDay.Date, "ddd, dd.mm.yy") + " (" + GetHolidayName(h) + ")" Else ItemParams.Text = Format$(ItemParams.ViewDay.Date, "ddd, dd.mm.yy") End If End If If ItemParams.Item = xtpCalendarItemText_DayViewDayHeaderCenter Or ItemParams.Item = xtpCalendarItemText_DayViewDayHeaderRight Then ItemParams.Text = "" End If End Sub
	Product: Xtreme SuitePro (ActiveX) version 16.2.3 Platform: Windows 7 (32bit) Language: Visual Basic 6.0 / SP6