Discussion :

[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 !

[Andnotor]

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 :

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

[Paul TOTH]

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.

[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...

[Paul TOTH]

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