Xojo Developer Conference
25/27th April 2018 in Denver.
MBS Xojo Conference
6/7th September 2018 in Munich, Germany.
25/27th April 2018 in Denver.
MBS Xojo Conference
6/7th September 2018 in Munich, Germany.
Platforms to show: All Mac Windows Linux Cross-Platform
/DynaPDF/Create PDF with Picture and Mask
Function:
Required plugins for this example: MBS DynaPDF Plugin, MBS Main Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /DynaPDF/Create PDF with Picture and Mask
This example is the version from Sun, 17th Mar 2012.
Function:
Required plugins for this example: MBS DynaPDF Plugin, MBS Main Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /DynaPDF/Create PDF with Picture and Mask
This example is the version from Sun, 17th Mar 2012.
Project "Create PDF with Picture and Mask.rbp"
Class App Inherits Application
Const kEditClear = "&Delete"
Const kFileQuit = "&Quit"
Const kFileQuitShortcut = ""
EventHandler Sub Open()
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 and Mask.pdf")
call d.CreateNewPDF file
call d.Append
// fill background black
call d.SetFillColor(0)
call d.Rectangle(0,0,d.GetPageWidth,d.GetPageHeight,d.kfmFill)
// no recompressing
call d.SetSaveNewImageFormat(false)
// get picture
dim p as Picture = LogoMBS(500)
// get mask
dim m as new Picture(500, 500, 32)
m.Graphics.ForeColor = &cFFFFFF
m.Graphics.FillRect 0,0,500,500
m.Graphics.ForeColor = &c000000
m.Graphics.FillOval 0,0,500,500
dim x,y,w,h as integer
dim f as Double
dim dw as integer = d.GetPageWidth-100
dim dh as integer = d.GetPageHeight-100
// scale to fit the page size
f=min(dw/p.Width, dh/p.Height)
w=f*p.Width
h=f*p.Height
x=50+(dw-w)/2
y=50+(dh-h)/2
// add image to pdf
call d.InsertPicture(p, m, x, y, w, h)
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
End Project
See also:
- /DynaPDF/Create and print PDF
- /DynaPDF/Create numbered pages
- /DynaPDF/Create PDF
- /DynaPDF/Create PDF and Email
- /DynaPDF/Create PDF and modify XMP
- /DynaPDF/Create PDF and show in HTMLViewer
- /DynaPDF/Create PDF and sign
- /DynaPDF/Create PDF console
- /DynaPDF/Create PDF in memory
- /DynaPDF/Create PDF with Angle Rectangles
- /DynaPDF/Create PDF with Angle Text
- /DynaPDF/Create PDF with Annotations
- /DynaPDF/Create PDF with Arabic
- /DynaPDF/Create PDF with Arabic and Ligatures
- /DynaPDF/Create PDF with Arc
- /DynaPDF/Create PDF with bezier curve
- /DynaPDF/Create PDF with Bookmarks
- /DynaPDF/Create PDF with centimeters
- /DynaPDF/Create PDF with Circle
- /DynaPDF/Create PDF with Circle Text
- /DynaPDF/Create PDF with CMYK
- /DynaPDF/Create PDF with Custom Signature
- /DynaPDF/Create PDF with Czech
- /DynaPDF/Create PDF with Dashed Line
- /DynaPDF/Create PDF with demo string
- /DynaPDF/Create PDF with DeviceN Colorspace
- /DynaPDF/Create PDF with DeviceN Colorspace 2
- /DynaPDF/Create PDF with DeviceN Colorspace 3
- /DynaPDF/Create PDF with DeviceN Colorspace 4
- /DynaPDF/Create PDF with embedded font
- /DynaPDF/Create PDF with Errors
- /DynaPDF/Create PDF with FileLink
- /DynaPDF/Create PDF with Glyphs
- /DynaPDF/Create PDF with hidden data
- /DynaPDF/Create PDF with Highlight
- /DynaPDF/Create PDF with japanese font
- /DynaPDF/Create PDF with LAB color
- /DynaPDF/Create PDF with Layers
- /DynaPDF/Create PDF with Layers Languages
- /DynaPDF/Create PDF with Line
- /DynaPDF/Create PDF with list
- /DynaPDF/Create PDF with named destination
- /DynaPDF/Create PDF with object2d
- /DynaPDF/Create PDF with over 2 GB size
- /DynaPDF/Create PDF with page wrap
- /DynaPDF/Create PDF with paths
- /DynaPDF/Create PDF with Picture
- /DynaPDF/Create PDF with Picture file
- /DynaPDF/Create PDF with Picture files
- /DynaPDF/Create PDF with Picture with transparency
- /DynaPDF/Create PDF with PictureMBS
- /DynaPDF/Create PDF with restrictions
- /DynaPDF/Create PDF with restrictions web
- /DynaPDF/Create PDF with Round Rectangles
- /DynaPDF/Create PDF with SetFillColor
- /DynaPDF/Create PDF with SetFillColorEx
- /DynaPDF/Create PDF with Signature on Windows
- /DynaPDF/Create PDF with subscript and superscript
- /DynaPDF/Create PDF with sum form field
- /DynaPDF/Create PDF with text block
- /DynaPDF/Create PDF with text block fonts
- /DynaPDF/Create PDF with text styles
- /DynaPDF/Create PDF with Trace
- /DynaPDF/Create PDF with transparency
- /DynaPDF/Create PDF with vertical text
- /DynaPDF/Create PDF with Zapf Dingbats
- /DynaPDF/Create PDFX
- /DynaPDF/Create Previews for folder
The items on this page are in the following plugins: MBS DynaPDF Plugin.
Links
MBS Xojo Plugins