'''' This code is part of Document Solutions for Imaging demos.'' Copyright (c) MESCIUS inc. All rights reserved.''Imports System.IOImports System.DrawingImports GrapeCity.Documents.TextImports GrapeCity.Documents.ImagingImports GCTEXT = GrapeCity.Documents.Text
'' This sample demonstrates how to display ellipsis'' if a string does Not fit in the allocated space.Public Class TextTrimming    Function GenerateImage(        ByVal pixelSize As Size,        ByVal dpi As Single,        ByVal opaque As Boolean,        Optional ByVal sampleParams As String() = Nothing) As GcBitmap
        Dim bmp = New GcBitmap(pixelSize.Width, pixelSize.Height, True, dpi, dpi)        Dim Inch = dpi        Const fontSize = 12        Using g = bmp.CreateGraphics(Color.White)            Dim str = "This is a long line of text which does not fit in the allocated space."            Dim wid = Inch * 4            Dim dy = 0.3F
            Dim rc = Util.AddNote(                "TextLayout allows displaying ellipsis (or other character) " +                "at the end of a text line that did not fit in the allocated space." + vbCrLf +                "To use trimming, set TrimmingGranularity to Character or Word " +                "(the default is None). Trimming will kick in if WrapMode is NoWrap, " +                "and the text is too long. Wrapped text may also display trimming if " +                "the layout width is too narrow to fit a single word." + vbCrLf +                "Below are examples of text untrimmed, trimmed to character and to word. " +                "The next line demonstrates a different trimming character (tilde in this case). " +                "Finally, the last line shows how to trim text (respecting TrimmingGranularity) " +                "without adding any trimming character.",                g)            Dim top = rc.Bottom + 36
            Dim ip = New PointF(rc.Left, top)
            Dim tl = g.CreateTextLayout()            tl.DefaultFormat.Font = GCTEXT.Font.FromFile(Path.Combine("Resources", "Fonts", "NotoSerif-Regular.ttf"))            tl.DefaultFormat.FontSize = fontSize            tl.MaxWidth = wid            tl.WrapMode = WrapMode.NoWrap
            '' TrimmingGranularity Is None by default            tl.Append(str)            tl.PerformLayout(True)            g.DrawTextLayout(tl, ip)            ip.Y += tl.ContentHeight + dy
            '' Character trimming            tl.TrimmingGranularity = TrimmingGranularity.Character            '' NOTE that the recalculateGlyphsBeforeLayout parameter to PerformLayout            '' may be false after the first call, as the text/font has Not changed:            tl.PerformLayout(False)            g.DrawTextLayout(tl, ip)            ip.Y += tl.ContentHeight + dy
            '' Word trimming            tl.TrimmingGranularity = TrimmingGranularity.Word            tl.PerformLayout(False)            g.DrawTextLayout(tl, ip)            ip.Y += tl.ContentHeight + dy
            '' tl.EllipsisCharCode Is HorizontalEllipsis (0x2026) by default.            '' Change it to a tilde:            tl.EllipsisCharCode = &H7E            tl.PerformLayout(False)            g.DrawTextLayout(tl, ip)            ip.Y += tl.ContentHeight + dy
            '' Finally, we may set tl.EllipsisCharCode to 0 to trim text            '' without rendering any trimming character:            tl.EllipsisCharCode = 0            tl.PerformLayout(False)            g.DrawTextLayout(tl, ip)            ip.Y += tl.ContentHeight + dy
            g.DrawRectangle(New RectangleF(rc.Left, top, wid, ip.Y - top), Color.OrangeRed)
            '' Draw border around the whole image            g.DrawRectangle(New RectangleF(0, 0, bmp.Width, bmp.Height), Color.DarkSlateBlue, 4)        End Using        '' Done        Return bmp    End FunctionEnd Class