''
'' This code is part of Document Solutions for PDF demos.
'' Copyright (c) MESCIUS inc. All rights reserved.
''
Imports System.IO
Imports System.Drawing
Imports System.Text
Imports GrapeCity.Documents.Pdf
Imports GrapeCity.Documents.Text
Imports GrapeCity.Documents.Drawing
'' Demonstrates how different styles of numbered lists can be rendered in DsPdf.
'' See also NumberedList.
Public Class NumberedList2
'' Encapsulate page layout constants used in the sample:
Private Structure Layout
'' All around page margins:
Public Shared Margin As Single = 72.0F
'' List offset relative to item number:
Public Shared ListOffset As Single = 24.0F
'' List level indent:
Public Shared ListIndent As Single = 30.0F
End Structure
'' Define simple tree type:
Private Class Node
Public Sub New(ByVal txt As String)
Text = txt
End Sub
Public Property Text As String
Public Property Children As List(Of Node) = New List(Of Node)()
End Class
'' Renders a list of nodes as a numbered list.
Private Function RenderNodes(ByRef page As Page, ByVal pt As PointF, ByVal nodes As List(Of Node), ByVal level As Integer) As PointF
Dim tlBullet = page.Graphics.CreateTextLayout()
tlBullet.DefaultFormat.Font = StandardFonts.Times
tlBullet.MarginLeft = Layout.ListIndent * level
Dim tlText = New TextLayout(72)
tlText.DefaultFormat.Font = StandardFonts.Times
tlText.MarginLeft = Layout.ListOffset + Layout.ListIndent * level
For i = 0 To nodes.Count - 1
Dim g = page.Graphics
'' Prep item text:
tlText.Clear()
tlText.Append(nodes(i).Text)
tlText.PerformLayout(True)
If pt.Y + tlText.ContentHeight > page.Size.Height - Layout.Margin Then
page = page.Doc.NewPage()
g = page.Graphics
pt.Y = Layout.Margin
End If
'' Prep item number:
tlBullet.Clear()
tlBullet.Append(ItemIdxToString(i, level, tlBullet))
tlBullet.PerformLayout(True)
'' Render item:
g.DrawTextLayout(tlBullet, pt)
g.DrawTextLayout(tlText, pt)
'' Advance insertion point:
pt.Y += tlText.ContentHeight
'' Render children:
If nodes(i).Children.Count > 0 Then
pt = RenderNodes(page, pt, nodes(i).Children, level + 1)
End If
Next
Return pt
End Function
'' Convert item index to item number representation, in a
'' Arabic -> Latin letters -> Roman numbers loop.
'' Roman numbers are right-aligned, others are left-aligned.
Private Function ItemIdxToString(ByVal itemIdx As Integer, ByVal level As Integer, ByVal tl As TextLayout) As String
Select Case (level Mod 3)
Case 0
tl.MarginLeft = Layout.ListIndent * level
tl.MaxWidth = Nothing
tl.TextAlignment = TextAlignment.Leading
Return $"{itemIdx + 1}."
Case 1
tl.MarginLeft = Layout.ListIndent * level
tl.MaxWidth = Nothing
tl.TextAlignment = TextAlignment.Leading
Return $"{ChrW(AscW("a") + itemIdx)}."
Case 2
tl.MarginLeft = 0
Dim font = tl.DefaultFormat.Font
tl.MaxWidth = Layout.ListIndent * level + tl.DefaultFormat.FontSize
tl.TextAlignment = TextAlignment.Trailing
Return $"{IntToRoman(itemIdx + 1)}."
Case Else
Throw New Exception("Unexpected.")
End Select
End Function
'' From http://dotnet-snippets.com/snippet/roman-numerals/667
Private Function IntToRoman(ByVal number As Integer) As String
Dim result = New StringBuilder()
Dim digitsValues = {1, 4, 5, 9, 10, 40, 50, 90, 100, 400, 500, 900, 1000}
Dim romanDigits = {"I", "IV", "V", "IX", "X", "XL", "L", "XC", "C", "CD", "D", "CM", "M"}
While number > 0
For i = digitsValues.Count() - 1 To 0 Step -1
If (number / digitsValues(i) >= 1) Then
number -= digitsValues(i)
result.Append(romanDigits(i).ToLower())
Exit For
End If
Next
End While
Return result.ToString()
End Function
'' Main entry point:
Function CreatePDF(ByVal stream As Stream) As Integer
Dim doc = New GcPdfDocument()
Dim page = doc.NewPage()
RenderNodes(page, New PointF(Layout.Margin, Layout.Margin), _arthrapods.Children, 0)
''
'' Done:
doc.Save(stream)
Return doc.Pages.Count
End Function
'' Sample tree data:
Private _arthrapods As New Node("Animalia Arthrapoda") With
{
.Children = New List(Of Node) From
{
New Node("Insecta") With
{
.Children = New List(Of Node) From
{
New Node("Archaeognatha") With
{
.Children = New List(Of Node) From
{
New Node("Protozoa")
}
},
New Node("Thysanura") With
{
.Children = New List(Of Node) From
{
New Node("Silverfish")
}
},
New Node("Ephemeoptera") With
{
.Children = New List(Of Node) From
{
New Node("Mafly")
}
},
New Node("Odonata") With
{
.Children = New List(Of Node) From
{
New Node("Dragonfly"),
New Node("Azure Damzelfly"),
New Node("Emerald Damzelfly")
}
},
New Node("Orthoptera") With
{
.Children = New List(Of Node) From
{
New Node("Grasshopper"),
New Node("Cricket"),
New Node("Cave Cricket")
}
},
New Node("Phasmatodea") With
{
.Children = New List(Of Node) From
{
New Node("Walking Stick"),
New Node("Leaf Bug")
}
},
New Node("Mantodea") With
{
.Children = New List(Of Node) From
{
New Node("Praying Mantis")
}
},
New Node("Blattoeda") With
{
.Children = New List(Of Node) From
{
New Node("Cockroach")
}
},
New Node("Isoptera") With
{
.Children = New List(Of Node) From
{
New Node("Termite")
}
},
New Node("Phithiraptera") With
{
.Children = New List(Of Node) From
{
New Node("Bird Lice"),
New Node("Human Lice"),
New Node("Pubic Lice")
}
},
New Node("Hemiptera") With
{
.Children = New List(Of Node) From
{
New Node("Cicada"),
New Node("Pond Skater"),
New Node("Tree Hopper"),
New Node("Stink Bug"),
New Node("Thrip"),
New Node("Alderfly")
}
},
New Node("Siphonatera") With
{
.Children = New List(Of Node) From
{
New Node("Flea")
}
}
}
},
New Node("Myriapoda") With
{
.Children = New List(Of Node) From
{
New Node("Chilopoda") With
{
.Children = New List(Of Node) From
{
New Node("Centipede")
}
},
New Node("Diplopoda") With
{
.Children = New List(Of Node) From
{
New Node("Millipede"),
New Node("Pitbug")
}
}
}
},
New Node("Crustacea") With
{
.Children = New List(Of Node) From
{
New Node("Branchiopod") With
{
.Children = New List(Of Node) From
{
New Node("Brine Shrimp"),
New Node("Water Flea")
}
},
New Node("Maxillopod") With
{
.Children = New List(Of Node) From
{
New Node("Cyclopoid"),
New Node("Calgid"),
New Node("Barnacles")
}
},
New Node("Malacostracan") With
{
.Children = New List(Of Node) From
{
New Node("Krill"),
New Node("Prawn"),
New Node("Shrimp"),
New Node("Cancrid Crab"),
New Node("Fidder Crab"),
New Node("Spider Crab"),
New Node("Lobster"),
New Node("Hermit Crab"),
New Node("Cray Fish")
}
}
}
},
New Node("Pycnogonida") With
{
.Children = New List(Of Node) From
{
New Node("Pycnogonida") With
{
.Children = New List(Of Node) From
{
New Node("Sea Spider")
}
}
}
},
New Node("Merostomata") With
{
.Children = New List(Of Node) From
{
New Node("Merostomata") With
{
.Children = New List(Of Node) From
{
New Node("Horseshoe Spider")
}
}
}
},
New Node("Arachnida") With
{
.Children = New List(Of Node) From
{
New Node("Scorpiones") With
{
.Children = New List(Of Node) From
{
New Node("Buthid"),
New Node("Imperial Scorpion")
}
},
New Node("Pseudoscorpions") With
{
.Children = New List(Of Node) From
{
New Node("Neobisiid"),
New Node("Cheliferid")
}
},
New Node("Solfigugae") With
{
.Children = New List(Of Node) From
{
New Node("Wind Scorpion")
}
},
New Node("Acari") With
{
.Children = New List(Of Node) From
{
New Node("Tick"),
New Node("Mite")
}
},
New Node("Araneae") With
{
.Children = New List(Of Node) From
{
New Node("Crib Weaver"),
New Node("Funnel-web Spider"),
New Node("Funnel Weaver"),
New Node("Water Spider"),
New Node("Jumping Spider"),
New Node("Wolf Spider"),
New Node("Nursery-web Spider"),
New Node("Crab Spider"),
New Node("Black Widow"),
New Node("Tiger Oriental Tarantula"),
New Node("Mexican Red-legged Tarantula")
}
}
}
}
}
}
End Class