http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Thu, 28 May 2026 08:15:36 +0000 Wed, 06 Jul 2011 14:06:30 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=18474 http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ http://forum.codejock.com/forum_posts.asp?TID=18474&PID=65144&title=change-header-background-for-a-single-day#65144 Author: SuperMario
Subject: 18474
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
]]> Wed, 06 Jul 2011 14:06:30 +0000 http://forum.codejock.com/forum_posts.asp?TID=18474&PID=65144&title=change-header-background-for-a-single-day#65144 http://forum.codejock.com/forum_posts.asp?TID=18474&PID=64667&title=change-header-background-for-a-single-day#64667 Author: mri0202
Subject: 18474
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
]]> Tue, 31 May 2011 04:01:36 +0000 http://forum.codejock.com/forum_posts.asp?TID=18474&PID=64667&title=change-header-background-for-a-single-day#64667