![]() ![]() …Xojo is now available in grocery stores such as Macey’s, Harmon’s and Fresh Market throughout the state of Utah. Xojo is also available for purchase online at. Xojo Sports Contact Me for Graphic DesignĬlick here to contact me for any of your web and graphic design needs.Dim f as FolderItem = ( "Create PDF with Annotations.pdf") The drink comes in four flavors: white grape, pomegranate, red raspberry and lemon lime. ![]() 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# Y = y 50.0 call pdf.WriteText( 50.0, y, "File Attachment Annotations:") Y = pdf.GetPageHeight - pdf.GetLastTextPosY 10.0 dim a as integer // The default icon color can be changed if necessary call pdf.TextAnnot( 50.0, y, 200.0, 100.0, "Test app", "This is a text annotation", pdf.kaiComment, false)Ī = pdf.TextAnnot( 100.0, y, 200.0, 100.0, "Test app", "This is a text annotation", pdf.kaiHelp, false)Ĭall pdf.SetAnnotColor(a, pdf.kfcBackColor, pdf.kcsDeviceRGB, PDF.RGB( 200, 20, 30))Ĭall pdf.TextAnnot( 150.0, y, 200.0, 100.0, "Test app", "This is a text annotation", pdf.kaiInsert, false)Ī = pdf.TextAnnot( 200.0, y, 200.0, 100.0, "Test app", "This is a text annotation", pdf.kaiKey, false)Ĭall pdf.SetAnnotColor(a, pdf.kfcBackColor, pdf.kcsDeviceRGB, PDF.RGB( 50, 200, 30))Ĭall pdf.TextAnnot( 250.0, y, 200.0, 100.0, "Test app", "This is a text annotation", pdf.kaiNewParagraph, false)Ī = pdf.TextAnnot( 300.0, y, 200.0, 100.0, "Test app", "This is a text annotation", pdf.kaiNote, false)Ĭall pdf.SetAnnotColor(a, pdf.kfcBackColor, pdf.kcsDeviceRGB, PDF.RGB( 70, 120, 210))Ĭall pdf.TextAnnot( 350.0, y, 200.0, 100.0, "Test app", "This is a text annotation", pdf.kaiParagraph, false) The background color must be set.\n\nText Annotations:") "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") Xojo newline pro#
0 Comments
Leave a Reply. |
Details
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |