FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour SayBitMap con Tprinter
Posts: 38
Joined: Thu Oct 13, 2005 09:38 AM
SayBitMap con Tprinter
Posted: Tue Jan 17, 2006 01:32 PM

Amigos:

Con fw24+xharbour 0.92, me imprime bien los bitmap al hacer un formulario con tprinter, pero con fw27+xharbour 0.99.51, al previsualizar, me aparece un cuadro negro en su lugar.

PRINTER oPrn NAME "Pruebas con logo" PREVIEW MODAL
DEFINE FONT oFn[1] NAME "Arial" SIZE 0, -8 OF oPrn
oPrn:StartPage()
nDesde:=oPrn:Cmtr2Pix(1.0,1.0); nHasta:=oPrn:Cmtr2Pix(5.0,5.0)
oPrn:SayBitmap(nDesde[1],nDesde[2],"Logo.bmp",nHasta[1],nHasta[2],2)
oPrn:Cmsay(2.0,7.0,"PRUEBA DE TEXTO CON LOGO",oFn[1])
oPrn:EndPage()
ENDPRINT

Gracias de antemano por vuestra ayuda

Un saludo
Alfonso Larrinaga
info@bsinformatica.net
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
SayBitMap con Tprinter
Posted: Tue Jan 17, 2006 07:18 PM

Alfonso,

El ejemplo samples\TestPrn2.prg muestra correctamente un bitmap en un preview. Puedes por favor probarlo y comprobar si te funciona bien ese ejemplo ? gracias.

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 38
Joined: Thu Oct 13, 2005 09:38 AM
SayBitMap con Tprinter
Posted: Wed Jan 18, 2006 03:54 PM

Antonio:
Gracias por tu respuesta, efectivamente el ejemplo TESTPRN2, funciona correctamente, compare la instruccion que viene en el ejemplo con la mia y me di cuenta de que hay un parametro de mas en mi ejemplo, me explico.

oPrn:SayBitmap(nDesde[1],nDesde[2],"Logo.bmp",nHasta[1],nHasta[2],2)

Sobra el "2" final, según tenia entendido deberia indicar que las dimensiones del bitmap van en centimetros pero no debe ser cierto. Elimine este parametro y me funciono.

No obstante, en la version FW24 si no lo usaba las dimensiones del bitmap me daban en pixeles.

Un saludo
Alfonso Larrinaga
info@bsinformatica.net
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
SayBitMap con Tprinter
Posted: Wed Jan 18, 2006 08:14 PM

Alfonso,

me alegro de que esté funcionando.

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion