How to modify mouse wheel scroll value in RadScheduler's MonthView

Environment

Product Version	Product	Author
2023.1.117	RadScheduler for WinForms	Dinko Krastev

Description

By design, when using the mouse wheel the Month View in RadScheduler weeks section is scrolled by 1 week. There could be a requirement to change this value by more than 1 week.

Solution

By default, the SchedulerInputBehavior is responsible for processing the keyboard and mouse input. In this case, we can create a custom input behavior and override the HandleMouseWheel() method. Inside the method, you can offset the view by 2 weeks instead of 1.

• C#
• VB.NET

public class MySchedulerInputBehavior : SchedulerInputBehavior
{
    public MySchedulerInputBehavior(RadScheduler scheduler)
        : base(scheduler)
    {
    }
    public override bool HandleMouseWheel(MouseEventArgs args)
    {
        // return base.HandleMouseWheel(args);
        if (args.Delta > 0)
        {
            //this.Scheduler.ViewElement.Scroll(true);
            SchedulerMonthView monthView = this.Scheduler.GetMonthView();
            SchedulerMonthView offsetView = (SchedulerMonthView)monthView.OffsetView(-2);
            monthView.StartDate = offsetView.StartDate;
        }
        else
        {
            //  this.Scheduler.ViewElement.Scroll(false);
            SchedulerMonthView monthView = this.Scheduler.GetMonthView();
            SchedulerMonthView offsetView = (SchedulerMonthView)monthView.OffsetView(2);
            monthView.StartDate = offsetView.StartDate;
        }
        return false;
    }
}

Public Class MySchedulerInputBehavior
    Inherits SchedulerInputBehavior

    Public Sub New(ByVal scheduler As RadScheduler)
        MyBase.New(scheduler)
    End Sub

    Public Overrides Function HandleMouseWheel(ByVal args As MouseEventArgs) As Boolean
        If args.Delta > 0 Then
            Dim monthView As SchedulerMonthView = Me.Scheduler.GetMonthView()
            Dim offsetView As SchedulerMonthView = CType(monthView.OffsetView(-2), SchedulerMonthView)
            monthView.StartDate = offsetView.StartDate
        Else
            Dim monthView As SchedulerMonthView = Me.Scheduler.GetMonthView()
            Dim offsetView As SchedulerMonthView = CType(monthView.OffsetView(2), SchedulerMonthView)
            monthView.StartDate = offsetView.StartDate
        End If

        Return False
    End Function
End Class