'
' Test of PDF wrapper
'
Uses "Console", "Math"
#INCLUDE "fileformat_pdf.tBasicU"
Function TBMain()
' -- Initialize library
pdf_InitLibrary()
' -- Create document
String sPDFFile = APP_SourcePath + "Test.pdf"
tPdfDocument hDocument = pdf_CreateDocument()
' -- Font used
String fArialName = pdf_GetFontNameFromTTF(hDocument, "C:\Windows\Fonts\arial.ttf", TRUE)
tPdfFont fArial = pdf_CreateFont(hDocument, fArialName , "CP1250")
' -- Create page and retrieve the dimensions
tPdfPage hPage
tPdfNumber nHeight, nWidth
hPage = pdf_AddPage(hDocument)
pdf_GetPageSize(hPage, nWidth, nHeight)
' -- Create content - the coordinates are as in math:
' -- 0,0 is lower left corner
' -- Draw rectangle, with different contour and content
pdf_SetStrokeColor(hPage, Rgb(96,96,96))
pdf_SetFillColor(hPage, Rgb(224,224,224))
pdf_DrawRectangle(hPage, 10, nHeight-10, nWidth-20, nHeight-20)
' -- Draw cross inside it, using 3px orange line
pdf_SetStrokeColor(hPage, Rgb(255,128,64))
pdf_SetLineWidth(hPage, 3)
pdf_DrawLine(hPage, 10, 10, nWidth-10, nHeight-10)
pdf_DrawLine(hPage, 10, nHeight-10, nWidth-10, 10)
' -- Write text
Long i
pdf_SetFillColor(hPage, Rgb(0, 0, 0))
For i = 1 To 8
pdf_SetFont (hPage, fArial, 10+i*2)
pdf_PrintText(hPage, 225, nHeight-20-i*(10+i*2), "Hello ThinBASIC!")
Next
' -- Draw polygon
Long radius
For radius = 160 To 10 Step - 10
pdf_SetColor(hPage, Rgb(Rnd(128,255), Rnd(128,255), Rnd(128,255)))
pdf_BeginPoly(hPage, nWidth/2, nHeight/2)
For i = 0 To 360 Step 60
pdf_AddPoly(hPage, nWidth/2+Cos(DegToRad(i))*radius, nHeight/2+Sin(DegToRad(i))*radius)
Next
pdf_EndPoly(hPage, TRUE)
Next
' -- Draw image
pdf_DrawImage(hDocument, hPage, nWidth/2-64, nHeight/2-256, APP_SourcePath+"picture.png", 128, 128 )
' -- Save to disk
pdf_SaveDocument(hDocument, sPDFFile)
PrintL
PrintL "File saved as:"
PrintL sPDFFile
PrintL
PrintL "Press any key to quit..."
WaitKey
' -- Release document from memory
pdf_ReleaseDocument(hDocument)
' -- Release library
pdf_ReleaseLibrary()
End Function
You can download the converted headers + my special wrapper + sample code from the attachement of this post. I hope you will find use for it.
Bookmarks