'''' This code is part of Document Solutions for PDF .NET demos.'' Copyright (c) MESCIUS inc. All rights reserved.''Imports System.IOImports System.DrawingImports GrapeCity.Documents.PdfImports GrapeCity.Documents.Text
'' This sample demonstrates how to display ellipsis'' if a string does Not fit in the allocated space.Public Class TextTrimming    Function CreatePDF(ByVal stream As Stream) As Integer        Dim doc = New GcPdfDocument()        Dim page = doc.NewPage()        Dim g = page.Graphics        Const Inch = 72
        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 you to display ellipsis (or other character) " +            "at the end of a text line that did not fit in the allocated space." + vbLf +            "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." + vbLf +            "Below are examples of text untrimmed, trimmed to character and to word. " +            "The next line demonstrates a different trimming character (tilde in this case). " +            "The line before last shows how to trim text (respecting TrimmingGranularity) " +            "without adding any trimming character. " +            "Finally the last line shows the use of DelimiterCharCode and DelimiterCharCount " +            "properties to shorten file paths.",            page)        Dim top = rc.Bottom + 36
        Dim ip = New PointF(rc.Left, top)
        Dim tl = g.CreateTextLayout()        tl.DefaultFormat.Font = StandardFonts.Times        tl.DefaultFormat.FontSize = 12        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
        '' Another interesting feature Is provided by the pair of        '' DelimiterCharCode And DelimiterCharCount properties.        '' These would typically be used to shorten long paths        '' preserving a specified number of parts at the string's tail:        tl.Clear()        tl.EllipsisCharCode = &H2026        tl.Append("c:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe")        tl.DelimiterCharCode = Asc("\"c)        tl.DelimiterCharCount = 2        tl.PerformLayout(True)        g.DrawTextLayout(tl, ip)        ip.Y += tl.ContentHeight + dy
        g.DrawRectangle(New RectangleF(rc.Left, top, wid, ip.Y - top), Color.OrangeRed)
        '' Done        doc.Save(stream)        Return doc.Pages.Count    End FunctionEnd Class