Guardar PaintBox

[ronald_tro]

Hola amigos, bueno aqui de nuevo, he revisado por aqui en el foro como guardar un PaintBox en .bmp o jpg, lo que pasa es que hago lineas en un paintbox y lo que he hecho lo quisiera guardar, y encontre esto:

Código Delphi [-]
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;

pero la duda es esta, quisiera que me saliera un mensaje de guardar y elegir donde guardarla, se que es algo de la herramienta dialogo pero no se como usarla, y otra duda, quisiera abrir algun paintbox que halla guardado en imagen y ponerla en luugar del paintbox, osea que la imagen seria el paintbox, espero no molestarlos y gracias.

[Neftali [Germán.Estévez]]

Empezado por ronald_tro

... pero la duda es esta, quisiera que me saliera un mensaje de guardar y elegir donde guardarla, se que es algo de la herramienta dialogo pero no se como usarla, y otra duda, quisiera abrir algun paintbox que halla guardado en imagen y ponerla en luugar del paintbox, osea que la imagen seria el paintbox, espero no molestarlos y gracias.

Para guardar basta con que utilices son Cuadros de diálogo estanderd de Windows. OpenDialog y SaveDialog de la pestaña Dialogs.

Para Abrir un fichero:

Código Delphi [-]
if (OpenDialog1.Execute) then begin
  fName := OpenDialog.FileName;

  // Aquí ya tienes el fName el nombre del fichero a abrir
  !!!!!

end
else begin
  // No se ha seleciconado ningun nombre
  // CANCELAR o ESCAPE
end;

Para porder ver los ficheros guardados puedes usar un Control TImage.
Utiliza el OpenDialog para obtener el nombre y luego:

Código Delphi [-]
  Image1.Picture.Bitmap.LoadFromFile(fName);

Algo similar para los SaveDialog.

Revisa las propiedades de ambos componentes y podrás "personalizar" un poco más el diálogo.
Cambiar el título, Definir un filtro para los ficheros que se seleccionan,...