当WPF中的文本太长时使用滑块的TextBlock

<Grid>
    <Slider x:Name="slider" Minimum="0" Maximum="100" Value="50" />
    <TextBlock x:Name="textBlock" Text="Lorem ipsum dolor sit amet, consectetur adipiscing elit. Sed euismod, urna eu ultrices commodo, nunc justo tristique elit, nec lacinia nisl urna ac nunc." TextWrapping="Wrap" />
</Grid>

slider.ValueChanged += Slider_ValueChanged;

private void Slider_ValueChanged(object sender, RoutedPropertyChangedEventArgs<double> e)
{
    double value = e.NewValue;
    double textBlockWidth = textBlock.ActualWidth;
    double sliderWidth = slider.ActualWidth;

    if (textBlockWidth > sliderWidth)
    {
        double offset = (textBlockWidth - sliderWidth) * (value / 100);
        textBlock.Margin = new Thickness(-offset, 0, 0, 0);
    }
    else
    {
        textBlock.Margin = new Thickness(0);
    }
}