Render Method

Imports Leadtools 
Imports Leadtools.Codecs 
Imports Leadtools.Drawing 
Imports Leadtools.Forms.DocumentWriters 
Imports Leadtools.Svg 
 
Public Shared Sub SvgDocumentRenderExample() 
   ' Create a form with a picture box 
   Dim form As New Form() 
   Dim pictureBox As New PictureBox() 
   pictureBox.Dock = DockStyle.Fill 
   form.Controls.Add(pictureBox) 
 
   Dim document As SvgDocument = Nothing 
 
   ' Load a page from a document file as SVG 
   Dim srcFileName As String = Path.Combine(Common.ImagesPath.Path, "Leadtools.pdf") 
   Using codecs As New RasterCodecs() 
      ' Set 300 as the default value for loading document files 
      codecs.Options.RasterizeDocument.Load.Resolution = 300 
 
      document = DirectCast(codecs.LoadSvg(srcFileName, 1, Nothing), SvgDocument) 
   End Using 
 
   ' Make sure the document is valid for rendering 
   If Not document.IsFlat Then 
      document.Flat(Nothing) 
   End If 
   If Not document.Bounds.IsValid Then 
      document.CalculateBounds(False) 
   End If 
 
   ' Optimize it for rendering to increase the speed 
   document.BeginRenderOptimize() 
   Console.WriteLine("IsRenderOptimized is " + document.IsRenderOptimized.ToString()) 
 
   ' This is our paint code 
   AddHandler pictureBox.Paint, 
      Sub(sender As Object, e As PaintEventArgs) 
         Dim graphics As Graphics = e.Graphics 
 
         ' We will fit and center this SVG document in the client area of the picture box 
         Dim dstBounds As Rectangle = pictureBox.ClientRectangle 
         If dstBounds.Width < 1 OrElse dstBounds.Height < 1 Then 
            Return 
         End If 
 
         ' Create the transformation matrix 
         Dim transform As LeadMatrix = LeadMatrix.Identity 
         Dim srcBounds As LeadRectD = document.Bounds.Bounds 
 
         ' Calculate the zoom so we can fit 
         Dim zoom As Double = 1.0 
         If dstBounds.Width > dstBounds.Height Then 
            zoom = dstBounds.Width / srcBounds.Width 
            If (zoom * srcBounds.Height) > dstBounds.Height Then 
               zoom = dstBounds.Height / srcBounds.Height 
            End If 
         Else 
            zoom = dstBounds.Height / srcBounds.Height 
            If (zoom * srcBounds.Width) > dstBounds.Width Then 
               zoom = dstBounds.Width / srcBounds.Width 
            End If 
         End If 
 
         ' We have the zoom factor, set it in the transform 
         transform.Scale(zoom, zoom) 
 
         ' Center 
         Dim xOffset As Double = (dstBounds.Width - (zoom * srcBounds.Width)) / 2.0 
         Dim yOffset As Double = (dstBounds.Height - (zoom * srcBounds.Height)) / 2.0 
         transform.Translate(xOffset, yOffset) 
 
         ' Now setup the rendering options 
         Dim options As New SvgRenderOptions() 
         ' All of the document 
         options.Bounds = srcBounds 
         ' Use our transform 
         options.Transform = transform 
         ' clipping (if any) 
         options.ClipBounds = LeadRectD.Create(e.ClipRectangle.X, e.ClipRectangle.Y, e.ClipRectangle.Width, e.ClipRectangle.Height) 
         ' Fill the background with a white color 
         options.UseBackgroundColor = True 
         options.BackgroundColor = RasterColor.FromKnownColor(RasterKnownColor.White) 
 
         ' Create a rendering engine 
         Using engine As IRenderingEngine = RenderingEngineFactory.Create(graphics) 
            ' Render the document 
            document.Render(engine, options) 
         End Using 
      End Sub 
 
   AddHandler form.SizeChanged, 
      Sub(sender As Object, e As EventArgs) 
         pictureBox.Invalidate() 
      End Sub 
 
   form.ShowDialog() 
 
   document.Dispose() 
End Sub