the last line shoudn't be bold, but it is, though.
Code: Select all
file$=GetTemporaryDirectory() + "fonttest.pdf"
#PurePDF_Include=1
XIncludeFile "PurePDF.pb"
pdf_Create()
pdf_AddPage()
pdf_SetFont("Arial","B",12)
pdf_Text(10,30,"This should be Arial, bold")
pdf_SetFont("Arial","", 12)
pdf_Text(10,50,"This should be Arial, not bold")
pdf_SetFont("Times New Roman", "B", 12)
pdf_Text(10,70,"This should be Times New Roman, bold")
pdf_SetFont("Times New Roman", "", 12)
pdf_Text(10,90,"This should be Times New Roman, not bold")
pdf_Save(file$)
RunProgram(file$)