Stretchdraw una imagen a una impresora de lona

Stretchdraw una imagen a una impresora de lona

Stretchdraw una imagen a una impresora de lona : Multi-millones de consejos para hacer su vida mas facil.

Estirar el dibujo de un grafico a una impresora.la lona es muy baja. Aqui es una solucion mejor.
procedimiento DrawImage(Lienzo: TCanvas DestRect: TRect ABitmap: TBitmap)
var
& nbsp & nbsp Encabezado, Bits: Puntero
& nbsp & nbsp HeaderSize: DWord
& nbsp & nbsp BitsSize: DWord
begin
& nbsp & nbsp GetDIBSizes(ABitmap.Manejar, HeaderSize, BitsSize)
& nbsp & nbsp GetMem(Encabezado, HeaderSize)
& nbsp & nbsp GetMem(Bits, BitsSize)
& nbsp & nbsp probar
& nbsp & nbsp & nbsp & nbsp GetDIB(ABitmap.Manejar, ABitmap.Paleta, Encabezado^, Bits^)
& nbsp & nbsp & nbsp & nbsp StretchDIBits(Lienzo.Manejar, DestRect.A La Izquierda, DestRect.La parte superior,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp DestRect.A La Derecha, DestRect.Parte inferior,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp 0, 0, ABitmap.Ancho, ABitmap.Altura, Bits,TBitmapInfo(Encabezado^),
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp DIB_RGB_COLORS, SRCCOPY)
& nbsp & nbsp finalmente
& nbsp & nbsp & nbsp & nbsp FreeMem(Encabezado)
& nbsp & nbsp & nbsp & nbsp FreeMem(Bits)
& nbsp & nbsp final
fin