TCanvas dans un TPanel

Chers tous,

j'ai un formulaire comprenant plusieurs TPanel (alignés sur alClient).
Un de ces tpanel (nommé PanCompare) comprend un autre TPanel (alTop) et un TPaintBox(aligné sur alClient, nommé Painting).

Je mets ce panel en avant-plan dans le formulaire puis et je voudrais "dessiner" sur le canvas du TPaintBox, sur base du contenu d'un TList:

Code:

---

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

void __fastcall TForm1::Button1Click(TSender *Sender) { PanCompare->BringToFront(); Draw(); }   void __fastcall TForm1 :: Draw() { int i; CWayAssistantObjectToDraw *r; Painting->Invalidate(); for (i=0; i<m_lControls->Count; i++) { r=(CWayAssistantObjectToDraw *)m_lControls->Items[i]; r->Draw(Painting->Canvas); } }

---

dans le .h, section protected, il y a:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

TList *m_lControls; class CWayAssistantObjectToDraw { public: TPoint x,y; AnsiString sText; char cType; TColor Color; void Draw(TCanvas *c) { if (cType=='L') // trace une ligne { c->Pen->Color=Color; c->MoveTo(x.x, x.y); c->LineTo(y.x, y.y); } else // écrit un texte { c->Font->Color=Color; c->TextOut(x.x,x.y, sText); } } }; *********************************************

---

Malheureusement:

En mode debug, je vois qu'il fait

Code:

---

1 2 3

c->Pen->Color=cbBlack; c->MoveTo(10, 30); c->LineTo(100, 150);

---

et aussi

Code:

---

1 2	c->Font->Color=clRed; c->TextOut(10,10, "line 1");

---

Mais RIEN n'est dessiné sur mon TPaintBox....
Quelqu'un peut me dire pourquoi?

Merci,
Alain

J'ai un peu de mal à comprendre ce que tu fais. Mais je vois que tu n'as pas directement dessiner sur le Canvas de ta PaintBox.
Je suis aussi entrain d'utiliser et de dessiner sur une paintbox.Pour cela, j'ai créé un TBitmap en globale

Code:

---

Graphics::TBitmap *Bitmap = new Graphics::TBitmap;

---

Ensuite une fonction :

Code:

---

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

void DrawBMP() { TCanvas *C =Bitmap->Canvas; if (cType=='L') // trace une ligne { c->Pen->Color=Color; c->MoveTo(x.x, x.y); c->LineTo(y.x, y.y); } else // écrit un texte { c->Font->Color=Color; c->TextOut(x.x,x.y, sText); } Painting->Canvas->Draw(0,0,Bitmap); }

---

Je ne sais pas trop si c'est cela que tu recherches.
Bon courage

En fait, je dessine directement sur le canvas lors de l'appel: r->Draw(Painting->Canvas); (je passe le canvas en paramètre).
Ta méthode ne change rien.
Pour expliquer plus clairement: j'ai un TList m_lControls comprenant des objets à dessiner (textes ou lignes + positions).
Je voudrais que la méthode Draw du formulaire me dessine le tout dans un TPaintBox.
Pour comprendre le problème: cette méthode Draw est appelée deux fois pour dessiner à deux endroits:
* sur le canvas inclus dans un tpanel sur le formulaire
* sur le canvas d'un autre formulaire (TFPainting, comprenant un TPaintBox nommé TPainting).
Résultat:
il dessine correctement sur le canvas de l'autre formulaire (fPaint) et RIEN du tout sur le TPaintBox inclus dans un TPanel du formulaire courant.
Why Why Why?
Question subsidiaire: est-il possible d'avoir un scrollbar avec le TPaintObject et d'avoir une zone de dessin plus grande que ce qui est à l'écran?
****************************
//code de la méthode draw:
void __fastcall TFWayAssistant::Draw()
{
int i;
CWayAssistantObjectToDraw *r;
Graphics::TBitmap *Bitmap;
if (m_lControls)
{
Bitmap = new Graphics::TBitmap;
TFPainting *fPaint=new TFPainting(this);
for (i=0; i<m_lControls->Count; i++)
{
r=(CWayAssistantObjectToDraw *)m_lControls->Items[i];
r->Draw(Bitmap->Canvas);
r->Draw(fPaint->Painting->Canvas);
}
Painting->Canvas->Draw(0,0,Bitmap);
delete Bitmap;
}
}
**************************************

Salut !

Je pense qu'il faut utiliser l'événement OnPaint de ton TPaintBox.

A) soit la méthode contiendra tout le code nécessaire au dessin.

B) ou bien on dessine sur un bitmap qui est ensuite dessiné sur le TPaintBox, et ce dans une autre méthode.
Dans ce cas, la OnPaint du TPaintBox ne contiendra que :

Code:

---

if(Bitmap != NULL) PaintBox->Canvas->Draw(0,0,Bitmap);

---

Dans les deux cas, le rafraichissement du TPaintBox se fera à l'aide de :

Code:

---

PaintBox->Repaint(); // qui in fine sollicite la OnPaint

---

Pour l'usage du bitmap :

En global :

Code:

---

Graphics::TBitmap *Bitmap = new Graphics::TBitmap;

---

Dans le constructeur de la form (ou ailleurs... selon que...) :

Code:

---

1 2	Bitmap->Width = PaintBox->Width; Bitmap->Height = PaintBox->Height;

---

Dans la OnClose de la form :

Code:

---

1 2	delete Bitmap; Bitmap = NULL; // à cause d'éventuels problèmes lors de la fermeture du programme...

---

A plus !

ca marche