Type=Class
Version=1.8
B4J=true
@EndOfDesignText@
'Class module
Sub Class_Globals
	Private fx As JFX
	'Pdf
	Private LastSelectedDir As String
	Private PDFjetConstants1 As PDFjetConstants
	Private PDFjetPDF1 As PDFjetPDF

End Sub

'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize
    OpenFile
End Sub
Sub OpenFile
    Dim nLines As Int
	Dim nLinePosition As Int '= 10

	Dim PDFjetPDF1 As PDFjetPDF=CreateBasePDFDocument

	Dim PDFTextLine As PDFjetTextLine

	Dim PDFPage As PDFjetPage
	PDFPage.Initialize(PDFjetPDF1, PDFjetConstants1.PageSize.A4_PORTRAIT)

	Dim cText As String
	Dim TextReader1 As TextReader
	TextReader1.Initialize2(File.OpenInput(File.DirApp, "suppliers.txt"), "UTF-8")
	
	cText=TextReader1.ReadLine

	Dim FileContentsFont As PDFjetFont
	FileContentsFont.Initialize(PDFjetPDF1, PDFjetConstants1.CoreFont.COURIER)

	Do While cText<>Null
	   PDFTextLine.Initialize(FileContentsFont)
	   PDFTextLine.SetColor(PDFjetConstants1.Color.Blue)
	   PDFTextLine.SetPosition(10, nLinePosition + FileContentsFont.GetHeight)
	   PDFTextLine.SetText(cText & " " & nLines)
	   PDFTextLine.DrawOn(PDFPage)

	   nLinePosition = nLinePosition + 10
	   nLines = nLines + 1

	   cText=TextReader1.ReadLine
	   cText = cText 
	Loop
	TextReader1.Close
    nLinePosition = PDFPage.GetHeight -  FileContentsFont.GetHeight -10
	
    PDFTextLine.Initialize(FileContentsFont)
	PDFTextLine.SetColor(PDFjetConstants1.Color.red)
    
	PDFTextLine.SetPosition(280, nLinePosition + FileContentsFont.GetHeight)

'	PDFTextLine.SetPosition(nCentreText, nLinePosition + TrailerFont.GetHeight)
	PDFTextLine.SetText("Number of lines in suppliers.txt is " & nLines)
	PDFTextLine.DrawOn(PDFPage)
	
	PDFjetPDF1.Close
End Sub
Sub PDFjetPDF1_CloseComplete(Success As Boolean)
	If Success Then
	    Log("success")
	Else
		Log("An error has occurred and creation of the PDF document has failed")
	End If
End Sub
Sub CreateBasePDFDocument As PDFjetPDF
	Dim PDFDestination As OutputStream
	PDFDestination=File.OpenOutput(LastSelectedDir, "Mvula.pdf", False)
	
	PDFjetPDF1.Initialize("PDFjetPDF1", PDFDestination)
	PDFjetPDF1.SetAuthor("Martin Pearman")
	PDFjetPDF1.SetSubject("jPDFjet Examples")
	
	Return PDFjetPDF1
End Sub