![]() ![]() Text for the English layer call pdf.BeginLayer(oc2)Ĭall pdf.WriteFTextEx( 50.0, 50.0, pdf.GetPageWidth - 100.0, pdf.GetPageHeight - 100.0, pdf.ktaLeft, text2) "different layers." // Text for the German layer call pdf.BeginLayer(oc1)Ĭall pdf.WriteFTextEx( 50.0, 50.0, pdf.GetPageWidth - 100.0, pdf.GetPageHeight - 100.0, pdf.ktaLeft, text1) "in English and one time in German in this example, but in "+_ "The page contents must of course be created twice, one time "+_ The bookmarks simply hide or unhide a layer."+_ "Additionally, the wished language can be selected with two "+_ "The language is initially selected with a JavaScript "+_ "in unterschiedlichen Layern." dim text2 as string = "This example shows how a multi-language document can be "+_ "in Deutsch und einmal in Englisch in diesem Beispiel, jeweils "+_ "Der Seiteninhalt muss natürlich zweimal erzeugt werden, einmal "+_ Hierbei wird lediglich ein Layer ein- "+_ "Zusätzlich kann die Sprache auch über zwei Lesezeichen "+_ "Zunächst wird beim Öffnen des Dokuments die Sprache mit "+_ Add the action to the bookmarks call pdf.AddActionToObj(pdf.kotBookmark, pdf.koeOnMouseUp, act, bmkDE)Ĭall pdf.AddActionToObj(pdf.kotBookmark, pdf.koeOnMouseUp, act, bmkEN)Ĭall pdf.SetFont( "Arial", pdf.kfsRegular + pdf.kfsItalic, 12.0, true, pdf.kcpUnicode)ĭim text1 as string = "Dieses Beispiel zeigt wie ein mehrsprachiges Dokument "+_ Simply toggle the state from On to Off or vice versa dim act as integer = pdf.CreateSetOCGStateAction(on, off, toggle, true) Pass warnings and errors to this error callback function dim oc1 as integer = pdf.CreateOCG( "Deutsch", true, false, pdf.koiAll)ĭim oc2 as integer = pdf.CreateOCG( "English", true, true, pdf.koiAll)ĭim bmkDE as integer = pdf.AddBookmark( "Deutsch", - 1, 1, false)ĭim bmkEN as integer = pdf.AddBookmark( "English", - 1, 1, false)ĭim toggle(- 1), on(- 1), off(- 1) as Uint32 Pdf.SetLicenseKey "Lite" // For this example you can use a 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 ![]() Dim f as FolderItem = ( "Create PDF with Layers Languages.pdf") ![]()
0 Comments
Leave a Reply. |
Details
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |