PC Toledo

Código: Selecionar todos

HPDF_Page_CreateURILinkAnnot(page, x_left, y_bottom, x_right, y_top, "http://www.exemplo.com", HPDF_AnnotBorderStyle.SOLID, HPDF_AnnotHighlightMode.INVERT, NULL, 12, [0, 0, 255]);

Código: Selecionar todos

border_style := HPDF_AnnotBorderStyle.DASHED;
hilight_mode := HPDF_AnnotHighlightMode.NONE;
HPDF_Page_CreateURILinkAnnot(page, x_left, y_bottom, x_right, y_top, "http://www.exemplo.com", border_style, hilight_mode, NULL, 10, [0, 128, 0]);

Código: Selecionar todos

font := HPDF_GetFont(doc, "Helvetica-Bold", NULL);
HPDF_Page_CreateURILinkAnnot(page, x_left, y_bottom, x_right, y_top, "http://www.exemplo.com", HPDF_AnnotBorderStyle.BEVELED, HPDF_AnnotHighlightMode.OUTLINE, font, 14, [255, 0, 0]);

Código: Selecionar todos

local coords := {50, 50, 150, 75}
HPDF_Page_CreateURILinkAnnot(page, coords, "http://www.exemplo.com", HPDF_AnnotBorderStyle.SOLID, HPDF_AnnotHighlightMode.INVERT, NULL, 12, [0, 0, 255])

Código: Selecionar todos

#require "hbhpdf"



#include 'harupdf.ch'
#include "minigui.ch"



#define rLEFT   1
#define rTOP    2
#define rRIGHT  3
#define rBOTTOM 4

Memvar MyPdf, cpos
*------------------------------------------------------------------------*
Function Main( cFileToSave )
*------------------------------------------------------------------------*
   default( cFileToSave ) to 'TestHaru.pdf'
   Public MyPdf:= cFileToSave
   SET AUTOADJUST ON


DEFINE WINDOW mh ;
  AT 0,0 ;
  WIDTH  300;
  HEIGHT 200  ; 
  TITLE "Link no PDF" ;
  MAIN
  
  @ 20 , 20 ButtonEX Botao_Criar CAPTION "Criar PDF"  WIDTH 100 HEIGHT 30 ACTION Generate(MyPdf)
  @ 80 , 20 ButtonEX Botao_Ver CAPTION "Abrir PDF"  WIDTH 100 HEIGHT 30 ACTION view( Mypdf )


END WINDOW

CENTER WINDOW mh
ACTIVATE WINDOW mh


















Return Nil

*------------------------------------------------------------------------*
Function Generate( cFileToSave )
*------------------------------------------------------------------------*
   If file(cFileToSave)
      Ferase(cFileToSave)
   Endif
   if DesignHaruPDF( cFileToSave )
      MsgInfo( 'PDF File <'+cFileToSave+'> is Created!' )
   else
      MsgAlert( 'Some problems in creating the PDF!', 'Error' )
   endif

   Return nil
*------------------------------------------------------------------------*
Function View( cFileToSave )
*------------------------------------------------------------------------*
   if file(cFileToSave)
      execute file cFileToSave
   Else
      msgalert ("Press generate first!", 'Alert')
   Endif
return nil
*------------------------------------------------------------------------*
Function DesignHaruPDF( cFileToSave )
*------------------------------------------------------------------------*
   Local i, page, height, width, def_font, tw,  samp_text, font, grid := .f.
   Local page_title := 'Minigui Extended Pdf Generator Demo'
   Local font_list  := { ;
                        "Courier",                  ;
                        "Courier-Bold",             ;
                        "Courier-Oblique",          ;
                        "Courier-BoldOblique",      ;
                        "Helvetica",                ;
                        "Helvetica-Bold",           ;
                        "Helvetica-Oblique",        ;
                        "Helvetica-BoldOblique",    ;
                        "Times-Roman",              ;
                        "Times-Bold",               ;
                        "Times-Italic",             ;
                        "Times-BoldItalic",         ;
                        "Symbol",                   ;
                        "ZapfDingbats"              ;
                      }

   Local pdf := HPDF_New()
   Public cpos :={}
   if pdf == NIL
      msgalert( 'Pdf could not been created!', 'Error' )
      return nil
   endif

   If file ( cFileToSave )
      Ferase( cFileToSave )
   Endif

   /* set compression mode */

   HPDF_SetCompressionMode( pdf, HPDF_COMP_ALL )
   

   Page_Link_Annotation( pdf )
 


   HPDF_SaveToFile( pdf, cFileToSave )
   * msgbox(HPDF_GETERROR(),"Errore")
   HPDF_Free( pdf )
   release cpos
   return file( cFileToSave )



   RETURN  NIL




*------------------------------------------------------------------------*
Static Function Page_Link_Annotation( pdf )
*------------------------------------------------------------------------*
   Local index_page, Font, /*i,*/ Tp, Dst, annot, rect := array(4), page:={},;
   Uri:= "comprovante_01.PDF" //,pagex
   // Uri:= "http://www.hmgextended.com" //,pagex


    /* create default-font */
    font := HPDF_GetFont (pdf, "Helvetica", Nil)

    /* create index page */
    index_page := HPDF_AddPage (pdf)
    HPDF_Page_SetWidth (index_page, 300)
    HPDF_Page_SetHeight (index_page, 220)

 
    HPDF_Page_BeginText (index_page)
    HPDF_Page_SetFontAndSize (index_page, font, 10)
    HPDF_Page_MoveTextPos (index_page, 15, 200)
    HPDF_Page_ShowText (index_page, "Link Annotation Demo")
    HPDF_Page_EndText (index_page)


     * Create Link-Annotation object on index page.

    HPDF_Page_BeginText(index_page)
    HPDF_Page_SetFontAndSize (index_page, font, 8)
    HPDF_Page_MoveTextPos (index_page, 20, 180)
    HPDF_Page_SetTextLeading (index_page, 23)


    // URI link 
    tp = HPDF_Page_GetCurrentTextPos (index_page)

    HPDF_Page_ShowText (index_page, "URI (")
    HPDF_Page_ShowText (index_page, uri)
    HPDF_Page_ShowText (index_page, ")")

/*  FORAM DEFINIDAS LA NO INICIO DO CODIGO... 
   #define rLEFT   1
   #define rTOP    2
   #define rRIGHT  3
   #define rBOTTOM 4
*/

    rect [ rLEFT ]   := Tp[1] - 4
    rect [ rBOTTOM ] := Tp[2] - 4
    rect [ rRIGHT ]  := HPDF_Page_GetCurrentTextPos (index_page)[1]+ 4
    rect [ rTOP ]    := Tp[2] + 10

    HPDF_Page_CreateURILinkAnnot (index_page, rect, uri)

    HPDF_Page_EndText (index_page)
Return Nil