'''' This code is part of Document Solutions for Imaging demos.'' Copyright (c) MESCIUS inc. All rights reserved.''Imports System.DrawingImports System.IOImports System.NumericsImports GrapeCity.Documents.DrawingImports GrapeCity.Documents.TextImports GrapeCity.Documents.ImagingImports GrapeCity.Documents.LayoutImports GCTEXT = GrapeCity.Documents.Text
'' This example shows how to draw a rotated table using an angle constraint.'' An angle constraint is similar to rotation with a transformation matrix,'' but unlike transformation, using angle constraint makes it easier to add'' other visual elements to the view.Public Class RotatedTable    Public 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, opaque, dpi, dpi)        Using g = bmp.CreateGraphics(Color.White)            DrawTable(g, pixelSize.Width, pixelSize.Height)        End Using        Return bmp    End Function
    Private Class ItemLine        Public ReadOnly Property Text As String        Public ReadOnly Property Sales As Double        Public ReadOnly Property MarginNumber As Double        Public ReadOnly Property MarginPercent As Double        Public ReadOnly Property TotalCustomers As Integer
        Public Sub New(text As String, sales As Double, marginNumber As Double, marginPercent As Double, totalCustomers As Integer)            Me.Text = text            Me.Sales = sales            Me.MarginNumber = marginNumber            Me.MarginPercent = marginPercent            Me.TotalCustomers = totalCustomers        End Sub    End Class
    Private Shared Sub DrawTable(g As GcGraphics, pageWidth As Integer, pageHeight As Integer)        Dim marginX As Single = 20, marginY As Single = 20        Dim host = New LayoutHost()        Dim view = host.CreateView(0, 0)
        '' Note that the table rectangle is rotated using an AngleConstraint.        '' We don't need a separate View with a transformation matrix.
        Dim rt = view.CreateRect()        rt.SetAngle(Nothing, 270)        rt.SetTop(Nothing, AnchorParam.Left, marginX)        rt.SetRight(Nothing, AnchorParam.Top, -marginY)
        Dim ta = New TableRenderer(g,            rt, FixedTableSides.TopRight,            rowCount:=9,            columnCount:=5,            gridLineColor:=Color.Black,            gridLineWidth:=1,            paddingLeft:=20,            paddingRight:=20,            paddingBottom:=20,            paddingTop:=12)
        Dim lgb = New LinearGradientBrush(Color.FromArgb(240, 234, 249), New PointF(0, 0), Color.FromArgb(201, 181, 232), New PointF(0, 1))        ta.TableFrameStyle = New FrameStyle() With            {                .LineColor = Color.FromArgb(126, 96, 160),                .LineWidth = 1,                .FillBrush = lgb            }
        Dim columns = ta.ColumnRects        columns(0).SetWidth(80)        columns(1).SetWidth(125)        columns(2).SetWidth(110)        columns(3).SetWidth(80)        columns(4).SetWidth(80)
        Dim fmt = New TextFormat() With            {                .Font = GCTEXT.Font.FromFile(Path.Combine("Resources", "Fonts", "FreeSans.ttf")),                .FontSize = 16,                .FontSizeInGraphicUnits = True,                .FontFeatures = New FontFeature() {New FontFeature(FeatureTag.liga, False)}            }        Dim fmtHeader = New TextFormat(fmt) With            {                .ForeColor = Color.White,                .FontBold = True            }
        Dim csTitle = New CellStyle() With            {                .Background = True,                .TextFormat = New TextFormat(fmt) With                    {                        .FontBold = True,                        .FontSize = 20                    },                .TextAlignment = TextAlignment.Center,                .PaddingBottom = 8            }
        ta.AddCell(csTitle, 0, 0, 1, 5, "Class Schedule")
        Dim csHeader = New CellStyle() With            {                .TextFormat = fmtHeader,                .TextAlignment = TextAlignment.Center,                .PaddingTop = 5,                .PaddingBottom = 6            }        ta.AddCell(csHeader, 1, 0, "LESSON")        ta.AddCell(csHeader, 1, 1, "TOPIC")        ta.AddCell(csHeader, 1, 2, "ASSIGNMENT")        ta.AddCell(csHeader, 1, 3, "POINTS")        ta.AddCell(csHeader, 1, 4, "DUE")
        Dim csCenter = New CellStyle(csHeader) With            {                .TextFormat = fmt,                .PaddingLeftRight = 6            }        Dim csLeft = New CellStyle(csCenter) With            {                .TextAlignment = TextAlignment.Leading            }
        ta.AddCell(csCenter, 2, 0, 2, 1, "1")        ta.AddCell(csLeft, 2, 1, 2, 1, "What is Distance Learning?")        ta.AddCell(csLeft, 2, 2, "Wiki #1")        ta.AddCell(csCenter, 2, 3, "10")        ta.AddCell(csCenter, 2, 4, "March 10")        ta.AddCell(csLeft, 3, 2, "Presentation")        ta.AddCell(csCenter, 3, 3, "20")        ta.AddCell(csCenter, 3, 4)
        ta.AddCell(csCenter, 4, 0, "2")        ta.AddCell(csLeft, 4, 1, "History & Theories")        ta.AddCell(csLeft, 4, 2, "Brief Paper")        ta.AddCell(csCenter, 4, 3, "20")        ta.AddCell(csCenter, 4, 4, "March 24")
        ta.AddCell(csCenter, 5, 0, 1, 5, "Spring Break")
        ta.AddCell(csCenter, 6, 0, 2, 1, "3")        ta.AddCell(csLeft, 6, 1, 2, 1, "Distance Learners")        ta.AddCell(csLeft, 6, 2, "Discussion #1")        ta.AddCell(csCenter, 6, 3, "10")        ta.AddCell(csCenter, 6, 4, "April 7")        ta.AddCell(csLeft, 7, 2, "Group Project")        ta.AddCell(csCenter, 7, 3, "50")        ta.AddCell(csCenter, 7, 4, "April 14")
        ta.AddCell(csCenter, 8, 0, "4")        ta.AddCell(csLeft, 8, 1, "Media Selection")        ta.AddCell(csLeft, 8, 2, "Blog #1")        ta.AddCell(csCenter, 8, 3, "10")        ta.AddCell(csCenter, 8, 4, "April 21")
        ta.AddCell(New CellStyle() With            {                .Background = True,                .FillColor = Color.FromArgb(79, 129, 189)            }, 1, 0, 1, 5)
        ta.AddCell(New CellStyle() With            {                .Background = True,                .FillColor = Color.FromArgb(208, 216, 232)            }, 2, 0, 7, 5)
        Dim bkHighlight = New CellStyle() With            {                .Background = True,                .FillColor = Color.FromArgb(233, 237, 244)            }        ta.AddCell(bkHighlight, 3, 2, 1, 3)        ta.AddCell(bkHighlight, 5, 0, 1, 5)        ta.AddCell(bkHighlight, 7, 2, 1, 3)
        ta.ApplyCellConstraints()
        g.Transform = Matrix3x2.CreateScale(1.8F)        ta.Render(g)    End SubEnd Class