Guardar dibujo Canvas como Imagen

[[felipe88]]

Que tal amigos

En un TImage estoy dibujando algunas formas mediante el uso del canvas, principalmente rectángulos. Ahora, me gustaria saber como puedo guardar este dibujo como una imagen y asignarle un color diferente a cada figura.


Saludos

[roman]

Empezado por felipe88

Ahora, me gustaria saber como puedo guardar este dibujo como una imagen

¿No te serviría Image.Picture.SaveToFile?

// Saludos

[[felipe88]]

Empezado por roman

¿No te serviría Image.Picture.SaveToFile?

// Saludos

Gracias román...
perdona la tardanza de la respuesta; ahora lo que estoy tratando de hacer es pintar estas formas que voy creando. Ej:



Gracias...

[[Lepe]]

Ah, pues muchas gracias por informar de tus avances

OFFTOPIC: Que conste, no has preguntado nada, sólo lo has afirmado

...de nada


Saludos

[[felipe88]]

Empezado por Lepe

Ah, pues muchas gracias por informar de tus avances

OFFTOPIC: Que conste, no has preguntado nada, sólo lo has afirmado

...de nada


Saludos

¿Claro porque no? ...

Código Delphi [-]
Imagen1.Canvas.Brush.Color = RGB(Random(255),Random(255),Random(255));
Imagen1.Canvas.Rectangle(10,10,110,110);

Asi cambio de color antes de dibujar ...

Y ya que esperan una pregunta, ¿como puedo guardar esa imagen pero como jpg y no bmp?

[pablopessoa]

esto te va a servir :

Código Delphi [-]
procedure TForm1.guardarClick(Sender: TObject);
var
    jpg:TJPEGImage
    bmp:TBitmap;
begin
    bmp := TBitmap.Create;
    bmp.Width:= Image1.Width;
    bmp.Height:= Image1.Height;
    bmp.Canvas.CopyRect(Rect(0,0, bmp.Width, bmp.Height),        Image1.Canvas,Rect(0,0,Image1.Width,Image1.Height));
    //bmp.SetSize(640,480);
    jpg := TJPEGImage.Create;
    jpg.CompressionQuality := 100;
    jpg.Compress;    
    //asigna el bitmap al jpg, esto convierte el mapa de bit
    jpg.Assign(bmp); 
    jpg.SaveToFile('UnaRuta');
    jpg.Free;   
    bmp.Free;    
end;

Acordate de poner "Jpeg" en el uses del Form o no te va a compilar.
Saludos!!

[[felipe88]]

Gracias,
lo probaré