Discussion :

[rdtech]

bonjour,
j'instancie de manière dynamique une TPaintBox que je veux insérer sur une TTabSheet créée à la demande. L'utilisateur doit pouvoir cliquer sur cette TPaintBox pour y dessiner des formes géométriques.
J'a le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
//nouvelle page pour la table PageControl
TTabSheet* page = new TTabSheet(this);
page->Width = 200;
page->Height = 150;
page->Top = 10;
page->Left = 0;
//insertion sur le TPageControl
page->PageControl = PageControl;
//insérer un contrôle sur la nouvelle page
TPaintBox* paintBox = new TPaintBox(page);
paintBox->Parent = page;
paintBox->Width = 150;
paintBox->Height = 120;
paintBox->Top = 10;
paintBox->Left = 10;
paintBox->Canvas->Pen->Color = clYellow;
paintBox->Canvas->Brush->Color = clRed;
TRect NewRect = Rect(20, 30, 50, 90);
paintBox->Canvas->FillRect(NewRect);

La TPaintBox n'apparaît jamais.
J'arrive à faire un boulot identique avec un TLabel.

Qu'est ce que j'oublie au niveau de la TPaintBox??

Merci

[Freeze]

pour une TPaintBox, le dessin se fait sur l'évènement OnPaint

[rdtech]

Bonjour et merci pour la réponse,

pour un contrôle TPaintBox implanté à la conception de la Form, c'est ok.
Ce que je n'arrive pas à mettre en place, c'est l'écouteur d'évènement Paint et Click sur cette TPaintBox installée dynamiquement (syntaxe et appel).
C'est peut être pas possible...

[ShaiLeTroll]

pourtant tu as déjà un très bon début !
Pense qu'un TPaintBox est un TGraphicControl, il ne pourra JAMAIS s'afficher par dessus un TPanel ou TGroupBox, pense à mettre ton TPaintBox dans le Container TWinControl de plus haut niveau en Z-Order

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
//nouvelle page pour la table PageControl
TTabSheet* page = new TTabSheet(this);
page->Width = 200;
page->Height = 150;
page->Top = 10;
page->Left = 0;
 
//insertion sur le TPageControl
page->PageControl = PageControl;
 
//insérer un contrôle sur la nouvelle page
TPaintBox* paintBox= new TPaintBox(page);
paintBox->Parent = page ;
paintBox->Width = 150;
paintBox->Height = 120;
paintBox->Top = 10;
paintBox->Left = 10;
paintBox->OnClick = PaintBoxClickEventHandler;
paintBox->OnPaint = PaintBoxPaintEventHandler;

Code :

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

1
2
3
4
 
private:
  void __fastcall PaintBoxClickEventHandler(TObject* Sender);
  void __fastcall PaintBoxPaintEventHandler(TObject* Sender);

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
void __fastcall TForm...::PaintBoxPaintEventHandler(TObject* Sender)
{
  TPaintBox* paintBox= dynamic_cast<TPaintBox*>(Sender);
  if (paintBox)
  {
    paintBox->Canvas->Pen->Color = clYellow;
    paintBox->Canvas->Brush->Color = clRed;
 
    TRect NewRect = Rect(20, 30, 50, 90);
    paintBox->Canvas->FillRect(NewRect);
  }
}

[rdtech]

Merci beaucoup pour cette réponse ShaiLeTroll.
Ca fonctionne parfaitement!

[henderson]

Salut !

Il y avait une autre solution en dérivant de TCustomControl qui hérite de TWinControl ...

A plus !