Preview a PDF con imagen de fondo

[nageswaragunupudi]

Please locate the METHOD PrintImage(…) in fwh\classes\fwpdf.prg:
At the beginning, in the local's declaration, add gState
Change this line

Code: Select all | Expand

local image, oRect, nRet, aSize

as

Code: Select all | Expand

local image, oRect, nRet, aSize, gState

Now locate these lines of code at the end of this method:

Code: Select all | Expand

   if !Empty( cUrl )
      ::SetLinkToURL( oRect:aRect, cURL )
   endif

   HPDF_Page_DrawImage( ::hPage, image, oRect:nLeft, ::nHeight - oRect:nTop - oRect:nHeight, ;
            oRect:nWidth, oRect:nHeight /* iw, ih*/)

   nRet  := oRect:nBottom
   ::Pix2Units( nil, @nRet, , , cUnits )

return nRet

Replace it with these lines of code:

Code: Select all | Expand

   if !Empty( cUrl )
      ::SetLinkToURL( oRect:aRect, cURL )
   endif

   if nAlpha != nil
      HPDF_Page_GSave( ::hPage )
      gState := HPDF_CreateExtGState( ::hPdf )
      HPDF_ExtGState_SetAlphaFill( gState, nAlpha/255 )
      HPDF_Page_SetExtGState( ::hPage, gState )
   endif

   HPDF_Page_DrawImage( ::hPage, image, oRect:nLeft, ::nHeight - oRect:nTop - oRect:nHeight, ;
            oRect:nWidth, oRect:nHeight /* iw, ih*/)

   nRet  := oRect:nBottom
   ::Pix2Units( nil, @nRet, , , cUnits )

   if nAlpha != nil
      HPDF_Page_GRestore( ::hPage )
   endif

return nRet

You can now play with the alpha levels to your taste and get the results as you desire.

[cmsoft]

Intenté hacer _ pero me da error, pero creo que es debido a que tengo mal la version de la libreria.
Voy a ponerme en contacto para actualizar a la última versión y luego aplicar _, o aguardar a la versión con _ modificados.

[nageswaragunupudi]

What is your FWH version?

[cmsoft]

Mi versión adquirida es 22.06, pero Antonio me facilitó las librerias actualizadas (solo las librerias) para hacer pruebas en unos ejemplo de Whatsapp, y sobreescribi la libreria que había adquirido, por lo que los prg de fwh\source no se corresponden con los que tiene la libreria.
El error que me da es el siguiente

Code: Select all | Expand

   Descripcion: Error BASE/1126  Error de argumento: STRTRAN
   Args:
     [   1] = N   0
     [   2] = C   #PGC#
     [   3] = C   2

Pila de Llamadas
===========
   LLamado por:  => STRTRAN( 0 )
   LLamado por: .\source\classes\printer.prg => TPRINTER:GENHARUPDF( 1911 )
 

[nageswaragunupudi]

Please write to me
nageswaragunupudi[at]gmail[dot]com

[nageswaragunupudi]

Further improvement:
In addition to harupdf, now even the fwh own created pdf works correctly. The gray color problem is resolved.
Will be available from the next version to be released.

[TOTOVIOTTI]

Gracias Sr. Rao,

En la vista previa, se ve bien el PNG, pero cuando lo imprimimos, el fondo
se ve de color negro.

Para los que tengamos versiones anteriores, que modificación deberíamos
hacer en la clase para verlo correctamente??

Muchas gracias...
Roberto

[TOTOVIOTTI]

Mr. Nages, dow can I solve this?

Thanks, thanks,thanks!!

Roberto