Hola, actualmente estoy imprimiendo imagenes (bmp, jpg ...) con el siguiente código :
Lo que requiero es poder imprimir la imagen ajustada a un alto predeterminado, es decir indicándole únicamente la altura que la ajuste (al estilo TZoomImage) sin distorsionarla.
Gracias.
Func SayBitmap(nArriba,nIzq,nAncho,nAlto,xBitmap,oPrn)
/* =========================================================================
Dibujo de un bitmap o cualquier tipo de imagen
Parámetros : nArriba,nIzq,nAncho,nAlto. Coordenadas del bitmap
xBitmap. Fichero BMP
oPrn . Objeto PRINTER creado
-------------------------------------------------------------------------
Última revisión: 22/01/2007 17:26
Revisado por : Angel
=========================================================================
*/
Local xCor := {}, nPixWidth, nPixHeight, oImage
xCor := oPrn:Cmtr2Pix(nArriba,nIzq)
nAncho := nAncho/2.54
nAlto := nAlto /2.54
nPixWidth := INT(oPrn:nLogPixelY()*nAncho)
nPixHeight := INT(oPrn:nLogPixelX()*nAlto)
oImage:= TImage():Define(,xBitmap)
oPrn:SayImage( xCor[1], xCor[2], oImage, nPixWidth, nPixHeight)
oImage:End()
Return (nil)Lo que requiero es poder imprimir la imagen ajustada a un alto predeterminado, es decir indicándole únicamente la altura que la ajuste (al estilo TZoomImage) sin distorsionarla.
Gracias.
Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4