FiveTech Software tech support forums

Code: Select all

#define HPDF_COMP_ALL                       0x0F
// HPDF_TextAlignment
#define HPDF_TALIGN_LEFT                    0
#define HPDF_TALIGN_RIGHT                   1
#define HPDF_TALIGN_CENTER                  2
#define HPDF_TALIGN_JUSTIFY                 3

#DEFINE AZUL    CLR_BLUE    //16711680
#DEFINE ROJO    CLR_RED     //255
#DEFINE VERDE   CLR_GREEN   //65280

STATIC FUNCTION TestHaru()
Local oPrint, oFont
oPrint := THaruPdf():New(".\pdf\testharu.pdf", NIL, NIL, NIL, .T., NIL)
oPrint:SetCompression( HPDF_COMP_ALL )
oFont := oPrint:DefineFont( 'Arial', 10 )

oPrint:StartPage()
WITH OBJECT oPrint
    //METHOD CmRect( nTop, nLeft, nBottom, nRight, oPen, nColor )
    :CmSay( 04.02, 10.2, "AZUL",  oFont, 5.0,AZUL     ,, HPDF_TALIGN_LEFT )
    :CmSay( 04.02, 12.2, "HBLUE", oFont, 5.0,CLR_HBLUE,, HPDF_TALIGN_LEFT )

    :CmSay( 04.52, 10.2, "VERDE",  oFont, 5.0,VERDE   ,, HPDF_TALIGN_LEFT )
    :CmSay( 05.02, 10.2, "ROJO",   oFont, 5.0,ROJO    ,, HPDF_TALIGN_LEFT )
    :CmSay( 05.52, 10.2, "GRAY",   oFont, 5.0,CLR_GRAY,, HPDF_TALIGN_LEFT )
    :CmSay( 05.52, 10.2, "GRAY",   oFont, 5.0,CLR_GRAY,, HPDF_TALIGN_LEFT )
    :CmSay( 06.02, 10.2, "YELLOW", oFont, 5.0,CLR_YELLOW,, HPDF_TALIGN_LEFT )


    :CmRect( 08.0, 10.0, 09, 16, 1, CLR_HBLUE)
     :CmSay( 08.2, 10.2, "HBLUE 8,10, 09,16", oFont, 5.0,CLR_HBLUE,, HPDF_TALIGN_LEFT )

    :CmRect( 10.0, 10.0, 11, 16, 2, CLR_HRED)
     :CmSay( 10.2, 10.2, "HRED 10,10, 11,16", oFont, 5.0,CLR_RED, HPDF_TALIGN_LEFT )

    //RoundBox( nTop, nLeft, nBottom, nRight, nWidth, nHeight, oPen, nColor, nBackColor )
     :CMRoundBox(   14,    10,      15,     12,     0.1,     0.1,    3,  CLR_HGREEN,        CLR_YELLOW)
END

oPrint:EndPage()
oprint:eND()
RETURN NIL
 

Code: Select all

...
      nClrText := Ajustacolor(nClrText)     // Ajuste colores MAF
      c := HPDF_Page_GetRGBFill( ::hPage )
      HPDF_Page_SetRGBFill( ::hPage, ( Int( nClrText / 0x10000 ) % 256 ) / 256.00, ( Int( nClrText / 0x100 )  % 256 )  / 256.00, ( nClrText  % 256 ) / 256.00 )
 

Code: Select all

STATIC FUNCTION AjustaColor(nColor)
//RETURN nColor
DO CASE
   CASE nColor == CLR_RED    ; RETURN CLR_BLUE
   CASE nColor == CLR_HRED   ; RETURN CLR_HBLUE
   CASE nColor == CLR_BLUE   ; RETURN CLR_RED
   CASE nColor == CLR_HBLUE  ; RETURN CLR_HRED
   CASE nColor == CLR_CYAN   ; RETURN CLR_YELLOW
   CASE nColor == CLR_YELLOW ; RETURN CLR_HCYAN
   CASE nColor == CLR_HCYAN  ; RETURN CLR_YELLOW
   CASE nColor == CLR_BROWN  ; RETURN CLR_CYAN



ENDCASE
RETURN nColor
 

Code: Select all

      HPDF_Page_SetRGBFill( ::hPage, ( nClrText % 256 ) / 256.00,;
                                      ( Int( nClrText / 0x100 )  % 256 )  / 256.00 , (  Int(nClrText / 0x10000 ) % 256 ) / 256.00 )