Composant TPaintBox Delphi

Version imprimable

31/10/2008, 07h50
JeanDan

Composant TPaintBox Delphi

Salut,

JE suis débutant en delphi.....
Est ce que qq1 pourrai me donner qques renseignements sur le composant TpainBox car je n'arrive pas à l'utiliser... même avec l'aide ....

Merci bcp !

Tout le dessin doit obligatoirement être implémenté dans l'événement OnPaint du PaintBox.

Ensuite tu utilises simplement les méthodes et propriétés du canvas du TPaintBox.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 procedure TForm1.PaintBox1Paint(Sender: TObject); begin with TPaintBox(Sender), Canvas do begin Brush.Color := clBlack; FloodFill(0, 0, clBlack, fsBorder); Pen.Color := clGray; Brush.Color := clRed; Ellipse(10, 10, 50, 50); Brush.Color := clBlack; Font.Color := clWhite; TextOut(5, 55, 'Hello Dave_'); end; end;

31/10/2008, 11h41
Paul TOTH

Citation:

Envoyé par JeanDan

Salut,

JE suis débutant en delphi.....
Est ce que qq1 pourrai me donner qques renseignements sur le composant TpainBox car je n'arrive pas à l'utiliser... même avec l'aide ....

Merci bcp !

TPaintBox est un composant qui permet de définir une zone rectangulaire dans son composant Parent. Cette zone réagit aux événements souris et le OnPaint permet de dessiner "sur le parent" dans une zone limitée aux dimensions de la PaintBox...c'est tout :)

NB: il n'existe aucune persistance sur l'événement OnPaint (le dessin réalisé n'est pas gardé en mémoire, il apparait simplement à l'écran), le code est donc réinvoqué à chaque fois que la fiche doit se dessiner.
31/10/2008, 14h02
Andnotor

Je suis pas vraiment d'accord avec cette definition Paul :?

Le TPaintBox est un GraphicControl à part entière.
Il possède sont propre canvas qui n'est pas une encapsulation de celui du parent.
Les coordonnées sont relatives à son Top/Left et ne correspondent pas non plus à un ClipRect du parent...
31/10/2008, 14h08
Paul TOTH

Citation:

Envoyé par Andnotor

Je suis pas vraiment d'accord avec cette definition Paul :?

Le TPaintBox est un GraphicControl à part entière.
Il possède sont propre canvas qui n'est pas une encapsulation de celui du parent.
Les coordonnées sont relatives à son Top/Left et ne correspondent pas non plus à un ClipRect du parent...

Exactement, TGraphicControl qui dérive de TControl et non de TWinControl. Il n'a donc aucune existance au niveau de Windows, il n'est de fait visible que parcequ'il se dessine sur son parent TWinControl qui lui possède un HWnd et existe en tant qu'objet Windows :)