Hello,
I am using RADScheduler Q3-2012 and find the text color of the resource headers hard to read on the dark background when grouped. I found the code to change the color of the header on timeline view in this forum(thanks) and figured out how to change day, week and month but I would also like to change the header that shows the name of the weekdays in monthview since that is also too dark to read when grouped.
Any help in how to address these colors would be greatly appreciated.
Here is what I have so far:
I am using RADScheduler Q3-2012 and find the text color of the resource headers hard to read on the dark background when grouped. I found the code to change the color of the header on timeline view in this forum(thanks) and figured out how to change day, week and month but I would also like to change the header that shows the name of the weekdays in monthview since that is also too dark to read when grouped.
Any help in how to address these colors would be greatly appreciated.
Here is what I have so far:
Private
Sub
adjustGroupHeader()
If
RadScheduler1.GroupType = GroupType.Resource
And
RadScheduler1.ActiveViewType = SchedulerViewType.Timeline
Then
Dim
element
As
TimelineGroupingByResourcesElement = TryCast(
Me
.RadScheduler1.SchedulerElement.ViewElement, TimelineGroupingByResourcesElement)
element.Font =
New
Font(
"Arial"
, 22)
element.ForeColor = Color.Yellow
End
If
If
RadScheduler1.GroupType = GroupType.Resource
And
RadScheduler1.ActiveViewType = SchedulerViewType.Day
Then
Dim
element
As
SchedulerDayViewGroupedByResourceElement = TryCast(
Me
.RadScheduler1.SchedulerElement.ViewElement, SchedulerDayViewGroupedByResourceElement)
element.Font =
New
Font(
"Arial"
, 16)
element.ForeColor = Color.Yellow
End
If
If
RadScheduler1.GroupType = GroupType.Resource
And
RadScheduler1.ActiveViewType = SchedulerViewType.Week
Then
Dim
element
As
SchedulerDayViewGroupedByResourceElement = TryCast(
Me
.RadScheduler1.SchedulerElement.ViewElement, SchedulerDayViewGroupedByResourceElement)
element.Font =
New
Font(
"Arial"
, 16)
element.ForeColor = Color.Yellow
End
If
If
RadScheduler1.GroupType = GroupType.Resource
And
RadScheduler1.ActiveViewType = SchedulerViewType.Month
Then
Dim
element
As
SchedulerMonthViewGroupedByResourceElement = TryCast(
Me
.RadScheduler1.SchedulerElement.ViewElement, SchedulerMonthViewGroupedByResourceElement)
element.Font =
New
Font(
"Arial"
, 16)
element.ForeColor = Color.Yellow
'code needed to change forecolor/backcolor of weekday names
End
If
End
Sub