Création dynamique de TImages

Bonjour à tous,

voilà ma situation:

Je dois dessiner une suite de ronds et de traits qui les relient. C'est ronds sont en fait le même TBitmap.
Je shoutairais donc pouvoir créer plusieurs TImages dans ma Form.
Mais quand j'essaie d'instancier une TImage il y a une erreur lorsque j'utilise une méthode de mon objet.

initialisation du Bitmap:

Code:

---

1 2 3

Graphics::TBitmap *rond1 = new Graphics::TBitmap(); rond1->LoadFromFile(b2.bmp);

---

initialisation de l'image:

Code:

---

1 2 3 4

TImage * image1; image1 = new TImage(image1); image1->Picture->Bitmap = rond1;

---

je suppose que le ligne: image1 = new TImage(image1); est fausse mais je ne vois pas comment faire (je n'ai pas trouvé de constructuer par defaut du type TImage() ).

Sinon, y aurait-il un moyen d'éviter d'utiliser une image bitmap ? J'ai essayé la méthode Ellipse de Canvas mais le résultat est plutôt laid 8/

Merci de votre aide

@+

Code:

---

1 2	TImage * image1; image1 = new TImage(image1);

---

Tu passes image1 comme Owner de lui-même donc je pense que c'est là le problème (même j'en suis sur). Il faut que tu fasses :

Code:

---

image1 = new TImage(this);

---

avec this = Form1, normalement.

Merci, je test desuite !!!

@+

Bonjour,

Tu dois aussi faire un Assign du TBitmap. Dans la logique c'est toi qui instancie le TBitmap, c'est toi qui le détruit ...

Code:

---

1 2 3 4 5 6

Graphics::TBitmap *rond1 = new Graphics::TBitmap(); rond1->LoadFromFile(b2.bmp);   TImage * image1 = new TImage(this); image1->Picture->Bitmap->Assign(rond1);

---

Ok, il n'y a plus d'erreur mais mon image n'apparaît pas...

Code:

---

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

TImage *Image1 = new TImage(this); //instancie l'image   //positionne l'image: Image2->Left = 50; Image2->Top = 50;   Image2->Picture->Bitmap->Assign(rond1); //assigne une Picture a l'image   Image2->AutoSize = true; //adapte la taille de l'image a sa Picture   Image2->Canvas->MoveTo(0,0); //on utilise le stylo afin d'utiliser l'image   Image2->Visible = true; //au cas ou...

---

rien n'apparait sur ma form... :cry:

@+

Image2->Refresh(); (peut etre)

Non, il faut mettre :

Code:

---

Image->Parent = this;

---

Pour qu'un composant apparaisse, il faut que la fiche sache où, c'est-à-dire par quel autre composant il est contenu. Dans ce cas, ce sera la fiche. S'il doit être dans un Panel, on ferait :

Code:

---

Image->Parent = Panel1;

---

Non plus...

j'ai rajouté un Image2->Canvas->LineTo(5,5);
mais rien..

j'ai essayé de mettre le code dans les méthodes (sachant que la forme sùappelle Main):
TMain::TMain(TComponent* Owner) : TForm(Owner)
TMain::FormShow(...)
TMain::FormCreate(..)

rien de rien 8O

c'est grave docteur ??

@+

dans tous les cas merci de votre aide !!

Bonjour,

Remplace :

Code:

---

1 2	Image2->Picture->Bitmap->Assign(rond1);

---

par ça :

Code:

---

1 2 3

Image2->Picture->Bitmap->Assign(NULL); // efface l'image Image2->Picture->Bitmap->Canvas->Draw(0,0,rond1);

---

Geronimo/ désolé je n'avais pas vu ton message. je teste de suite

Merci beaucoup


@+

Merci à tous ca marche :P :!:


@+