PureBasic Forums - English

Code: Select all

    If Fonts()\cidtogidmap
      FreeMemory(Fonts()\cidtogidmap) ; Release cidtogidmap memory
      Fonts()\cidtogidmap=0
    EndIf
  Next

Code: Select all

pdf_ASCII85_Encode()

Code: Select all

ForEach sTxt()

      pdf_SetX(113)
      dY = pdf_GetY()

      pdf_MultiCell(174,5,sTxt()\t5,1,#PDF_ALIGN_LEFT,1,0)
      
      iH = (5 * pdf_GetMultiCellNewLines())
      
      pdf_SetX(10)
      pdf_SetY(dY)
      
      pdf_Cell(25,iH,sTxt()\t1,1,#PdfNextLocnRight,#PDF_ALIGN_LEFT,1,0) 
      pdf_Cell(20,iH,sTxt()\t2,1,#PdfNextLocnRight,#PDF_ALIGN_LEFT,1,0)   
      pdf_Cell(40,iH,sTxt()\t3,1,#PdfNextLocnRight,#PDF_ALIGN_LEFT,1,0)   
      pdf_Cell(18,iH,sTxt()\t4,1,#PdfNextLocnNewLine,#PDF_ALIGN_LEFT,1,0)
Next

Code: Select all

#PurePDF_Include=1
XIncludeFile "PurePDF.pb"

pdf_Create()
pdf_AddPage()
pdf_SetFont("Arial","U",16)

pdf_SetFillColor(224,235,255) 
pdf_SetTextColor(0,0,255) 

Define link = pdf_Addlink()
pdf_SetAText(link,-1,-1,"This is a text annotation","Text annotation",Date(),"",#PDF_AF_NOVIEW|#PDF_AF_TOGGLENOVIEW)
pdf_Cell(60,10,"Text annotation!",1,1,#PDF_ALIGN_LEFT,#True,link)

pdf_Ln()

link = pdf_Addlink() 
pdf_SetAPopUp(link,-1,-1,"This is a pop-up annotation"+Chr(13)+"Klick to see Pop-up!","Pop-up annotation",50,50,Date(),"",#PDF_AF_NOVIEW|#PDF_AF_TOGGLENOVIEW)
pdf_Cell(60,10,"Pop-up annotation!",1,1,#PDF_ALIGN_LEFT,#True,link)

pdf_Ln()

link = pdf_Addlink() 
pdf_SetALaunch(link,-1,-1,"calc.exe","","O","")
pdf_Cell(60,10,"Launch action!",1,1,#PDF_ALIGN_LEFT,#True,link)

Define file$="Tutorial29 Annotations+Actions.pdf"

pdf_Save(file$)
RunProgram(file$)