Page 1 of 1

SayBitMap con Tprinter

Posted: Tue Jan 17, 2006 1:32 pm
by txon
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

Posted: Tue Jan 17, 2006 7:18 pm
by Antonio Linares
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.

SayBitMap con Tprinter

Posted: Wed Jan 18, 2006 3:54 pm
by txon
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.

Posted: Wed Jan 18, 2006 8:14 pm
by Antonio Linares
Alfonso,

me alegro de que esté funcionando.