Added support for UTF and for loading of TTF fonts

pdf.mod/common.bmx

@@ -60,6 +60,8 @@ Extern
 	Function HPDF_GetCurrentEncoder:Byte ptr(handler:Byte Ptr, encodingName:Byte Ptr)
 	Function HPDF_SetCurrentEncoder:ULongInt(handler:Byte Ptr, encodingName:Byte Ptr)
 	Function HPDF_LoadRawImageFromMem:Byte Ptr(handler:Byte Ptr, buf:Byte Ptr, width:UInt, height:UInt, colorSpace:EPDFColorSpace, bitsPerComponent:UInt)
+	Function HPDF_UseUTFEncodings(handler:Byte Ptr)
+	Function HPDF_LoadTTFontFromFile:Byte Ptr(handler:Byte Ptr, path:Byte Ptr, embedding:Int)
 
 	Function HPDF_Page_BeginText:ULongInt(handle:Byte Ptr)
 	Function HPDF_Page_EndText:ULongInt(handle:Byte Ptr)

pdf.mod/examples/load_font.bmx

@@ -0,0 +1,22 @@
+Framework Text.PDF
+
+Local pdf:TPDFDoc = New TPDFDoc()
+
+Local font:TPDFFont = pdf.GetFont(pdf.LoadTTFontFromFile("FallingSky.ttf"))
+
+Local page:TPDFPage = pdf.AddPage()
+page.SetWidth(200)
+page.SetHeight(200)
+page.SetFontAndSize(font, 24)
+
+Local text:String = "Testing"
+
+Local tw:Float = page.TextWidth(text)
+
+page.BeginText()
+page.TextOut((page.GetWidth() - tw) / 2, (page.GetHeight() - 26) / 2 , text)
+page.EndText()
+
+pdf.Save("load_font.pdf")
+
+pdf.Free()

pdf.mod/examples/utf.bmx

@@ -0,0 +1,23 @@
+Framework Text.PDF
+
+Local pdf:TPDFDoc = New TPDFDoc()
+pdf.UseUTFEncodings()
+
+Local font:TPDFFont = pdf.GetFont(pdf.LoadTTFontFromFile("FallingSky.ttf", true), "UTF-8")
+
+Local page:TPDFPage = pdf.AddPage()
+page.SetWidth(200)
+page.SetHeight(200)
+page.SetFontAndSize(font, 24)
+
+Local text:String = "Testing åäö ÅÄÖ"
+
+Local tw:Float = page.TextWidth(text)
+
+page.BeginText()
+page.TextOut((page.GetWidth() - tw) / 2, (page.GetHeight() - 26) / 2 , text)
+page.EndText()
+
+pdf.Save("utf.pdf")
+
+pdf.Free()

pdf.mod/pdf.bmx

@@ -64,7 +64,22 @@ Type TPDFDoc
 	Function GetLastError:TPDFException()
 		Return lastError
 	End Function
-
+
+	Rem
+	bbdoc: Load TrueType font from external .ttf file and register it in the document object.
+	about:
+	<a href="../examples/load_font.bmx">Example source</a>
+	EndRem
+	Method LoadTTFontFromFile:String(path:String, embedding:Int=True)
+		Local pb:Byte Ptr = path.ToCString()
+		Local fb:Byte Ptr = HPDF_LoadTTFontFromFile(docPtr, pb, embedding)
+		MemFree(pb)
+
+		Local f:String = String.FromCString(fb)
+
+		Return f
+	EndMethod
+
 	Rem
 	bbdoc: Gets the requested font object.
 	returns: Returns the handle of a font object. Otherwise, it returns #Null and error-handler is called.
@@ -387,6 +402,15 @@ An application can change the setting of a pages tree by invoking #SetPagesConfi
 	Method UseCNTFonts:Int()
 		Return HPDF_UseCNTFonts(docPtr)
 	End Method
+
+	Rem
+	bbdoc: Enables UTF support for better text rendering when using non-ascii characters.
+	about:
+	<a href="../examples/utf.bmx">Example source</a>
+	EndRem
+	Method UseUTFEncodings()
+		HPDF_UseUTFEncodings(docPtr)
+	EndMethod
 
 	Rem
 	bbdoc: Sets the text of an info dictionary attribute, using current encoding of the document.

pdf.mod/source.bmx

@@ -35,6 +35,7 @@ Import "libharu/src/hpdf_encoder_cns.c"
 Import "libharu/src/hpdf_encoder_cnt.c"
 Import "libharu/src/hpdf_encoder_jp.c"
 Import "libharu/src/hpdf_encoder_kr.c"
+Import "libharu/src/hpdf_encoder_utf.c"
 Import "libharu/src/hpdf_encoder.c"
 Import "libharu/src/hpdf_encrypt.c"
 Import "libharu/src/hpdf_encryptdict.c"