Guardar varias imagenes en una sola
 

Hola, estimados compañeros:

Me gustaria que alguien me diga como resolver este problema.


Tengo un Paintbox (paintbox1) y encima de este tengo 8 imagenes Timage (Image1, Image2 ... Image8), (Estas imagenes son bitmap ... los Timage, el Paintbox puede variar el tipo de imagen), lo que necesito ahora es grabar todas estas imagenes como una sola.


Si alguien sabe como resolver este problema se los agradeceria mucho.


Hasta pronto.


A. Maravert A.

Copia el canvas del PaintBox al canvas de un TImage y utiliza en método SaveToFile del TImage para guardarlo en disco.

Código Delphi [-]
   ImageNew.Height := PaintBox1.Height;
   ImageNew.Width := PaintBox1.Width;
   ImageNew.Canvas.CopyRect(ImageNew.ClientRect, PaintBox1.Canvas, PaintBox1.ClientRect);
   ImageNew.Picture.Bitmap.SaveToFile('c:\temp\aa.bmp');

Muchas Gracias Neftali por tu ayuda me sirvio perfectamente.

Hasta pronto, espero algun día poder ayudarte de igual manera.


Alejandro Maravert A.