PureBasic Forum

; ===== Commands ==================
; PDF::AcceptPageBreak()        - Accept automatic page break or not.
; PDF::Addlink()                - Creates a new internal link and returns its identifier.
; PDF::AddPage()                - Adds a new page to the document.
; PDF::BookMark()               - Add bookmark
; PDF::Cell()                   - Prints a cell (rectangular area) with optional borders, background color and character string.
; PDF::DrawCircle()             - Draw circle
; PDF::DisplayPreferences()     - Set viewer preferences
; PDF::DrawEllipse()            - Draw ellipse
; PDF::GetErrorCode()           - Return the error code.
; PDF::GetErrorMessage()        - Return the error message.
; PDF::GetFontSize()            - Get current fontsize.
; PDF::GetMultiCellNewLines()   - Get the last value of newlines for pdf_MultiCell()
; PDF::GetNumbering()           - Return if numbering is #True/#False. Usefull for TOC functions
; PDF::GetNumberingFooter()     - Return if numbering in footer is #True/#False. Usefull for TOC functions
; PDF::Image()                  - Puts an image in the page.
; PDF::ImageMem()               - Puts an image from memory in the page.
; PDF::IncludeFileJS()          - Include JavaScript file
; PDF::IncludeJS()              - Add JavaScript code
; PDF::InsertTOC()              - Insert table of contents.
; PDF::DrawLine()               - Draws a single line between two points.
; PDF::Link()                   - Puts a link on a rectangular area of the page.
; PDF::Ln()                     - Performs a line break.
; PDF::MultiCell()              - This method allows printing text with line breaks.
; PDF::MultiCellBlt()           - Add multicell with bullet
; PDF::NumPageNum()             - Get TOC page number
; PDF::PathArc()                - Draws a cubic Bezier curve to the current path.
; PDF::PathBegin()              - Begins a new path at the coordinates (x, y).
; PDF::PathEnd()                - Closes the current path and draws a line from the current point to the starting point.
; PDF::PathLine()               - Draws a line from the current point to (x, y).
; PDF::PathRect()               - Draws a rectangle to the current path with upper-left corner (x, y) and dimensions (w, h).
; PDF::Rect()                   - Outputs a rectangle.
; PDF::ResetBookMark()          - Reset bookmarks for new document
; PDF::RoundRect()              - Outputs a rounded rectangle.
; PDF::Rotate()                 - Perform a rotation around a given center.
; PDF::Save()                   - Save PDF to filename.
; PDF::ScaleX()                 - Scaling X
; PDF::ScaleY()                 - Scaling Y
; PDF::ScaleXY()                - Scaling XY
; PDF::Sector()                 - Draw the sector of a circle.
; PDF::SetAFile()               - Defines the page and position for file annotations.
; PDF::SetALaunch()             - Defines the page and position for a launch action.
; PDF::SetAPopUp()              - Defines the page and position for PopUp annotations.
; PDF::SetAText()               - Defines the page and position for text annotations.
; PDF::SetDrawColor()           - Set color for all stroking operations.
; PDF::SetFillColor()           - Set color for all filling operations.
; PDF::SetLineWidth()           - Defines the line width.
; PDF::SetLink(                 - Defines the page and position a link points to.:
; PDF::SetDash()                - Set a dash pattern And draw dashed lines Or rectangles.
; PDF::SetFont()                - Sets the font used to print character strings.
; PDF::SetFontSize()            - Defines the size of the current font.
; PDF::SetTextColor()           - Set color for text.
; PDF::SetNumberingFooter()     - Set footer numbering true/false.
; PDF::SetX()                   - Defines the abscissa of the current position.
; PDF::SetY()                   - Moves the current abscissa back to the left margin and sets the ordinate.
; PDF::SetXY()                  - Defines the abscissa and ordinate of the current position.
; PDF::StartPageNums()          - Start TOC page numbering.
; PDF::StopPageNums()           - Stop TOC page numbering.
; PDF::SubWrite()               - Write superscripted or supscripted
; PDF::Text()                   - Prints a character string.
; PDF::TOCEntry()               - Set TOC entry
; PDF::Triangle()               - Draw Triangle
; PDF::TruncateCell()           - Prints a Cell, if text is too large it will be truncated
; PDF::Write()                  - This method prints text from the current position.
; PDF::SetProcHeader()          - Set header procedure.
; PDF::SetProcFooter()          - Set footer procedure.
; PDF::SetProcAcceptPageBreak() - Set acceptpagebreak procedure.
; PDF::SetProcCompression()     - Set compression procedure.
; PDF::SetTitle()               - Defines the title of the document.
; PDF::SetAuthor()              - Defines the author of the document.
; PDF::SetKeywords()            - Associates keywords with the document, generally in the form 'keyword1 keyword2 ...'.
; PDF::SetCreator()             - Defines the creator of the document.
; PDF::AliasNbPages()           - Defines an alias for the total number of pages.
; PDF::GetPageNum()              - Returns the current page number.
; PDF::GetPosX()                - Returns the abscissa of the current position.
; PDF::GetPosY()                - Returns the ordinate of the current position.
; PDF::Create()                 - Begin document.
; PDF::SetDisplayMode()         - Set display mode in viewer.
; PDF::SetAutoPageBreak()       - Set auto page break mode and triggering margin.
; PDF::SetMargins()             - Set left, top and right margins.
; PDF::SetTopMargin()           - Set top margin.
; PDF::SetRightMargin()         - Set right margin.
; PDF::SetCellMargin()          - Set cell margin.
; PDF::SetLeftMargin()          - Set left margin.
; PDF::EmbedFile()              - Embeds a file into the pdf.
; PDF::GetStringWidth()         - Get width of a string in the current font.
; PDF::TextString(String$)      - Format a text string.
; PDF::GetCMargin()             - Get cell margin.
; PDF::GetRMargin()             - Get right margin.
; PDF::GetLMargin()             - Get left margin.
; PDF::GetWordSpacing()         - Get word spacing.
; PDF::SetWordSpacing()         - Set word spacing.
; PDF::GetWidth()               - Get current width of page.
; PDF::GetHeigth()              - Get current height of page.
; PDF::GetScaleFactor()         - Get scale factor.
; PDF::GetObjNum()              - Get object number
; PDF::GetFontSizePt()          - Get current fontsize in points.
; PDF::StartTransform()         - Use this before calling any transformation. (Scale, Skew, Mirror, Translate)
; PDF::StopTransform()          - Restore the normal painting and placing behaviour as it was before calling pdf_StartTransform().
; PDF::Translate()              - Translate -> right/bottom
; PDF::TranslateX(TX.f)         - Translate -> right
; PDF::TranslateY(TY.f)         - Translate -> bottom
; PDF::SkewX()                  - Skewing (angle x)
; PDF::SkewY()                  - Skewing (angle y)
; PDF::MirrorH()                - Alias for scaling -100% in x direction
; PDF::MirrorV()                - Alias For scaling -100% in y direction.
; PDF::SetLineCap()             - Sets the line cap style
; PDF::SetLineJoin()            - Sets the line join style.
; PDF::SetTextColorCMYK()       - Set Textcolor CMYK
; PDF::SetDrawColorCMYK()       - Set Drawcolor CMYK
; PDF::SetFillColorCMYK()       - Set Fillcolor CMYK
; PDF::ASCII85_Decode()         - Decodes an ASCII85 encoded buffer.
; PDF::ASCII85_Encode()         - Encodes data to ASCII85-
; PDF::ASCII85_Free()           - Frees a Databuffer that was allocated with PDF::ASCII85_Encode().
; =================================

XIncludeFile "PurePdfModule.pbi"

Define file$="Tutorial01 Hello World.pdf"

UseModule PDF

PDF::Create()
PDF::AddPage()
PDF::SetFont("Arial","B",16)
PDF::Cell(40,10,"Hello World!",1)
PDF::Save(file$)

RunProgram(file$)

XIncludeFile "PurePdfModule.pbi"

UseModule PDF

Procedure Header()
  PDF::SetFont("Arial","B",15)
  PDF::Cell(80)
  PDF::Cell(30,10,"Title",1,0, PDF::#ALIGN_CENTER)
  PDF::Ln(20)
EndProcedure

Procedure Footer()
  PDF::SetY(-15)
  PDF::SetFont("Arial","I",8)
  PDF::Cell(0,10,"Page "+Str(PDF::GetPageNum())+"/{nb}",0,0,PDF::#ALIGN_CENTER)
EndProcedure

Define file$="Tutorial02 Header-Footer.pdf"
Define i

PDF::Create()
PDF::SetProcFooter(@Footer())
PDF::SetProcHeader(@Header())
PDF::AliasNbPages();

PDF::AddPage();
PDF::SetFont("Times","",12);

For i = 1 To 40
  PDF::Cell(0,10,"Printing line number "+Str(i),0,1);
Next

PDF::Save(file$)
RunProgram(file$)

Structure MEM_DataStructure
   pData.i       ; Pointer to memory
   lMaxSize.i    ; Max. reserved memory in bytes
   lCurSize.i    ; Current last possition of data in bytes
 EndStructure