I am populating a Rad Scheduler using a WCF services, some of the items cannot be deleted so I have set AllowDelete to be false this does not seem to work and when I hover over the appointment the delete image still appears.
I have also tried to set some other information based on whether the appointment is a parent or child and this does not seem to work either, see my code below. The subject of the appointment changes to be either "Parent: ...." or "Child: ...." so the IF statement is working correctly. But the other changes I am trying to make do not seem to work correctly.
Am I adding the appointments incorrectly/is there another way to do this that will work.
Public Overloads Overrides Function GetAppointments(ByVal Owner As RadScheduler) As IEnumerable(Of Appointment)
Dim AppointmentsList As New List(Of Appointment)
'get a list of appointments to add and put them in the list above
Do While Rs.ReadNext
Dim AppointmentItem As New Appointment
Slot.Fill(Rs.ReadRow)
AppointmentItem.Start = Slot.Start_DT.Value
AppointmentItem.End = Slot.End_DT.Value
AppointmentItem.AllowEdit = False
AppointmentItem.ID = Slot.GUI.Value
If Slot.ParentGUI.IsNull Then
AppointmentItem.Subject = "Parent: " & Slot.Name.Value
AppointmentItem.AllowDelete = False
AppointmentItem.ContextMenuID = "SchedulerAppointmentContextMenuDelete"
Else
AppointmentItem.Subject = "Child: " & Slot.Name.Value
AppointmentItem.RecurrenceParentID = Slot.ParentGUI.Value
AppointmentItem.AllowDelete = False
AppointmentItem.BackColor = System.Drawing.Color.Black
AppointmentItem.ForeColor = Drawing.Color.Pink
AppointmentItem.ContextMenuID = "SchedulerAppointmentContextMenuNothing"
' have tried this too, AppointmentItem.ContextMenuID = Nothing
End If
AppointmentsList.Add(AppointmentItem)
Loop
Rs.Close()
Return AppointmentsList
End Function