FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour bitmap con tprinter
Posts: 1088
Joined: Fri Oct 07, 2005 03:33 PM

bitmap con tprinter

Posted: Tue Dec 06, 2005 10:01 PM

Hola,

hay alguna manera de poner un grafico (bitmap) con Tprinter que salga proporcionalmente igual en cuaquier impresora, ni mas grande ni mas chico segun los DPI de la impresora.

saludos

Marcelo

Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

bitmap con tprinter

Posted: Wed Dec 07, 2005 12:43 PM

Marcelo,

Supongo que al llamar a <oPrn>:SayBitmap() habrá que proporcionarle las dimensiones en base a la resolución de la impresora, para que siempre se vea proporcional.

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1088
Joined: Fri Oct 07, 2005 03:33 PM

bitmap con tprinter

Posted: Wed Dec 07, 2005 02:53 PM

Gracias Antonio,

por alli esta la cosa, lo que pasaba era que estuve probando con vallores peque~nos para nWidth y nHeith, y la imagen no se transformaba o por ultimo desaparecia, pero haciendo uso de oPrn:nVertRes() oPrnHorzRes() y valores proporcionales a ellos todo esta ok

Gracias

Marcelo

Posts: 234
Joined: Tue Oct 25, 2005 12:39 AM

bitmap con tprinter

Posted: Wed Dec 07, 2005 05:03 PM

Marcelo,
Algún pequeño ejemplo de como lo estas usando por favor.

Gracias
Fernando

Posts: 840
Joined: Thu Oct 13, 2005 07:05 PM

bitmap con tprinter

Posted: Wed Dec 07, 2005 05:19 PM
Marcelo Via Giglio wrote:por alli esta la cosa, lo que pasaba era que estuve probando con vallores peque~nos para nWidth y nHeith, y la imagen no se transformaba o por ultimo desaparecia, pero haciendo uso de oPrn:nVertRes() oPrnHorzRes() y valores proporcionales a ellos todo esta ok


Estas matando pulgas a cañonazos.... el objeto printer trae un metodo que coniverte Centimetros a puntros de la impresora con la que estes imprimiendo, asi que vamos a suponer que quieres un bitmap de 5x5 cms colocado a los 10 cm, 10 cm del borde superior izqauierdo:

Hacemos esto:

aPos := oPrinter:Cmtr2Pix(10,10)
aTam := oPrinter:Cmtr2Pix(5,5)

oPrinter:SayBitmap(aPos[1],aPos[2],nombrebitmap, aTam[1],aTam[2])

y listo, de esta forma siempre tendras el bitmap en la misma posicon.
Saludos

R.F.
Posts: 1088
Joined: Fri Oct 07, 2005 03:33 PM

bitmap con tprinter

Posted: Wed Dec 07, 2005 06:04 PM
fleal wrote:Marcelo,
Algún pequeño ejemplo de como lo estas usando por favor.

Gracias
Fernando


Lo hago exactamente como lo dice RF, tomandos las medidas en centimetros
Posts: 563
Joined: Sun Oct 09, 2005 07:23 PM

bitmap con tprinter

Posted: Sun Dec 11, 2005 09:56 AM

¿Tiene que tener alguna característica especial el archivo bmp? Porque no me sale ni en el preview ni en la impresora.

Saludos.

Posts: 1088
Joined: Fri Oct 07, 2005 03:33 PM

bitmap con tprinter

Posted: Mon Dec 12, 2005 12:41 PM
Hola,

no, tan solo debe estar en tu archivo de recurso o si lo deseas lo puedes tener como un archivo externo "file.bmp" en ambos casos el codigo no varia o lo llamas con el nombre de recurso o con el nombre de archivo desde el metodo :saybitmap de la clase printer.

Ahora si utilizas report no he conseguido que se imprima desde recurso tan solo desde archivo, y eso no lo entiendo siendo que la clase report utiliza la clase printer.

saludos

Marcelo

Verhoven wrote:¿Tiene que tener alguna característica especial el archivo bmp? Porque no me sale ni en el preview ni en la impresora.

Saludos.
Posts: 33
Joined: Mon Oct 17, 2005 11:56 PM

bitmap con tprinter

Posted: Mon Dec 12, 2005 02:30 PM

Gracias por reactivar el sitio pero algunos link no funcionan...

Continue the discussion