TPaintBox créée dynamiquement

Bonjour,
Je cherche à dessiner dans une TPaintBox par dessus une TImage.
Si je crée ma TPaintBox dans l'IDE, pas de problème...
En revanche, si je la crée dynamiquement comme suit, j'ai une erreur de type
"Control has no parent window !".
Comment créer cette TPaintWindow ? (Voir les trois essais infructueux)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

void __fastcall TFenPrincipale::SpeedButtonAddPointClick(TObject *Sender) { double X, Y; X=XLSLabelLongitude->Caption.ToDouble(); Y=XLSLabelLatitude->Caption.ToDouble();   // Essai 1 // TPaintBox *Test = (TPaintBox *) Sender; // Essai 2 // TPaintBox *Test = new TPaintBox((TPaintBox *) Sender); // Essai 3 // TPaintBox *Test = new TPaintBox(this);   Test->Canvas->Brush->Color = clRed; Test->Canvas->Pen->Color = clBlack; Test->Canvas->Ellipse(0, 0, 20, 20); Test->Parent=FenPrincipale; // Ne change rien non plus... Test->Repaint();   etc.

---

Salut,

En faite, on doit redéfinir la méthode OnPaint du PaintBox, car quand on lit l'aide de BCB, voici ce que ca dit :

Citation:

---

Envoyé par Aide BCB

si un gestionnaire d'événement OnPaint n'est pas fourni ou si aucun dessin n'est réalisé dans le gestionnaire d'événement, la boîte à peindre ne s'affiche pas sur la fiche à l'exécution.

---

Voici le code que j'ai donc fait :

Dans le .h, je rajoute ceci (partie public) :

Code:

---

void __fastcall Repeindre(TObject *Sender);

---

Et voici le code .cpp:

Code:

---

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

void __fastcall TForm1::Repeindre(TObject *Sender) { TPaintBox *MonPaintBox = (TPaintBox*)Sender; MonPaintBox->Canvas->Brush->Color = clRed; MonPaintBox->Canvas->FillRect(Rect(0,0,MonPaintBox->Width,MonPaintBox->Height)); } void __fastcall TForm1::Button1Click(TObject *Sender) { TPaintBox *Test = new TPaintBox(Form1); Test->Parent = Form1; Test->Width = 100; Test->Height = 100; Test->Left = 150; Test->Top = 150; Test->OnPaint=Form1->Repeindre; }

---

En espérant t'avoir aidé ;)
A+

Salut !

Depuis la méthode d'une fenêtre on peut faire :

Code:

---

1 2 3 4

TPaintBox *PaintBox = new TPaintBox(this); //Tout TComponent dont ta fenêtre PaintBox->Parent = this; //Le TWinControl sur lequel le paintbox se dessine PaintBox->SetBounds(..., ..., ..., ...);

---

S'il n'existe qu'une seule instance pour cette fenêtre (FenPrincipale) dans ce cas on peut remplacer le this :

Code:

---

1 2 3 4

TPaintBox *PaintBox = new TPaintBox(FenPrincipale); PaintBox->Parent = FenPrincipale; ...

---

A noter que ce qui est dessiné sur un TPaintBox n'est pas persistant (en tout cas chez moi).
Donc agir en conséquence... en particulier en tenant compte de ce qu'indique ero-sennin !

On a même intérêt, je pense, à dériver de TPaintBox !

A plus !

Merci à ero-sennin et henderson !

ero-sennin : ta méthode marche très bien. Le problème se situe effectivement
au niveau de l'évènement OnPaint

henderson : ayant à créer bcp de PaintBox, je vais probablement dériver de TPaintBox. J'étudie la question...des suggestions ?

Une remarque : je constate qu'en dépit de l'argument du constructeur PaintBox (Fenetre), il faut quand même lui préciser explicitement un Parent=Fenetre !

Merci !

Salut !

Les suggestions vont dépendre de ce qu'il y a à faire !
Tout dépend en particulier de la finalité du programme (DAO, traitement d'image...).
On peut très bien se retrouver dans un contexte où il n'y aurait plus aucune raison d'utiliser ni de TImage ni de TPaintBox, parce que ... une fenêtre et un bitmap peuvent suffire !
Dans ton cas, je ne sais pas !!!

Le propriétaire est du type TComponent et n'intervient que dans cette relation précise (le propriétaire détruit les composants qu'il détient).
Le parent est du type TWinControl et intervient dans les mécanismes graphiques.

La seule manière pour donner l'Owner comme Parent, d'un coup d'un seul, s'est de le faire dans le constructeur d'une classe dérivée. En fait, ça revient à lui donner un Parent par défaut (l'Owner lui-même s'il hérite de TWinControl) !

A plus !