Platforms to show: All Mac Windows Linux Cross-Platform
/DynaPDF/DynaPDF Graphics/DynaPDF Graphics Desktop
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/DynaPDF Graphics/DynaPDF Graphics Desktop
This example is the version from Sun, 16th Jan 2021.
Project "DynaPDF Graphics Desktop.xojo_binary_project"
Class App Inherits Application
Const kEditClear = "&Delete"
Const kFileQuit = "&Quit"
Const kFileQuitShortcut = ""
End Class
Class Window1 Inherits Window
EventHandler Sub Open()
Dim pdf As New DynapdfMBS
Dim f1 As FolderItem = SpecialFolder.Desktop.Child("DynaPDF Graphics.pdf")
Dim f2 As FolderItem = SpecialFolder.Desktop.Child("DynaPDF Graphics.png")
Dim f3 As FolderItem = SpecialFolder.Desktop.Child("DynaPDF Graphics Rendered.png")
'pdf.SetLicenseKey "Starter" // For this example you can use a Starter, Lite, Pro or Enterprise License
If Not pdf.CreateNewPDF(f1) Then
Return
End If
Call pdf.Append
Dim g As Graphics = pdf.PageGraphics
draw g, pdf
// for debugging, show temp picture
Dim p As Picture = pdf.PageGraphicsPicture
p.Save(f2, Picture.Formats.PNG)
Call pdf.EndPage
If pdf.HasPro Then
Call pdf.RenderPageToImage(1, f3, 150, 0, 0, pdf.krfDefault, pdf.kpxfRGB, pdf.kcfFlate, pdf.kifmPNG)
End If
Call pdf.CloseFile
Dim pic As Picture = Picture.Open(f3)
backdrop = pic
End EventHandler
Sub draw(g as graphics, pdf as DynaPDFMBS = nil)
// this is normal code as you would use with graphics class anyway
// but we use GraphicsWrapper which can be DynaPDFGraphics, too.
// so graphics can go to printer, window, picture or PDF!
g.DrawingColor=&c777777
g.DrawRectangle 0,0,g.Width-1,g.Height-1
g.DrawingColor=&cFF0000
g.DrawRectangle 100,100,200,200
g.DrawLine 0,0,100,100
g.DrawingColor=&c000000
g.DrawText "Hello",150,150
g.DrawLine 100,100,200,200
g.DrawingColor=&c00FF00
g.FillOval 100,0,100,100
g.DrawingColor=&c0000FF
g.DrawOval 100,0,100,100
g.DrawingColor=&cFFFF00
g.FillRectangle 0,100,100,100
g.DrawingColor=&c000000
g.DrawRectangle 0,100,100,100
g.DrawingColor=&c00FF00
g.FillRoundRectangle 0,250,100,100,20,20
g.DrawingColor=&c000000
g.DrawRoundRectangle 0,250,100,100,20,20
g.DrawingColor = Color.RGB(100,200,255)
Dim path As New DynapdfGraphicsPathMBS
path.MoveToPoint 10, 10
path.AddLineToPoint 75, 30
path.AddLineToPoint 10, 125
path.AddLineToPoint 10, 10
g.FillPath path
g.DrawingColor = &c000000
g.DrawPath path
g.FontName = "Times"
g.FontSize = 12
g.DrawText "Hello World", 200, 100
g.Bold = True
g.DrawText "Bold", 300, 100
g.Bold = False
g.Italic = True
g.DrawText "Italic", 300, 120
g.Italic = False
g.Underline = True
g.DrawText "Underlined", 300, 140
g.Underline = False
g.DrawText "Just a test with wrapping", 300, 160, 100
g.DrawText "Just a test with condensed", 300, 200, 100, True
// test picture drawing
dim logo as Picture = LogoMBS(200)
g.DrawPicture logo, 200, 500
g.DrawPicture logo, 50, 500, 100, 200, 50, 50, 100, 100
// set a pixel
'g.Pixel(400,400)=&cFFFFFF
End Sub
End Class
MenuBar MainMenuBar
MenuItem FileMenu = "&File"
MenuItem FileQuit = "#App.kFileQuit"
MenuItem EditMenu = "&Edit"
MenuItem EditUndo = "&Undo"
MenuItem EditSeparator1 = "-"
MenuItem EditCut = "Cu&t"
MenuItem EditCopy = "&Copy"
MenuItem EditPaste = "&Paste"
MenuItem EditClear = "#App.kEditClear"
MenuItem EditSeparator2 = "-"
MenuItem EditSelectAll = "Select &All"
End MenuBar
End Project
See also:
- /DynaPDF/DynaPDF Graphics/DynaPDF Graphics
- /DynaPDF/DynaPDF Graphics/DynaPDF Graphics iOS
- /DynaPDF/DynaPDF Graphics/Reporting/List Of Orders with Background
- /DynaPDF/DynaPDF Graphics/Reporting/List Of Products Preview
- /DynaPDF/DynaPDF Graphics/Reporting/ListBoxReport
- /DynaPDF/DynaPDF Graphics/VectorGraphics
- /DynaPDF/DynaPDF Graphics/VectorGraphics Alignments
- /DynaPDF/DynaPDF Merge 2 to 1
- /DynaPDF/DynaPDF PDF Viewer
- /DynaPDF/DynaPDF transparent images/DynaPDF transparent images
The items on this page are in the following plugins: MBS DynaPDF Plugin.
