SUPERPOSITION D'IMAGES , DÉSSINER UN BMP
cs_Nono40
Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
-
3 mars 2003 à 00:08
cs_Nono40 Messages postés 962 Date d'inscription mercredi 3 avril 2002 Statut Membre Dernière intervention 12 septembre 2006 - 3 mars 2003 à 00:08
cs_Nono40 Messages postés 962 Date d'inscription mercredi 3 avril 2002 Statut Membre Dernière intervention 12 septembre 2006 - 3 mars 2003 à 00:08
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/12393-superposition-d-images-dessiner-un-bmp
https://codes-sources.commentcamarche.net/source/12393-superposition-d-images-dessiner-un-bmp
3 mars 2003 à 00:08
procedure TForm1.Button1Click(Sender: TObject);
var
Image2: TBitmap;
Image3: TBitmap;
begin
Image2 := TBitmap.Create;
Image3 := TBitmap.Create;
Try
{Chargement de l'image1}
image2.LoadFromFile('Votreimage1');
{Chargement de l'image2}
image3.LoadFromFile('Votreimage2');
{on assemble}
image1.Canvas.Draw(0,0,image2);
image1.Canvas.Draw(15,20,image3);
image1.picture.SaveToFile('c:cooll5555.bmp');
Finally
Image2.free;
Image3.free;
end;
end;