You find this example project in your Plugins Download as a Xojo project file within the examples folder: /DynaPDF/Create PDF with Picture file
Class App Inherits Application
Const kEditClear = "&Delete"
Const kFileQuit = "&Quit"
Const kFileQuitShortcut = ""
EventHandler Sub Open()
// get picture
dim ImageFile as FolderItem = GetOpenFolderItem("")
if ImageFile = nil or not ImageFile.Exists then Return
dim d as new MyDynapdfMBS
dim file as FolderItem
d.SetLicenseKey "Starter" // For this example you can use a Starter, Lite, Pro or Enterprise License
file=SpecialFolder.Desktop.Child("Create PDF with Picture.pdf")
call d.CreateNewPDF file
call d.Append
// set a paper size
call d.SetPageFormat(d.kpfDIN_A4)
call d.SetSaveNewImageFormat(false) // if possible pass through
call d.SetUseTransparency(false) // no transparent color
call d.SetCompressionFilter(d.kcfFlate) // no compression
call d.SetResolution(300) // max resolution
dim PicWidth, PicHeight, BitsPerPixel as integer
dim Zip as Boolean
if not d.ReadImageFormat(ImageFile, PicWidth, PicHeight, BitsPerPixel, Zip) then
MsgBox "Can't read image size."
Return
end if
dim PageWidth as integer = d.GetPageWidth
dim PageHeight as integer = d.GetPageHeight
// scale to fit the page size
dim f as double = min(PageWidth/PicWidth, PageHeight/PicHeight)
dim w as integer = f * PicWidth
dim h as integer = f * PicHeight
dim x as integer = (PageWidth-w)/2
dim y as integer = (PageHeight-h)/2
// add image to pdf
if d.InsertImageEx(x, y, w, h, ImageFile) < 0 then
MsgBox "Failed to import image."
Return
end if
call d.EndPage
call d.CloseFile
file.Launch
End EventHandler
End Class
MenuBar MenuBar1
MenuItem FileMenu = "&File"
MenuItem FileQuit = "#App.kFileQuit"
MenuItem EditMenu = "&Edit"
MenuItem EditUndo = "&Undo"
MenuItem UntitledMenu1 = "-"
MenuItem EditCut = "Cu&t"
MenuItem EditCopy = "&Copy"
MenuItem EditPaste = "&Paste"
MenuItem EditClear = "#App.kEditClear"
MenuItem UntitledMenu0 = "-"
MenuItem EditSelectAll = "Select &All"
End MenuBar
Class MyDynaPDFMBS Inherits DynaPDFMBS
EventHandler Function Error(ErrorCode as integer, ErrorMessage as string, ErrorType as integer) As integer
// output all messages on the console:
System.DebugLog str(ErrorCode)+": "+ErrorMessage
// and display dialog:
Dim d as New MessageDialog //declare the MessageDialog object
Dim b as MessageDialogButton //for handling the result
d.icon=MessageDialog.GraphicCaution //display warning icon
d.ActionButton.Caption="Continue"
d.CancelButton.Visible=True //show the Cancel button
// a warning or an error?
if BitAnd(ErrorType, me.kE_WARNING) = me.kE_WARNING then
// if user decided to ignore, we'll ignore
if IgnoreWarnings then Return 0
d.Message="A warning occurred while processing your PDF code."
// we add a third button to display all warnings
d.AlternateActionButton.Caption = "Ignore warnings"
d.AlternateActionButton.Visible = true
else
d.Message="An error occurred while processing your PDF code."
end if
d.Explanation = str(ErrorCode)+": "+ErrorMessage
b=d.ShowModal //display the dialog
Select Case b //determine which button was pressed.
Case d.ActionButton
Return 0 // ignore
Case d.AlternateActionButton
IgnoreWarnings = true
Return 0 // ignore
Case d.CancelButton
Return -1 // stop
End select
End EventHandler
Property IgnoreWarnings As Boolean
End Class