Preview a PDF con imagen de fondo

Re: Preview a PDF con imagen de fondo

Postby nageswaragunupudi » Sat Jul 06, 2024 2:59 pm

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 view
local image, oRect, nRet, aSize

as
Code: Select all  Expand view
local image, oRect, nRet, aSize, gState


Now locate these lines of code at the end of this method:
Code: Select all  Expand view
  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 view
  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.
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10620
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: Preview a PDF con imagen de fondo

Postby cmsoft » Sat Jul 06, 2024 3:32 pm

Intenté hacer los cambios 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 estos cambios, o aguardar a la versión con estos cambios modificados.
User avatar
cmsoft
 
Posts: 1285
Joined: Wed Nov 16, 2005 9:14 pm
Location: Mercedes - Bs As. Argentina

Re: Preview a PDF con imagen de fondo

Postby nageswaragunupudi » Sat Jul 06, 2024 3:39 pm

What is your FWH version?
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10620
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: Preview a PDF con imagen de fondo

Postby cmsoft » Sat Jul 06, 2024 3:56 pm

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 view

   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 )
 
User avatar
cmsoft
 
Posts: 1285
Joined: Wed Nov 16, 2005 9:14 pm
Location: Mercedes - Bs As. Argentina

Re: Preview a PDF con imagen de fondo

Postby nageswaragunupudi » Sat Jul 06, 2024 5:45 pm

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

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10620
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: Preview a PDF con imagen de fondo

Postby nageswaragunupudi » Thu Jul 25, 2024 3:36 pm

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.
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10620
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: Preview a PDF con imagen de fondo

Postby TOTOVIOTTI » Thu Aug 15, 2024 12:01 pm

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
Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.edu.ar
User avatar
TOTOVIOTTI
 
Posts: 419
Joined: Fri Feb 05, 2010 11:30 am
Location: San Francisco - Córdoba - Argentina

Re: Preview a PDF con imagen de fondo (PNG)

Postby TOTOVIOTTI » Mon Aug 26, 2024 2:32 pm

Mr. Nages, dow can I solve this?

Thanks, thanks,thanks!!

Roberto
Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.edu.ar
User avatar
TOTOVIOTTI
 
Posts: 419
Joined: Fri Feb 05, 2010 11:30 am
Location: San Francisco - Córdoba - Argentina

Previous

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 61 guests