exportar 2 Timage en 1

[ecfisa]

Hola FabianSiza.

Empezado por FabianSiza

hola como estan quisiera saber como exportar 2 o mas Timage en 1...
como hago para que todos salgan en uno solo? gracias

Código Delphi [-]
procedure ComposeImage(vImg: array of TImage; Target: TImage);
var
  bmp: TBitmap;
  grp: TGraphic;
  i,wdt: Integer;
begin
  bmp:= TBitmap.Create;
  try
    bmp.Height:= 0;
    bmp.Width := 0;
    wdt:= 0;
    for i:= Low(vImg) to High(vImg) do
    begin
      grp:= vImg[i].Picture.Graphic;
      if grp.Height > bmp.Height then
        bmp.Height:= grp.Height;
      bmp.Width:= wdt + grp.Width;
      bmp.Canvas.Draw(wdt, 0, grp);
      Target.Picture.Bitmap.Assign(bmp);
      Inc(wdt, grp.Width);
    end;
  finally
    bmp.Free;
  end;
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.btnComposeClick(Sender: TObject);
begin
  ComposeImage([Image1, Image2, Image3, Image4], Image5); // [Image1,..., Image_N]
  //A partir de aquí podes guardar la imágen resultante como gustes.
end;

Salida:



Saludos