Change Header background for a single day

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

Hi,

is it possible to change the header backcolor for a single day, when in 
month-, week- or dayview?

I want to change the background color, when it's a holiday.

My example changes the background color of all shown days, not for a 
single day

What's wrong?

Example

            If lFeiertagKz = False Then

                lErgebnis = ftFeierTagEmitteln(Params.Date)

                Debug.Print Params.Date

                If lErgebnis <> 0 Then

                    Select Case eObjType

                        Case xtpCalendarBeforeDraw_DayViewDay

                            pTheme2007.DayView.Day.Header.BaseColor = 
vbRed

                        Case xtpCalendarBeforeDraw_MonthViewDay

                            pTheme2007.MonthView.Day.Header.BaseColor = 
vbRed

        '                    
pTheme2007.MonthView.Day.BackgroundLightColor = 13095160

        '                    
pTheme2007.MonthView.Day.BackgroundSelectedColor = vbRed

                        Case xtpCalendarBeforeDraw_WeekViewDay

                           pTheme2007.WeekView.Day.Header.BaseColor = 
vbRed

                    End Select

                End If

             End If

Thanks in advance

Manfred

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
mri0202 Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 07 October 2009 Status: Offline Points: 6	Post Options Post Reply Quote mri0202 Report Post Thanks(0) Quote Reply Topic: Change Header background for a single day Posted: 31 May 2011 at 4:01am
	Hi, is it possible to change the header backcolor for a single day, when in month-, week- or dayview? I want to change the background color, when it's a holiday. My example changes the background color of all shown days, not for a single day What's wrong? Example If lFeiertagKz = False Then lErgebnis = ftFeierTagEmitteln(Params.Date) Debug.Print Params.Date If lErgebnis <> 0 Then Select Case eObjType Case xtpCalendarBeforeDraw_DayViewDay pTheme2007.DayView.Day.Header.BaseColor = vbRed Case xtpCalendarBeforeDraw_MonthViewDay pTheme2007.MonthView.Day.Header.BaseColor = vbRed ' pTheme2007.MonthView.Day.BackgroundLightColor = 13095160 ' pTheme2007.MonthView.Day.BackgroundSelectedColor = vbRed Case xtpCalendarBeforeDraw_WeekViewDay pTheme2007.WeekView.Day.Header.BaseColor = vbRed End Select End If End If Thanks in advance Manfred

SuperMario Members Profile Send Private Message Find Members Posts Add to Buddy List Admin Group Joined: 14 February 2004 Status: Offline Points: 18057	Post Options Post Reply Quote SuperMario Report Post Thanks(0) Quote Reply Posted: 06 July 2011 at 2:06pm
	You need BeforeDrawThemeObject: CalendarControl.BeforeDrawThemeObjectFlags = -1 Private Sub CalendarControl_BeforeDrawThemeObject(ByVal eObjType As XtremeCalendarControl.CalendarBeforeDrawThemeObject, ByVal DrawParams As Variant) Dim pTheme2007 As CalendarThemeOffice2007 Set pTheme2007 = CalendarControl.Theme If eObjType = xtpCalendarBeforeDraw_MonthViewDay Then pTheme2007.MonthView.Day.BackgroundDarkColor = vbWhite End If End Sub