Mitigate quick keypresses causing tab animation to stop

If an animation is in progress, we simply ignore keypresses that would otherwise cause a new tab navigation.

Author: nicolaihenriksen

src/MaterialDesignThemes.Wpf/Behaviors/Internal/TabControlHeaderScrollBehavior.cs

@@ -1,4 +1,4 @@
-using System.Diagnostics;
+using System.Diagnostics;
 using System.Windows.Media.Animation;
 using Microsoft.Xaml.Behaviors;
 
@@ -41,11 +41,13 @@ private static void OnTabControlChanged(DependencyObject d, DependencyPropertyCh
         {
             oldTabControl.SelectionChanged -= behavior.OnTabChanged;
             oldTabControl.SizeChanged -= behavior.OnTabControlSizeChanged;
+            oldTabControl.PreviewKeyDown -= behavior.OnTabControlPreviewKeyDown;
         }
         if (e.NewValue is TabControl newTabControl)
         {
             newTabControl.SelectionChanged += behavior.OnTabChanged;
             newTabControl.SizeChanged += behavior.OnTabControlSizeChanged;
+            newTabControl.PreviewKeyDown += behavior.OnTabControlPreviewKeyDown;
         }
     }
 
@@ -110,6 +112,15 @@ private void AddPaddingToScrollableContentIfWiderThanViewPort()
         }
     }
 
+    private void OnTabControlPreviewKeyDown(object sender, KeyEventArgs e)
+    {
+        if (!_isAnimatingScroll)
+            return;
+
+        if (e.Key is Key.Left or Key.Right or Key.Home or Key.End or Key.PageUp or Key.PageDown)
+            e.Handled = true;
+    }
+
     protected override void OnAttached()
     {
         base.OnAttached();