Foros Club Delphi - como combinar 2 Timage en un tercer Timage

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Gráficos (https://www.clubdelphi.com/foros/forumdisplay.php?f=8)

- - como combinar 2 Timage en un tercer Timage (https://www.clubdelphi.com/foros/showthread.php?t=13811)

como combinar 2 Timage en un tercer Timage

hola tengo 2 timage, como podria copiar las imagenes que tienen ellos e incrustarlas en un tercer timage para asi crear una sola imagen??
gracias

Hola JefeNet,

Puedes usar el método Draw del Canvas del TImage. Si "juntas" es el TImage donde quieres juntas las otras 2 imágenes:

Código:

juntas.Canvas.Draw(0,0,image1.Picture.Bitmap);

juntas.Canvas.Draw(0,image1.picture.Bitmap.height,image2.picture.Bitmap);

Un saludo,

Alberto.

muchas gracias me sirvio

error no me sirvio :( estaba haciendo una loquera. necesito ayuda gracias

Pues como no digas cual es el problema, o por qué diantres no te sirvió... no creo que haya nadie que pueda ayudarte.

El código publicado por albertron, a mi me parece mas que correcto. Sin probarlo, claro.

Por si las dudas, date una vuelta por el hilo de la calidad de las preguntas.

Hasta luego.

;)

me dibuja solo un rectángulo blanco, osea no inserta lo que tienen los otros timage.

yo tengo varios timage superpuestos yo lo que quiero es que en otro timage haga como "una suma" de los demas timage, generando asi una sola imagen.

gracias por su paciencia

Seguramente los otros TImage no están en formato bmp.

No tengo forma de probarlo ahora directamente, pero esta solucion debiera funcionar:

convertir a bmp

Código Delphi [-]Var
  aBMP : TBitmap;
  PosY : Integer;

Begin
  aBMP := TBitmap.Create;
  try
    aBMP.Assign(Image1.Picture.Graphic);
    juntas.Canvas.Draw(0,0,aBMP);
    PosY := aBMP.Height;
    aBMP.Assign(Image2.Picture.Graphic);
    juntas.Canvas.Draw(0, PosY + 1, aBMP);
  finally
    aBMP.Free;
  end;

Hasta luego.

;)

si, los formatos no son bmp. me tratare de explicar mejor a ver..

tengo varios timage superpuestos (uno arriba del otro), a los cuales les asigno imagenes *.png y asi voy superponiendolas (asi como photoshop, pero mas arcaico). Ahora bien, lo que necesito es hacer una imagen *.bmp que sea el resultado de todas las demas me explico? es algo asi como combinar las capas en una sola. yo lo estoy haciendo con este codigo

Código:

Var

Bmp:TBitmap;

begin

  Bmp:=Tbitmap.Create;

  Bmp.Height:=110;

  Bmp.Width:=110;

  Bmp.Canvas.CopyRect(Rect(0,0,110,110),Canvas,Rect(timage1.Left,timage1.Top,timage1.Left+110,timage1.Top+110));

  timage2.Picture.Bitmap.Assign(Bmp);

  aBMP.Free;

donde timage1 sirve para las coordenadas ya que las otras timage estan en las mismas coordenadas.

en realidad lo que hago es copiar ese tectangulo y pegarlo en otro timage (timage2), asi como lo lei en un hilo de este foro.El me guarda el bmp, pero como que el formato no es bmp porque al tratar de poner ese archivo creado como imaven de mi msn se ve como transparente. pero si yo abro el archivo en paint lo corto y lo pego ahi mismo sin mas nada y cierro y guardo los cambioa ahi si se ve bien en el msn no se por que. gracias y disculpa mi ignorancia.

Si hubieras comenzado por alli... es muy molesto perder el tiempo por explicaciones vagas, como en este caso.

:mad:

Te recomiendo darte una vuelta por el hilo de la calidad de las preguntas

si disculpa lo que paso es que en este foro encontre mucha ayuda y pense que me serviria y por eso pedi ayuda de lo que crei que necesitaria y al final fue que me di cuenta que lo que encontre me servia pero a medias disculpa en verdad

Me podrían ayudar por favor?