MBS Xojo Plugin Tutorial Videos
Letter Source
Deprecated: The each() function is deprecated. This message will be suppressed on further calls in /kunden/macsw.de/webseiten/monkeybreadsoftware-video/rbformat/rbcode.php on line 244
Class App
Inherits Application
// Constants
Const kFileQuitShortcut = Ctrl+Q
Const kFileQuit = E&xit
Const kEditClear = &Delete
// Event implementations
Sub Open()
dim pdf as new MyDynaPDF
dim outfile as FolderItem
outfile=GetFolderItem("test.pdf")
call pdf.CreateNewPDF outfile
call pdf.OpenImportFile GetFolderItem("letter.pdf"), pdf.kptOpen, ""
pdf.template=pdf.ImportPage(1)
call pdf.SetPageCoords pdf.kpcTopDown
call pdf.append
call pdf.PlaceTemplate pdf.template, 0, 0, pdf.GetPageWidth, pdf.GetPageHeight
call pdf.SetFont "Times", pdf.kfsNone, 14, true, pdf.kcp1252
call pdf.SetTextRect 130,240,pdf.GetPageWidth-180,pdf.GetPageHeight-350
call pdf.WriteFText pdf.ktaJustify, window1.EditField1.Text
call pdf.EndPage
call pdf.CloseFile
outfile.Launch true
quit
End Sub
End Class
Class Window1
Inherits Window
// Controls
ControlInstance
End ControlInstance
End Class
Class MyDynaPDF
Inherits DynaPDFMBS
// Properties
Dim template As Integer
// Event implementations
Function Error(ErrorCode as integer, ErrorMessage as string, ErrorType as integer) As integer
MsgBox ErrorMessage
End Function
Function PageBreak(LastPosX as double, LastPosY as double, PageBreak as boolean) As integer
call EndPage
call append
call SetPageCoords kpcTopDown
call PlaceTemplate template, 0,0, GetPageWidth, GetPageHeight
Return 0
End Function
End Class
Links
MBS Xojo Chart Plugins