[RESOLVED] Text Renderer Class For Arabic Script Languages

[hackerspk]

By default .Net Toolstrip control not render the text for RightToLeft languages correctly, I written a class to do so. All is well else after drawing graphics all the menus of toolstrip which are containing "&" not render correctly. Any help will be appreciated.



Here is the class.

Namespace UrduTextRendrer
    Public Class UrduTextRendrer
        Inherits ToolStripProfessionalRenderer
        Protected Overrides Sub OnRenderItemText(ByVal e As ToolStripItemTextRenderEventArgs)
            Dim sf As New StringFormat()
            If (e.TextFormat And TextFormatFlags.RightToLeft) <> 0 Then
                sf.FormatFlags = StringFormatFlags.DirectionRightToLeft
            End If
            Using brush = New SolidBrush(e.TextColor)
                e.Graphics.DrawString(e.Text, e.TextFont, brush, New RectangleF(e.TextRectangle.Location, e.TextRectangle.Size), sf)
            End Using
        End Sub
    End Class
End Namespace 

Usage

ToolStripManager.Renderer = New UrduTextRendrer.UrduTextRendrer 

[hackerspk]

Any help guys

[4x2y]

By default .Net Toolstrip control not render the text for RightToLeft languages correctly,

I cannot confirm that, i can show Arabic menu with built-in MenuStrip without any problem?

I think you have to change your system local from control panel> region

[hackerspk]

It works great if you have Windows 7 +, But on windows xp if Asian languages are not installed then text will not shown correctly, if simply while rendering the text we change the string format flags it will work as good as on Windows 7. But you can see while i render the text it works but all the shortcuts and & symbols are not in correct format. I want to fix this issue

[hackerspk]

Any one else have some idea please?

[Niya]

Is your whole problem the ampersand sign ? If so then why not simply not use it. I don't know too much about foreign glyphs but I wouldn't expect Arabic to have an ampersand.

[4x2y]

You may remove the ampersand from the text, it is dirty solution until you find another one.

Namespace UrduTextRendrer
    Public Class UrduTextRendrer
        Inherits ToolStripProfessionalRenderer
        Protected Overrides Sub OnRenderItemText(ByVal e As ToolStripItemTextRenderEventArgs)
            Dim sf As New StringFormat
            If (e.TextFormat And TextFormatFlags.RightToLeft) <> 0 Then
                sf.FormatFlags = StringFormatFlags.DirectionRightToLeft
            End If

            e.Text = e.Text.Replace("&"c, String.Empty) ' Remove the ampersand from the text

            Using brush = New SolidBrush(Color.Red) 'e.TextColor)
                e.Graphics.DrawString(e.Text, e.TextFont, brush, New RectangleF(e.TextRectangle.Location, e.TextRectangle.Size), sf)
            End Using
        End Sub
    End Class
End Namespace

[hackerspk]

You may remove the ampersand from the text, it is dirty solution until you find another one.

Namespace UrduTextRendrer
    Public Class UrduTextRendrer
        Inherits ToolStripProfessionalRenderer
        Protected Overrides Sub OnRenderItemText(ByVal e As ToolStripItemTextRenderEventArgs)
            Dim sf As New StringFormat
            If (e.TextFormat And TextFormatFlags.RightToLeft) <> 0 Then
                sf.FormatFlags = StringFormatFlags.DirectionRightToLeft
            End If

            e.Text = e.Text.Replace("&"c, String.Empty) ' Remove the ampersand from the text

            Using brush = New SolidBrush(Color.Red) 'e.TextColor)
                e.Graphics.DrawString(e.Text, e.TextFont, brush, New RectangleF(e.TextRectangle.Location, e.TextRectangle.Size), sf)
            End Using
        End Sub
    End Class
End Namespace

i thought of that but there is one problem more all the shortcut keys also turn to left so how to adjust these keys?

[dunfiddlin]

I'm still not convinced by the whole premise that "by default .Net Toolstrip control not render the text for RightToLeft languages correctly"! What does that actually mean?

[dunfiddlin]

Yay! Another double post to add to the collection!

[Niya]

Yay! Another double post to add to the collection!

Even if the page takes a while to change, it doesn't mean that the forum didn't acknowledge the post. You can avoid double posting by keeping that in mind. It took a while to get used to but its practically instinct now...at least for me.

[hackerspk]

I'm still not convinced by the whole premise that "by default .Net Toolstrip control not render the text for RightToLeft languages correctly"! What does that actually mean?

Windows Vista, 7,8 have good Unicode support when these windows renders Arabic script languages, there is no error. But windows xp if east asian languages are not installed it cannot able to render Arabic script correctly. See picture.

Some of the .net controls supports "UseCompatibleTextRendering". when it is set to true then Windows XP is also render the text as correctly as Windows 7. But toolstrip control has no UseCompatibleTextRendering property. If we render the text using this below method there is no problem with text. But there are some other errors like "&" symbols and shortcuts.

[hackerspk]

Ok problem is resolved by Mick Doherty

Namespace UrduTextRendrer
    Public Class UrduTextRendrer
        Inherits ToolStripProfessionalRenderer
        Protected Overrides Sub OnRenderItemText(ByVal e As ToolStripItemTextRenderEventArgs)
            Dim sf As New StringFormat()

            Dim rtl As Boolean = (e.TextFormat And TextFormatFlags.RightToLeft) = TextFormatFlags.RightToLeft

            If rtl Then
                sf.FormatFlags = StringFormatFlags.DirectionRightToLeft

                If (e.TextFormat & TextFormatFlags.Right) Then
                    e.TextFormat -= TextFormatFlags.Right
                Else
                    e.TextFormat += TextFormatFlags.Right
                End If

            End If

            If (e.TextFormat And TextFormatFlags.Right) = TextFormatFlags.Right Then
                sf.Alignment = StringAlignment.Far
            End If

            If (e.TextFormat And TextFormatFlags.HidePrefix) = TextFormatFlags.HidePrefix Then
                sf.HotkeyPrefix = Drawing.Text.HotkeyPrefix.Hide
            Else
                sf.HotkeyPrefix = Drawing.Text.HotkeyPrefix.Show
            End If

            Using brush = New SolidBrush(e.TextColor)
                e.Graphics.DrawString(e.Text, e.TextFont, brush, e.TextRectangle, sf)
            End Using

        End Sub
    End Class
End Namespace