Guardar dibujo Canvas como Imagen
 

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 :)

¿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...:)

Ah, pues muchas gracias por informar de tus avances :p

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

...de nada :D


Saludos

¿Claro porque no? :rolleyes:...

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 :D...

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

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!!

Gracias,
lo probaré :)