Q3 2009 Appointment Backcolor

[Mark]

Hi,
I have just upgraded my code to Q3 2009 from Q2 2008.
Within my scheduler i hade made appointments different colours depending on the resource.
Here is my code...

Protected Sub RadScheduler1_AppointmentCreated(ByVal sender As Object, ByVal e As Telerik.Web.UI.AppointmentCreatedEventArgs) Handles RadScheduler1.AppointmentCreated
        If Not e.Appointment.Attributes("ResourceBackColor") = Nothing Then
            Dim rsWrap As WebControl = e.Container.Parent.Parent.Parent.Parent.Parent
            Dim rsApt As WebControl = e.Container.Parent.Parent.Parent.Parent
            Dim rsAptWrap As WebControl = e.Container.Parent.Parent.Parent
            Dim rsAptInner As WebControl = e.Container.Parent.Parent
            rsAptInner.Style("background-color") = e.Appointment.Attributes("ResourceBackColor")
        Else
            Dim rsWrap As WebControl = e.Container.Parent.Parent.Parent.Parent.Parent
            Dim rsApt As WebControl = e.Container.Parent.Parent.Parent.Parent
            Dim rsAptWrap As WebControl = e.Container.Parent.Parent.Parent
            Dim rsAptInner As WebControl = e.Container.Parent.Parent
            rsAptInner.Style("background-color") = "Khaki" 'STD COLOUR
        End If
End Sub

This does not seem to change the backcolor anymore.
Any ideas please ?

Many Thanks
Mark

[Shinu]

Hello,

Have you tried the following approach in order to set the back-color for appointment?

VB:

Protected Sub RadScheduler1_AppointmentCreated(ByVal sender As Object, ByVal e As Telerik.Web.UI.AppointmentCreatedEventArgs)
    If condition Then ' Check for the condition
        e.Appointment.BackColor = System.Drawing.Color.Red
    End If
End Sub

Also checkout the documentation to know more about this: Setting styles for appointments

-Shinu.

[Mark]

Hi,
thanks that worked.
Sometimes the answer is soooo obvious you cant see it !!!

Mark