←Select platform

PDFPencilAnnotation Class

Contains information for a PDF pencil annotation.
public class PDFPencilAnnotation : PDFAnnotation 
Public Class PDFPencilAnnotation  
   Inherits PDFAnnotation 
public class PDFPencilAnnotation 
    extends PDFAnnotation 
public ref class PDFPencilAnnotation : public PDFAnnotation  

The PDFPencilAnnotation class contains information of a single PDF pencil annotation.

The pencil annotation is a set of points the control the curve path connected by smooth lines.

using Leadtools; 
using Leadtools.Codecs; 
using Leadtools.Pdf; 
using Leadtools.WinForms; 
using Leadtools.Drawing; 
public void PDFPencilAnnotationExample() 
   string pdfSrcFileName = Path.Combine(LEAD_VARS.ImagesDir, @"Leadtools.pdf"); 
   string pdfDestFileName = Path.Combine(LEAD_VARS.ImagesDir, @"LEAD_Annotations.pdf"); 
   PDFFile pdfFile = new PDFFile(pdfSrcFileName); 
   List<PDFAnnotation> Annotations = new List<PDFAnnotation>(); 
   PDFPencilAnnotation pencil = new PDFPencilAnnotation(); 
   List<PDFPoint> points = new List<PDFPoint>(); 
   PDFPen pen = new PDFPen(); 
   // Assign pen properties 
   // Create dashed red pen with width of 2 
   pen.Color = RasterColor.FromKnownColor(RasterKnownColor.Red); 
   pen.PenStyle = PDFPen.Dashed; 
   pen.Width = 2; 
   pencil.Pen = pen; 
   pencil.Points.Add(new PDFPoint(250, 400)); 
   pencil.Points.Add(new PDFPoint(300, 350)); 
   pencil.Points.Add(new PDFPoint(300, 200)); 
   pencil.Points.Add(new PDFPoint(300, 100)); 
   pencil.Points.Add(new PDFPoint(250, 150)); 
   pencil.Points.Add(new PDFPoint(100, 100)); 
   pdfFile.WriteAnnotations(Annotations, pdfDestFileName); 
static class LEAD_VARS 
   public const string ImagesDir = @"C:\LEADTOOLS21\Resources\Images"; 
Imports Leadtools 
Imports Leadtools.Codecs 
Imports Leadtools.Pdf 
Imports Leadtools.WinForms 
Imports Leadtools.Drawing 
Public Sub PDFPencilAnnotationExample() 
   Dim pdfSrcFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "Leadtools.pdf") 
   Dim pdfDestFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "LEAD_Annotations.pdf") 
   Dim pdfFile As PDFFile = New PDFFile(pdfSrcFileName) 
   Dim Annotations As List(Of PDFAnnotation) = New List(Of PDFAnnotation)() 
   Dim pencil As PDFPencilAnnotation = New PDFPencilAnnotation() 
   Dim points As List(Of PDFPoint) = New List(Of PDFPoint)() 
   Dim pen As PDFPen = New PDFPen() 
   ' Assign pen properties 
   ' Create dashed red pen with width of 2 
   pen.Color = RasterColor.FromKnownColor(RasterKnownColor.Red) 
   pen.PenStyle = PDFPen.Dashed 
   pen.Width = 2 
   pencil.Pen = pen 
   pencil.Points.Add(New PDFPoint(250, 400)) 
   pencil.Points.Add(New PDFPoint(300, 350)) 
   pencil.Points.Add(New PDFPoint(300, 200)) 
   pencil.Points.Add(New PDFPoint(300, 100)) 
   pencil.Points.Add(New PDFPoint(250, 150)) 
   pencil.Points.Add(New PDFPoint(100, 100)) 
   pdfFile.WriteAnnotations(Annotations, pdfDestFileName) 
End Sub 
Public NotInheritable Class LEAD_VARS 
   Public Const ImagesDir As String = "C:\LEADTOOLS21\Resources\Images" 
End Class 

Target Platforms

Help Version 21.0.2021.3.2
Products | Support | Contact Us | Intellectual Property Notices
© 1991-2021 LEAD Technologies, Inc. All Rights Reserved.

Leadtools.Pdf Assembly