Discussion :

[randriano]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

SOS !!!

[swissbaboon]

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.

[henderson]

Salut !

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

A plus !

[randriano]

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 !!!

[Orangina]

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.

[henderson]

Salut !

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 !