Imprimir imagen

[leogobo]

Hola,

buscando en internet he encontrado como se imprimen graficas con canvas. Agrego una imagen con TImage en el formulario. Estoy trabajando en lazarus y no me funcuiona la instruccion

printer.Canvas.Draw(400,400,image1);

Me dice que se esperaba TGraphic. He buscado y solo encuentro TImage para poner imagenes, no el TGraphic.

Gracias

[*Caro*]

Hola leogobo, prueba de esta forma:

Código Delphi [-]
printer.Canvas.Draw(400,400,image1.Picture.Graphic);

Saluditos

[leogobo]

Pero sale muy pequeña, como hago para que aparezca en tamaño normal???

[[newtron]]

Hola. No sé si en lazarus funcionará igual pero yo en Delphi hago algo parecido a lo siguiente:

Código Delphi [-]
Grafico := TImage.Create(Self);
Grafico.Picture.LoadFromFile(imagen);
Grafico.Stretch :=True; 
Grafico.AutoSize := True; 
Grafico.Width  := Ancho; 
Grafico.Height := Alto; 
Rectt.Left   := Izquierda; 
Rectt.Top    := Derecha; 
Rectt.Right  := Rectt.Left + Ancho; 
Rectt.Bottom := Rectt.Top + Alto; 
MiCanvas.StretchDraw(Rectt, Grafico.Picture.Graphic);

[leogobo]

pero saca un error con Rectt .

[[newtron]]

Disculpa, te lo tendría que haber indicado.

Tienes que declararlo como variable al principio del procedimiento o función:

Código Delphi [-]
var
   Rectt: TRect;