Italian PDFDocument aggiunta Campo Memo

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

'Questa sub ti serve per disegnare la canvas e la piazzi al di fuori della creazione del Pdf
Sub DrawView (cvs As Canvas, v As View)
   Dim cjo As JavaObject = cvs
   Dim jv As JavaObject = v
   jv.RunMethod("draw", Array(cjo.GetFieldJO("canvas")))
End Sub



'Questo lo metti dove commenti il tuo codice per il typeface
Dim MioFont As Typeface
MioFont = Typeface.LoadFromAssets("MioFont.ttf") 'Ci metti il font che carichi dall'asset
EditTesto.Typeface = MioFont

'Edit (Mancava la dim dell'edittext)
Dim EditTesto As EditText
EditTesto.Initialize("")
EditTesto.SingleLine=False
EditTesto.Text="Testo"&CRLF&"PDF"&CRLF&"Multilinea per Canvas View"

'Disegni il canvas
Dim c As Canvas
c.Initialize(Activity)
DrawView(c, EditTesto)

' Process_Globals
Private default_font, default_font_bold, default_font_italic As Typeface 'ignore

SetFont(FontFileName) ' <--- qui chiaramente devi mettere il nome del file del tuo font

Private Sub SetFont(FontFileName As String)
   default_font = Typeface.LoadFromAssets(FontFileName) 'ignore
   default_font_bold =   Typeface.CreateNew(default_font, default_font.STYLE_BOLD)
   default_font_italic = Typeface.CreateNew(default_font, default_font.STYLE_ITALIC)
End Sub

Public Sub SetViewTextFont(Vw As View, FontFileName As String)
   If Vw Is Label Then
       SetFont(FontFileName)
       Dim lbl As Label = Vw
       lbl.Typeface = default_font
   Else if Vw Is EditText Then
       SetFont(FontFileName)
       Dim et As EditText = Vw
       et.Typeface = default_font
   Else
       Log("SetViewTextFont - not a valid view. Pass labels or edittexts")
   End If
End Sub

Dim mlStr as String =$"
Riga 1
                                                       Riga 2
      Riga 3
=============================================
"$