Discussion :

[Dric]

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 :

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

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

initialisation de l'image:

Code :

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

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

@+

[Geronimo]

Code :

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

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 :

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

image1 = new TImage(this);

avec this = Form1, normalement.

[Dric]

Merci, je test desuite !!!

@+

[ChMerlier]

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 :

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

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);

[Dric]

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

Code :

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

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

@+

[JEG]

Image2->Refresh(); (peut etre)

[Geronimo]

Non, il faut mettre :

Code :

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

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 :

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

Image->Parent = Panel1;

[Dric]

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

c'est grave docteur ??

@+

dans tous les cas merci de votre aide !!

[ChMerlier]

Bonjour,

Remplace :

Code :

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

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

par ça :

Code :

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

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

[Dric]

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

Merci beaucoup


@+

[Dric]

Merci à tous ca marche


@+