Sauver un TImage dans un TBitmap

Bonjour à tous,

Dans le cadre de mon projet, j'assigne à mon Timage un Tbitmap chargé par l'utilisateur.

Code:

---

1 2 3 4 5 6

OpenPictureDialog1.execute; Edit1.text:=OpenPictureDialog1.Filename; Imagechoisie:=Tbitmap.create; Imagechoisie.loadfromfile(Edit1.text); Image1.Picture.Assign(Imagechoisie); Image1.Canvas.draw(0,0,Imagechoisie);

---

Je modifie ensuite les pixels de mon Image1 et je veux pouvoir sauvegarder cette image modifiée, comment faire ?

Si je fais:

Code:

---

Imagechoisie.SaveToFile(Edit2.Text+'.bmp');

---

ça me sauvegarde l'image originelle.

Merci d'avance,
Cordialement, r0seBa

Bonjour

Il faudrait voir le code complet car je ne vois pas d'où vient le problème.
Ceci fonctionne sous Delphi 2005:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

var Imagechoisie:TBitmap; begin if OpenPictureDialog1.execute then begin Edit1.text:=OpenPictureDialog1.Filename; Imagechoisie:=Tbitmap.create; Imagechoisie.loadfromfile(Edit1.text); Imagechoisie.Canvas.Rectangle(0,0,100,100); // Modification Image1.Picture.Assign(Imagechoisie); Imagechoisie.SaveToFile(Edit1.Text); end; end;

---

Quelles sont les modifications que tu effectues sur l'image ?