Hola FabianSiza.
Cita:
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); end;
Salida:
Saludos