Affecter un Timage et effacer son contenu

J'ai beau parcouru les FAQ mais j'ai pas trouvé la solution
Il s'agit en fait d'affecter Image1 à Image2.
J'ai essayé mais cela génère une erreur.

Code:

---

1 2 3 4 5 6 7 8 9 10

Graphics::TBitmap *FormImage = Form1->Image1->Picture->Bitmap; try { Clipboard()->Assign(FormImage); Form1->Image2->Picture->Assign(Clipboard()); } __finally { delete FormImage; }

---

J'ai voulu aussi effacé Image1 après mais ma technique est nulle selon d'autres développeurs:

Code:

---

Form1->Image1->Canvas->FillRect(Rect(Form1->Image1->Top, Form1->Image1->Left, Form1->Image1->Width, Form1->Image1->Height));

---

SOS !!!

Salut,

pourquoi ne fais-tu pas simplement:

Image2->Picture = Image1->Picture;

Il me semble que c'est ce que tu cherches à faire... J'espère avoir bien compris.

Salut !

Si les dimensions du bitmap de destination ne doivent pas être modifiées :

Code:

---

Image2->Picture->Bitmap->Canvas->Draw(0,0, Image1->Picture->Bitmap);

---

Voir également TCanvas::CopyRect

Autres solutions possibles pour une copie au sens stricte, les dimensions du bitmap de destination deviendront identiques à celles du bitmap source :

Code:

---

Image2->Picture->Bitmap->Assign(Image1->Picture->Bitmap);

---

Code:

---

Image2->Picture->Assign(Image1->Picture);

---

A plus !

J'ai suivi vos conseils swissbaboon et henderson.

Et ça marche!

Image2->Picture = Image1->Picture; suffisait

Et toi henderson, tu m'as donné d'autres astuces que j'ai utilisés pour d'autres cas. Merci!

C'EST DONC RESOLU !!!

Bonjour

Picture étant un pointeur, j'ai peur qu'avec ça tu ne fasses que copier le pointeur Image1->Picture. Mais cela n'affecte pas le graphique à Image2. Tu as un seul graphique pour 2 objets TImage : source potentielle de problèmes.
Pour éviter cela il faut utiliser Assign.

Salut !

Citation:

---

Image2->Picture = Image1->Picture

---

Il y a un risque de plantage à la fermeture du programme car deux objets (TImage*) vont chercher à détruire le même objet (TPicture*).

A plus !