Red de conocimiento informático - Computadora portátil - Cómo superponer dos imágenes en una en Delphi ---

Cómo superponer dos imágenes en una en Delphi ---

bitmap3:= TBitmap.Create;

bitmap3.Height:= bitmap1.Height;

bitmap3.Width:= bitmap1.Width;

BitBlt( bitmap3.Canvas.Handle,0,0,bitmap1.Width,bitmap1.Height,bitmap1.Canvas.Handle,0,0, SRCCOPY);

BitBlt(bitmap3.15,bitmap2 .Width,bitmap2.Height,bitmap2.Canvas.Handle,0,0,SRCCOPY);

bitmap3.SaveToFile('c:\ab.bmp');

bitmap3. Gratis;

end;

Las imágenes en imagen1 e imagen2 deben estar en formato bmp, de lo contrario no serán válidas.