'' '' This code is part of Document Solutions for PDF demos. '' Copyright (c) MESCIUS inc. All rights reserved. '' Imports System.IO Imports System.Drawing Imports GrapeCity.Documents.Pdf Imports GrapeCity.Documents.Text Imports GrapeCity.Documents.Drawing Imports GCTEXT = GrapeCity.Documents.Text Imports GCDRAW = GrapeCity.Documents.Drawing '' Draws vertical right-to-left Japanese text using a layout with horizontal columns. '' See also ArabicColumns, MultiLang and VerticalText. Public Class VerticalTextJP Const text = "日本語（にほんご、にっぽんご）は、主として、日本列島で使用されてきた言語である。日本手話を母語とする者などを除いて、ほぼ全ての日本在住者は日本語を第一言語とする。日本国は法令上、公用語を明記していないが、事実上の公用語となっており、学校教育の「国語」で教えられる。使用者は、日本国内を主として約\uFF11億\uFF13千万人。日本語の文法体系や音韻体系を反映する手話として日本語対応手話がある。" Function CreatePDF(ByVal stream As Stream) As Integer Using clouds As GCDRAW.Image = GCDRAW.Image.FromFile(Path.Combine("Resources", "Images", "clouds.jpg")), firth As GCDRAW.Image = GCDRAW.Image.FromFile(Path.Combine("Resources", "Images", "firth.jpg")), lavender As GCDRAW.Image = GCDRAW.Image.FromFile(Path.Combine("Resources", "Images", "lavender.jpg")) Dim fnt = GCTEXT.Font.FromFile(Path.Combine("Resources", "Fonts", "NotoSansJP-Regular.ttf")) Dim ia = New ImageAlign(ImageAlignHorz.Left, ImageAlignVert.Top, True, True, True, False, False) Dim doc = New GcPdfDocument() '' The TextLayout that will hold and render the text: Dim tl = New TextLayout(72) tl.FirstLineIndent = 18 tl.ParagraphSpacing = 6 tl.FlowDirection = FlowDirection.VerticalRightToLeft tl.TextAlignment = TextAlignment.Justified Dim tf = New TextFormat() With {.Font = fnt, .FontSize = 12} '' Repeat test text to fill a few pages: For i = 0 To 25 tl.Append(text, tf) tl.AppendLine() Next '' Layout text in 4 horizontal columns: '' (The logic/code in this sample is identical to ArabicColumns): Const NCOLS = 4 Dim margin = 36.0F Dim gap = 18.0F Dim page = doc.NewPage() page.Landscape = True Dim colHeight = (page.Size.Height - margin * 2 - gap * (NCOLS - 1)) / NCOLS tl.MaxWidth = page.Size.Width tl.MaxHeight = page.Size.Height tl.MarginLeft = margin tl.MarginRight = margin tl.MarginTop = margin tl.MarginBottom = margin + (colHeight + gap) * (NCOLS - 1) '' We can specify arbitrary rectangles for the text to flow around. '' In this case, we add 3 areas to draw some images: tl.ObjectRects = New List(Of ObjectRect) From { New ObjectRect(page.Size.Width - margin - 267, margin, 267, 200), New ObjectRect(margin + 100, margin + 60, 133, 100), New ObjectRect(margin, page.Size.Height - margin - 301, 200, 301) } '' Convert object rects to image areas, adjust to provide nice looking padding: Dim rClouds = tl.ObjectRects(0).ToRectangleF() rClouds.Inflate(-4, -3) Dim rFirth = tl.ObjectRects(1).ToRectangleF() rFirth.Inflate(-4, -3) Dim rLavender = tl.ObjectRects(2).ToRectangleF() rLavender.Inflate(-4, -3) page.Graphics.DrawImage(clouds, rClouds, Nothing, ia) page.Graphics.DrawImage(firth, rFirth, Nothing, ia) page.Graphics.DrawImage(lavender, rLavender, Nothing, ia) '' THE call: it calculates the glyphs needed to draw the text, and lays it out: tl.PerformLayout(True) '' Loop while there is still text to render: Dim done = False While Not done For col = 1 To NCOLS Dim nextcol = If(col < NCOLS, col, 0) '' TextSplitOptions tell TextLayout.Split() how to layout the remaining text. '' In this case we advance from column to column by updating top and bottom margins: Dim tso = New TextSplitOptions(tl) With { .RestMarginTop = margin + (colHeight + gap) * nextcol, .RestMarginBottom = margin + (colHeight + gap) * (NCOLS - 1 - nextcol) } Dim rest As TextLayout = Nothing Dim split = tl.Split(tso, rest) page.Graphics.DrawTextLayout(tl, PointF.Empty) If split <> SplitResult.Split Then done = True Exit For End If tl = rest Next If Not done Then page = doc.NewPage() page.Landscape = True '' We only want to render images on the first page, so clear ObjectRect: If tl.ObjectRects IsNot Nothing Then tl.ObjectRects = Nothing '' We need to redo the layout, but no need to recalculate the glyphs: tl.PerformLayout(False) End If End If End While '' '' Done: doc.Save(stream) Return doc.Pages.Count End Using End Function End Class