Buongiorno a tutti,
sto utilizzando la libreria PDFDocument per creare un PDF
Ho un problema sul render dei campi memo che ottengo con il codice seguente.
Ho chiesto aiuto per cambiare il TYPEFACE sui campi memo ed Erel mi ha risposto che devo usare il canvas vedendo un esempio nel seguente link
https://www.b4x.com/android/forum/threads/wordwrap-to-a-canvas.71712/#post-456049
Purtroppo non riesco a capire come fare.
qualcuno può aiutarmi per favore?
sto utilizzando la libreria PDFDocument per creare un PDF
Ho un problema sul render dei campi memo che ottengo con il codice seguente.
Ho chiesto aiuto per cambiare il TYPEFACE sui campi memo ed Erel mi ha risposto che devo usare il canvas vedendo un esempio nel seguente link
https://www.b4x.com/android/forum/threads/wordwrap-to-a-canvas.71712/#post-456049
Purtroppo non riesco a capire come fare.
qualcuno può aiutarmi per favore?
B4X:
Sub MakePDF
Dim PDF1 As PDFDocument
Dim PDF_PAGEINFO As PageInfo
Dim PDF_RECT As Rect
Dim ptLeft, ptwidth As Int
Dim ptTop, ptHeight As Int
Dim Fsize As Int
ptLeft = 5
ptTop = 5
ptwidth = 200
ptHeight = 50
Fsize = 10 / GetDeviceLayoutValues.Scale
PDF_RECT.Initialize(10,10,595-20,842-20) 'bordo di 10
PDF_PAGEINFO.Initialize(595,842,1,PDF_RECT)
Dim PDF_Page As Page = PDF1.startPage(PDF_PAGEINFO)
Dim Txtmemo As String
Txtmemo = $"
Questo è un esempio di stringa multi riga
${DateTime.Date(DateTime.Now)} ${DateTime.Time(DateTime.Now)}
----------------------------------------------
Riga 1
Riga 2
Riga 3
==============================================
Fine"$
Dim PDF_TextRec As TextRec
PDF_TextRec.Initialize(Txtmemo,ptwidth,822,ptHeight,Colors.DarkGray)
'I NEED HERE to USE a MY Typeface for TextRec Object
' IS this possible??
PDF_TextRec.draw(PDF_Page,0,0)
PDF1.finishPage(PDF_Page)
PDF1.writeTo(File.DirRootExternal,"TestPdfDocument.pdf")
End Sub