Completed
Last Updated: 07 Jun 2017 10:47 by ADMIN
ADMIN
Dess | Tech Support Engineer, Sr.
Created on: 18 Aug 2016 10:44
Category: Scheduler/Reminder
Type: Bug Report
0
IMPROVE. RadScheduler - scrolling performance when a big range is set to SchedulerTimelineView and the time scale is one minute
To reproduce:
Sub New() 
    InitializeComponent()

    Dim colors() As Color = {Color.LightBlue, Color.LightGreen, Color.LightYellow, Color.Red, _
        Color.Orange, Color.Pink, Color.Purple, Color.Peru, Color.PowderBlue}
    Dim names() As String = {"Alan Smith", "Anne Dodsworth", "Boyan Mastoni", "Richard Duncan", "Maria Shnaider"}
    For i As Integer = 0 To names.Length - 1
        Dim resource As New Telerik.WinControls.UI.Resource()
        resource.Id = New EventId(i)
        resource.Name = names(i)
        resource.Color = colors(i)
        Me.RadScheduler1.Resources.Add(resource)
    Next i
    Me.RadScheduler1.GroupType = GroupType.Resource
    Me.RadScheduler1.ActiveView.ResourcesPerView = Me.RadScheduler1.Resources.Count

    Me.RadScheduler1.ActiveViewType = SchedulerViewType.Timeline

    Dim rand As New Random
    For index = 1 To 20
        Dim a As New Appointment(DateTime.Now.AddDays(index), TimeSpan.FromHours(2), "A" & index)
        a.ResourceId = Me.RadScheduler1.Resources(rand.Next(0, Me.RadScheduler1.Resources.Count)).Id
        Me.RadScheduler1.Appointments.Add(a) 
    Next
    
    Dim timelineView As SchedulerTimelineView = Me.RadScheduler1.GetTimelineView()
     
    Dim oneMinute As New OneMinuteTimescale()
    timelineView.SchedulerTimescales.Add(oneMinute)

    oneMinute.Visible = True 
End Sub

Public Class OneMinuteTimescale
Inherits MinutesTimescale
    Public Overrides ReadOnly Property Name As String
        Get
            Return "OneMinuteTimescale"
        End Get
    End Property
    Public Overrides ReadOnly Property ScalingFactor() As Integer
        Get
            Return 1
        End Get
    End Property
End Class

Workaround: decrease the range: 

 timelineView.RangeStartDate = DateTime.Today
 timelineView.RangeEndDate = timelineView.RangeStartDate.AddDays(1)
Attached Files:
0 comments