Calendar header

 

The banner/header (not sure if this is the 'official' name) at the top of the day's schedule only reads the day of the week and not day/date etc.

 

How can I change this?

 

 

 

I am viewing as a dayView (one single day) so I don't think space is an issue. I have a screen shot available. ....

 

 

 

 

 

Private Sub CalendarControl_GetItemText(ByVal Params As XtremeCalendarControl.CalendarGetItemTextParams)
    If Params.Item = xtpCalendarItemText_EventSubject Then
        Params.Text = "*Custom subject* " & Params.Text
   
    ElseIf Params.Item = xtpCalendarItemText_EventLocation Then
        Params.Text = "ScheduleID = " & Params.ViewEvent.Event.ScheduleID
       
    ElseIf Params.Item = xtpCalendarItemText_EventBody Then
        Params.Text = "custom BODY text."
       
    ElseIf Params.Item = xtpCalendarItemText_DayViewDayHeader Or _
           Params.Item = xtpCalendarItemText_WeekViewDayHeader Or _
           Params.Item = xtpCalendarItemText_MonthViewDayHeader _
        Then
        Params.Text = "Date:" & Params.ViewDay.Date
   
    ElseIf Params.Item = xtpCalendarItemText_DayViewDayHeaderLeft Or _
            Params.Item = xtpCalendarItemText_WeekViewDayHeaderLeft Or _
            Params.Item = xtpCalendarItemText_MonthViewDayHeaderLeft _
        Then
        'Params.Text = Day(Params.ViewDay.Date)
        Params.Text = Day(Params.ViewDay.Date)
   
    ElseIf Params.Item = xtpCalendarItemText_DayViewDayHeaderCenter Or _
           Params.Item = xtpCalendarItemText_WeekViewDayHeaderCenter Or _
           Params.Item = xtpCalendarItemText_MonthViewDayHeaderCenter _
        Then
        Params.Text = WeekdayName(Weekday(Params.ViewDay.Date), , vbSunday)
   
    ElseIf Params.Item = xtpCalendarItemText_DayViewDayHeaderRight Or _
           Params.Item = xtpCalendarItemText_WeekViewDayHeaderRight Or _
           Params.Item = xtpCalendarItemText_MonthViewDayHeaderRight _
        Then
        Params.Text = Year(Params.ViewDay.Date)
       
    ElseIf Params.Item = xtpCalendarItemText_MonthViewWeekDayHeader Then
        Params.Text = Params.Text & " - " & Params.Weekday
       
    ElseIf Params.Item = xtpCalendarItemText_EventToolTipText Then
        Params.Text = "(" & Params.ViewEvent.Event.Location & ") " & _
                      Params.ViewEvent.Event.Subject & _
                      " [" & Params.ViewEvent.Event.Id & "]"
   
       
    End If
   
End Sub

I actually didn't alter that code at all, it came straight 'out of the box'

 

 

Can you tell me then, does this feature work on the 2007 theme?

 

If so, then I am missing something and don't need to create custom code...

 

the header I am talking about is here: at the top of the calendarcontrol:

 

 

Got it! Thanks for your patience!!