TPaintBox dynamique sur une TTabSheet

Version imprimable

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:

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

29/05/2013, 19h21
Freeze

pour une TPaintBox, le dessin se fait sur l'évènement OnPaint
30/05/2013, 08h17
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...

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:

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:

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

Code:

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

30/05/2013, 14h05
rdtech

Merci beaucoup pour cette réponse ShaiLeTroll.
Ca fonctionne parfaitement!
02/06/2013, 13h37
henderson

Salut !

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

A plus !