Foros Club Delphi - Salvar contenido de PaintBox en Fichero

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Gráficos (https://www.clubdelphi.com/foros/forumdisplay.php?f=8)

- - Salvar contenido de PaintBox en Fichero (https://www.clubdelphi.com/foros/showthread.php?t=46569)

yordan

03-08-2007 17:57:08

Salvar contenido de PaintBox en Fichero

Hola todos.
necesito saber si existe alguna manera de salvar el contenido de un paintbox en un fichero .bmp.

qué se les ocurre.

gracias de antemano.

cHackAll

03-08-2007 18:19:01

Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
var Bitmap: TBitmap;
begin
 Bitmap := TBitmap.Create;
 Bitmap.Width := PaintBox1.Width;
 Bitmap.Height := PaintBox1.Height;
 Bitmap.Canvas.CopyRect(PaintBox1.ClientRect, PaintBox1.Canvas, PaintBox1.ClientRect);
 Bitmap.SaveToFile('c:\test.bmp');
 Bitmap.Destroy;
end;

La franja horaria es GMT +2. Ahora son las 00:48:29.