"The icon color of text and file attachment annotations can be changed if "+_ Y = y + 40.0 call pdf.CircleAnnot( 50.0, y, 200.0, 100.0, 1.0, pdf.kPDF_CREAM, pdf.kPDF_BLACK, pdf.kcsDeviceRGB, "Test app", "Circle Annotations", "This is a circle annotation")Ĭall pdf.SquareAnnot( 300.0, y, 200.0, 100.0, 1.0, pdf.kPDF_CREAM, pdf.kPDF_BLACK, pdf.kcsDeviceRGB, "Test app", "Square Annotations", "This is a square annotation") Pdf.SetLicenseKey "Starter" // For this example you can use a Starter, Lite, Pro or Enterprise License call pdf.CreateNewPDF fĬall pdf.SetDocInfo pdf.kdiSubject, "My first Xojo output" call pdf.SetDocInfo pdf.kdiProducer, "Xojo test application" call pdf.SetDocInfo pdf.kdiTitle, "My first Xojo output" // We want to use top-down coordinates call pdf.SetPageCoords pdf.kpcTopDownĭim y as Double = 50 Call pdf.SetFont( "Helvetica", pdf.kfsRegular, 20.0, False, pdf.kcpUnicode)ĪddHighlightAnnot pdf, pdf.katHighlight, pdf.kPDF_YELLOW, 50.0, y, "Highlight Annotation", "Highlight Annotations", "This is a highlight annotation"ĪddHighlightAnnot pdf, pdf.katSquiggly, pdf.kPDF_RED, 300.0, y, "Squiggly Annotation", "Highlight Annotations", "This is a squiggly annotation"ĪddHighlightAnnot pdf, pdf.katStrikeOut, pdf.kPDF_RED, 50.0, y, "Strikeout Annotation", "Highlight Annotations", "This is a strikeout annotation"ĪddHighlightAnnot pdf, pdf.katUnderline, pdf.kPDF_RED, 300.0, y, "Underline Annotation", "Highlight Annotations", "This is a underline annotation"
Xojo newline pdf#
Dim f as FolderItem = ( "Create PDF with Annotations.pdf")