Change Header background for a single day |
Post Reply |
Author | |
mri0202
Newbie Joined: 07 October 2009 Status: Offline Points: 6 |
Post Options
Thanks(0)
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
Admin Group Joined: 14 February 2004 Status: Offline Points: 18057 |
Post Options
Thanks(0)
|
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 |
|
Post Reply | |
Tweet
|
Forum Jump | Forum Permissions You cannot post new topics in this forum You cannot reply to topics in this forum You cannot delete your posts in this forum You cannot edit your posts in this forum You cannot create polls in this forum You cannot vote in polls in this forum |