Text Marquee from right to left - wpf

Question

I am using the following code to move the text in TextBlock from right to left:-
ThicknessAnimation ThickAnimation = new ThicknessAnimation();
ThickAnimation.From = new Thickness(0, 0, 0, 0);
ThickAnimation.To = new Thickness(-TextGraphicalWidth, 0, 0, 0);
ThickAnimation.RepeatBehavior = RepeatBehavior.Forever;
ThickAnimation.Duration = new Duration(TimeSpan.FromSeconds(40);
TextBlockMarquee.BeginAnimation(TextBlock.MarginProperty, ThickAnimation);
The problem I am having is this code works perfectly for a text whose width is less then that of screen. But for text whose width is greater then screen the text flickers a lot(Flickering increases when text contains unicode characters like: "\u25Bc").
here:-
TextGraphicalWidth is width of original text.
TextLenghtGraphicalWidth is width of text after appending text to original text.
How can I handle this?
Xaml:
<Grid>
<Grid.ColumnDefinitions>
<ColumnDefinition Width="*" />
</Grid.ColumnDefinitions>
<Canvas ClipToBounds="True" Name="canMain" Background="Transparent">
<Grid Width="{Binding ElementName=canMain, Path=ActualWidth}" >
<Grid.ColumnDefinitions>
</Grid.ColumnDefinitions>
<Grid.RowDefinitions>
<RowDefinition />
<RowDefinition />
<RowDefinition />
<RowDefinition />
</Grid.RowDefinitions>
<TextBlock Grid.Row="0" Name="TextBlockMarquee" Text="This is my animated text with special characters:" />
<Border Grid.Row="1" BorderBrush="Black" BorderThickness="1">
<TextBlock ClipToBounds="True" FontSize="22" Name="TextBoxMarquee" FontFamily="Segoe UI" Text="" />
</Border>
<TextBlock Grid.Row="2" Name="TextBlockMarqueenew" Text="This is my animated text without special characters:" />
<Border Grid.Row="3" BorderBrush="Black" BorderThickness="1">
<TextBlock ClipToBounds="True" FontSize="22" Name="TextBoxMarquee1" FontFamily="Segoe UI" Text="" />
</Border>
</Grid>
</Canvas>
</Grid>
Code Behind:-
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Windows;
using System.Windows.Controls;
using System.Windows.Data;
using System.Windows.Documents;
using System.Windows.Input;
using System.Windows.Media;
using System.Windows.Media.Animation;
using System.Windows.Media.Imaging;
using System.Windows.Shapes;
namespace TickerDemoNew
{
/// <summary>
/// Interaction logic for TickerMaxTextBlock.xaml
/// </summary>
public partial class TickerMaxTextBlock : Window
{
StringBuilder s,s1;
string TexttoScroll, TexttoScroll1;
public TickerMaxTextBlock()
{
InitializeComponent();
TextOptions.SetTextFormattingMode(TextBoxMarquee,TextFormattingMode.Ideal);
UseLayoutRounding = true;
TextBoxMarquee.Inlines.Add(new Run("I have attached herewith the full implementation of Custom TextBox class (TextBoxEx) in a word file. In the implementation when Tooltip is opening, it is checking whether text has truncated or not. If text has not truncated then tooltip won’t be displayed (as it is not necessary because full text is anyway visible). Also, in order to show the tooltip, text property of the Textblock should be bound with the tooltip. ") { Foreground = Brushes.Red });
TextBoxMarquee.Inlines.Add(new Run(" Despite of all the interop support available sometimes you will still come across some tricky issues which will be difficult to overcome. One such problem I faced recently. I had to configure the Dialog with MFC PropertySheet control. This PropertySheet control was holding few Property pages. These property pages didn’t had any MFC controls as content but hosting the user controls developed in WPF. First I will write very briefly about how to load the WPF user control inside the MFC container and then I will explain about my tricky problem and how I fixed it.") { Foreground = Brushes.Green });
}
private void Window_Loaded_1(object sender, RoutedEventArgs e)
{
double TextGraphicalWidth = 0;
foreach (var str in TextBoxMarquee.Inlines)
{
TextGraphicalWidth = TextGraphicalWidth + new FormattedText(((Run)str).Text, System.Threading.Thread.CurrentThread.CurrentCulture, System.Windows.FlowDirection.LeftToRight, new Typeface(str.FontFamily.ToString()), str.FontSize, str.Foreground).WidthIncludingTrailingWhitespace;
}
double TextLenghtGraphicalWidth = 0;
while (TextLenghtGraphicalWidth < TextBoxMarquee.ActualWidth)
{
TextBoxMarquee.Inlines.Add(new Run("I have attached herewith the full implementation of Custom TextBox class (TextBoxEx) in a word file. In the implementation when Tooltip is opening, it is checking whether text has truncated or not. If text has not truncated then tooltip won’t be displayed (as it is not necessary because full text is anyway visible). Also, in order to show the tooltip, text property of the Textblock should be bound with the tooltip. ") { Foreground = Brushes.Red });
TextBoxMarquee.Inlines.Add(new Run(" Despite of all the interop support available sometimes you will still come across some tricky issues which will be difficult to overcome. One such problem I faced recently. I had to configure the Dialog with MFC PropertySheet control. This PropertySheet control was holding few Property pages. These property pages didn’t had any MFC controls as content but hosting the user controls developed in WPF. First I will write very briefly about how to load the WPF user control inside the MFC container and then I will explain about my tricky problem and how I fixed it.") { Foreground = Brushes.Green });
foreach (var str in TextBoxMarquee.Inlines)
{
TextLenghtGraphicalWidth = TextLenghtGraphicalWidth + new FormattedText(((Run)str).Text, System.Threading.Thread.CurrentThread.CurrentCulture, System.Windows.FlowDirection.LeftToRight, new Typeface(str.FontFamily.ToString()), str.FontSize, str.Foreground).WidthIncludingTrailingWhitespace;
}
}
TextBoxMarquee.Inlines.Add(new Run("I have attached herewith the full implementation of Custom TextBox class (TextBoxEx) in a word file. In the implementation when Tooltip is opening, it is checking whether text has truncated or not. If text has not truncated then tooltip won’t be displayed (as it is not necessary because full text is anyway visible). Also, in order to show the tooltip, text property of the Textblock should be bound with the tooltip. ") { Foreground = Brushes.Red });
TextBoxMarquee.Inlines.Add(new Run(" Despite of all the interop support available sometimes you will still come across some tricky issues which will be difficult to overcome. One such problem I faced recently. I had to configure the Dialog with MFC PropertySheet control. This PropertySheet control was holding few Property pages. These property pages didn’t had any MFC controls as content but hosting the user controls developed in WPF. First I will write very briefly about how to load the WPF user control inside the MFC container and then I will explain about my tricky problem and how I fixed it.") { Foreground = Brushes.Green });
double totalWidth = 0;
foreach (var newStr in TextBoxMarquee.Inlines)
{
totalWidth = totalWidth + new FormattedText(((Run)newStr).Text, System.Threading.Thread.CurrentThread.CurrentCulture, System.Windows.FlowDirection.LeftToRight, new Typeface(newStr.FontFamily.ToString()), newStr.FontSize, newStr.Foreground).WidthIncludingTrailingWhitespace;
}
MessageBox.Show((TextLenghtGraphicalWidth + TextBoxMarquee.ActualWidth).ToString());
MessageBox.Show((TextLenghtGraphicalWidth + TextGraphicalWidth).ToString());
MessageBox.Show(totalWidth.ToString());
ThicknessAnimation ThickAnimation = new ThicknessAnimation();
ThickAnimation.From = new Thickness(0, 0, 0, 0);
ThickAnimation.To = new Thickness(-TextGraphicalWidth, 0, 0, 0);
ThickAnimation.RepeatBehavior = RepeatBehavior.Forever;
ThickAnimation.Duration = new Duration(TimeSpan.FromSeconds((50 * (totalWidth)) / TextBoxMarquee.ActualWidth));
TextBoxMarquee.BeginAnimation(TextBlock.MarginProperty, ThickAnimation);
}
}
}