Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Gráficos (https://www.clubdelphi.com/foros/forumdisplay.php?f=8)
-   -   Guardar PaintBox (https://www.clubdelphi.com/foros/showthread.php?t=64205)

ronald_tro 22-03-2009 00:52:11

Guardar PaintBox
 
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] 23-03-2009 11:06:31

Cita:

Empezado por ronald_tro (Mensaje 342288)
... 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,...


La franja horaria es GMT +2. Ahora son las 17:58:27.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi