Bitmap de fondo

Bitmap de fondo

Postby jmua » Wed Jul 26, 2006 6:05 am

Buenos dias.

Utilizo Tprinter pra hacer informes y quiero poner de fondo un Bitmap que se vea como en Word (Marca de agua impresa).
Alguien puede decirme como puedo hacerlo?

Gracias
José Martin Uriarte
jmuarg@yahoo.es
User avatar
jmua
 
Posts: 96
Joined: Tue Oct 11, 2005 5:56 am

Postby manuramos » Wed Jul 26, 2006 9:25 am

Creo que lo mejor es que aclares el bitmap y le des el aspecto final con un editor de graficos (photoshop, photopaint,etc...).

Después lo colocas en la página en primer lugar (antes que cualquier otro comando). Yo utilizo DibRead() y DibDraw(). Va muy bien.

Finalmente, tendrás que utilizar oPrn:Say con el parámetro nBkMode en TRANSPARENTE para no enmascarar el gráfico de fondo:

oPrn:Say( nRow, nCol, cText, oFont, nWidth, nClrText, nBkMode, nPad )
nBkMode = 1 , 2 --> transparent , Opaco.

Es posible que exista alguna función API en alguna DLL de Windows, pero para qué calentarte la cabeza. A no ser que ese fondo no vaya a ser fijo, claro, sino a voluntad del cliente. En ese caso no te puedo ayudar.

Un saludo.
Nos Gusta Programar
manuramos
 
Posts: 219
Joined: Mon Dec 26, 2005 7:25 pm
Location: Jerez de la Frontera (Spain)

Postby jmua » Wed Jul 26, 2006 2:08 pm

Gracias ManuRamos.
Al final eso es lo que he hecho y me ha quedado bastante bien

manuramos wrote:Creo que lo mejor es que aclares el bitmap y le des el aspecto final con un editor de graficos (photoshop, photopaint,etc...).

Después lo colocas en la página en primer lugar (antes que cualquier otro comando). Yo utilizo DibRead() y DibDraw(). Va muy bien.

Finalmente, tendrás que utilizar oPrn:Say con el parámetro nBkMode en TRANSPARENTE para no enmascarar el gráfico de fondo:

oPrn:Say( nRow, nCol, cText, oFont, nWidth, nClrText, nBkMode, nPad )
nBkMode = 1 , 2 --> transparent , Opaco.

Es posible que exista alguna función API en alguna DLL de Windows, pero para qué calentarte la cabeza. A no ser que ese fondo no vaya a ser fijo, claro, sino a voluntad del cliente. En ese caso no te puedo ayudar.

Un saludo.
José Martin Uriarte
jmuarg@yahoo.es
User avatar
jmua
 
Posts: 96
Joined: Tue Oct 11, 2005 5:56 am


Return to FiveWin para Harbour/xHarbour

Who is online

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