Header.basecolor in monthview

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

How can I color some header in monthview?
Dayview and weekview I solved with the first part.
When I make same same with the Monthview all the Monthheader will get red.
Problebly the wrong event?

If eObjType = CalendarBeforeDrawThemeObject.xtpCalendarBeforeDraw_DayViewDay Then
   If isSperrtag(DrawParams.Date) Then
      pTheme2007.DayView.Day.Header.BaseColor = vbRed
   End If
ElseIf eObjType = CalendarBeforeDrawThemeObject.xtpCalendarBeforeDraw_MonthViewDay Then
   If isSperrtag(DrawParams.Date) Then
      pTheme2007.MonthView.Day.Header.BaseColor = vbRed
   End If
End If

Thanks

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
guru4 Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 02 October 2009 Status: Offline Points: 6	Post Options Post Reply Quote guru4 Report Post Thanks(0) Quote Reply Topic: Header.basecolor in monthview Posted: 23 October 2009 at 4:42am
	How can I color some header in monthview? Dayview and weekview I solved with the first part. When I make same same with the Monthview all the Monthheader will get red. Problebly the wrong event? If eObjType = CalendarBeforeDrawThemeObject.xtpCalendarBeforeDraw_DayViewDay Then If isSperrtag(DrawParams.Date) Then pTheme2007.DayView.Day.Header.BaseColor = vbRed End If ElseIf eObjType = CalendarBeforeDrawThemeObject.xtpCalendarBeforeDraw_MonthViewDay Then If isSperrtag(DrawParams.Date) Then pTheme2007.MonthView.Day.Header.BaseColor = vbRed End If End If Thanks

SuperMario Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 14 February 2004 Status: Offline Points: 18057	Post Options Post Reply Quote SuperMario Report Post Thanks(0) Quote Reply Posted: 13 November 2009 at 11:12am
	Did you try xtpCalendarBeforeDraw_MonthViewWeekDayHeader or xtpCalendarBeforeDraw_MonthViewWeekHeader?

guru4 Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 02 October 2009 Status: Offline Points: 6	Post Options Post Reply Quote guru4 Report Post Thanks(0) Quote Reply Posted: 25 November 2009 at 5:24am
	No that doesn't solves the problem. I know now the events sequenc of your control: 1. Weekheaders 1-4 2. WeekDay 1-7 3. Day: FROM 29.11.2009 - 26.10.2009 DESC evereytime when I move the cursor!!!!!! My Problem is: I want to color the header for example christmas on 25.12.2009. In Weekview no problem. Thanks for help!

guru4 Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 02 October 2009 Status: Offline Points: 6	Post Options Post Reply Quote guru4 Report Post Thanks(0) Quote Reply Posted: 16 December 2009 at 4:33am
	I have solved the problem by not color the header, but the background of the day. ' Bei Tages- oder Wochenansicht ' *************************** If eObjType = CalendarBeforeDrawThemeObject.xtpCalendarBeforeDraw_DayViewDay Then If isSperrtag(DrawParams.Date) Then pTheme2007.DayView.Day.Header.BaseColor = vbRed End If ' Bei Monatsansicht ' *************** ElseIf eObjType = CalendarBeforeDrawThemeObject.xtpCalendarBeforeDraw_MonthViewDay Then If isSperrtag(DrawParams.Date) Then pTheme2007.MonthView.Day.BackgroundLightColor = 13095160 pTheme2007.MonthView.Day.BackgroundSelectedColor = vbRed End If End If