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:


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:

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:

var
Rectt: TRect;