''
'' 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 GCTEXT = GrapeCity.Documents.Text
Imports GCDRAW = GrapeCity.Documents.Drawing

'' Fallback fonts are fonts used to draw glyphs that are not present
'' in a font specified by the application.
'' DsPdf provides a default list of fallback font families
'' that is automatically initialized, and includes large fonts
'' that are usually suitable to be used as fallbacks for many
'' languages for which some common fonts do not have the glyphs.
'' These automatically added fallback font families are available
'' via methods on the FontCollection.SystemFonts static collection.
'' You can customize the default (and system-dependent) behavior
'' by providing your own fallback fonts, and by adding them either
'' to fallbacks managed by the global FontCollection.SystemFonts,
'' by adding them to your own instance of the FontCollection,
'' or to specific fonts that you are using.
'' In this way the fallback font behavior can be finely tuned
'' and be completely system-independent.
''
'' This sample demonstrates the basic fallback behavior -
'' clearing system fallbacks and re-adding them again.
'' Additionally, it prints the list of fallback fonts
'' found on the current system.
Public Class FontFallbacks
    Function CreatePDF(ByVal stream As Stream) As Integer
        '' Set up GcPdfDocument:
        Dim doc = New GcPdfDocument()
        Dim g = doc.NewPage().Graphics

        '' Set up some helper vars for rendering lines of text:
        Const margin = 36.0F
        '' Insertion point (DsPdf's default resolution is 72dpi, use 1/2" margins all around):
        Dim ip = New PointF(margin, margin)
        '' Init a text format with one of the standard fonts. Standard fonts are minimal
        '' and contain very few glyphs for non-Latin characters.
        Dim tf = New TextFormat() With {.Font = StandardFonts.Courier, .FontSize = 14}

        '' Get the list of fallback font families:
        Dim fallbacks As String() = FontCollection.SystemFonts.GetFallbackFontFamilies()

        '' Clear global fallbacks list:
        FontCollection.SystemFonts.ClearFallbackFontFamilies()
        FontCollection.SystemFonts.ClearFallbackFonts()

        '' Now there are no global fallback fonts, so Japanese text rendered using
        '' a standard font will produce 'blank boxes' instead of real Japanese characters:
        g.DrawString("A Japanese text that won't render: あなたは日本語を話せますか？", tf, ip)
        ip.Y += 36

        '' Re-add the original list of fallback font families to global SystemFonts:
        FontCollection.SystemFonts.AppendFallbackFontFamilies(fallbacks)
        '' On some systems, default system fallbacks might not provide Japanese glyphs,
        '' so we add our own fallback just in case:
        Dim arialuni = GCTEXT.Font.FromFile(Path.Combine("Resources", "Fonts", "arialuni.ttf"))
        FontCollection.SystemFonts.AppendFallbackFonts(arialuni)

        '' Now that fallback fonts are available again, the same Japanese text will render
        '' correctly as an appropriate fallback will have been found:
        g.DrawString("Same text with fallbacks available: あなたは日本語を話せますか？", tf, ip)
        ip.Y += 36

        '' Finally, we list all fallbacks and print a test line using each:
        Dim drawTestLine As Action(Of String) =
            Sub(fnt_ As String)
                Dim tf1 = New TextFormat() With {.FontName = fnt_}
                Dim tstr = $"{fnt_}: The quick brown fox jumps over the lazy dog."
                Dim s = g.MeasureString(tstr, tf1, doc.PageSize.Width - margin * 2)
                g.DrawString(tstr, tf1, New RectangleF(ip, s))
                ip.Y += s.Height * 1.5F
                If ip.Y > doc.Pages.Last.Size.Height - margin * 2 Then
                    g = doc.NewPage().Graphics
                    ip.Y = 36
                End If
            End Sub

        For Each fnt In fallbacks
            drawTestLine(fnt)
        Next
        ''
        '' Done:
        doc.Save(stream)
        Return doc.Pages.Count
    End Function
End Class