[Composant dynamique] Paint en boucle [FAQ]

**maredami** · 21/03/2006, 11h21

Bonjour,

Je créé dynamiquement un composant(TImage) qui surcharge la méthode Paint.

Le problème est que le Paint tounre en boucle. Je peux utilisé mon programme normalement mais le bouton de création reste enfoncé par ex... C'est pas terrible et j'aimerais faire ça proprement

Voilé le code pour la création sur le clic

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
inc(Nombre);
  SetLength(ListeCompos, Nombre+1);
  ListeCompos[Nombre] := Compo.Create(Self);
  with ListeCompos[Nombre] do
  begin
    Parent := Self;
    PopupMenu := PopupMenu1;
    Name := 'Compo'+IntToStr(Nombre);
    Tag := Nombre;
    Backcolor := clInfoBk;
    OnMouseDown := CompoMouseDown;
    OnDragOver := CompoDragOver;
    OnEndDrag := CompoEndDrag;
  end;

Vous n'auriez pas une idée ?

Merci

**maredami** · 21/03/2006, 12h03

Visiblement, c'est un porblème dans mon Paint.

J'utilise les méthodes Rectangle() et Polygon() de Canvas et il apprécie pas trop.

Pour résoudre le problème, je ne fais pas d'override et j'appelle Paint(public) dès que j'en ai besoin... mais je trouve ça pas très élégant.

Vous n'auriez pas une solution ?

**TicTacToe** · 21/03/2006, 13h08

Le bouton de création

peux-tu préciser stp ?
C'est un bouton standard ou c'est le résultat de ta création, un TImage avec ton evt OnPaint ?

Peux-tu donner le code de ton .OnPaint ?

**maredami** · 21/03/2006, 13h23

Envoyé par TicTacToe

Le bouton de création

peux-tu préciser stp ?
C'est un bouton standard ou c'est le résultat de ta création, un TImage avec ton evt OnPaint ?

Peux-tu donner le code de ton .OnPaint ?

Je tiens à préciser que ce n'est pas un événement...

C'est bouton dans une toolbox qui envoie le code donné plus haut.

Voici un bout de mon paint :

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
 
procedure Paint;override;
 
procedure Paint;
begin
  inherited Paint;
 
  With Canvas do
  begin
    Pen.Color := clRed;
    Brush.Color := clRed;
    Rectangle(0,0,Width,Height);
  end;
 
end;

C'est qu'un petit extrait, mais en ne mettant que ça, ça tourne en boucle... alors que si j'enlève la fonction rectangle, c'est ok.

Ça veut dire que ces fonctions du Canvas font un refresh....

Est-ce possible de l'empêcher sans devoir gérer soi-même tous les appels à Paint ?

**Pedro** · 21/03/2006, 13h46

Envoyé par maredami

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
 
procedure Paint;override;
 
procedure Paint;
begin
  inherited Paint;
 
  With Canvas do
  begin
    Pen.Color := clRed;
    Brush.Color := clRed;
    Rectangle(0,0,Width,Height);
  end;
 
end;

Ce code m'a l'air bon

Pour moi, le problème est ailleurs

Note: C'est pas plutot TMachin.Paint

?

Envoyé par maredami

Ça veut dire que ces fonctions du Canvas font un refresh....

Non absolument pas... Sinon il serait impossible de dessiner un composant

**LadyWasky** · 21/03/2006, 13h54

C'est quoi l'ancêtre de "TMachin" (comme le dit si bien pedro), c'est TImage, ou TButton ?

Sinon je subodore quelque chose du côté de CompoDragOver;

Tu peux nous en dire plus STP ?

**maredami** · 21/03/2006, 14h07

Envoyé par waskol

C'est quoi l'ancêtre de "TMachin" (comme le dit si bien pedro), c'est TImage, ou TButton ?

Sinon je subodore quelque chose du côté de CompoDragOver;

Tu peux nous en dire plus STP ?

L'ancêtre un TImage.

Je (essaie)gère effectivement le Drag&Drop à l'aide de MousDown, DragOver et EndDrag. Bien vu

Mais je ne vois pas en quoi ça peut redessiner mes composants en boucle...

**TicTacToe** · 21/03/2006, 14h15

Moi aussi je subodore la même chose au vu des post.

Est-ce que dans les evts MouseMouve et Dragxxx il n'y a pas quelque chose qui provoque le Paint ? (un refresh, update ... )

Sinon c'est du code normal pour un paint...

**maredami** · 21/03/2006, 14h25

Aucune de ces fonctions ne devrait déranger puisqu'elles agissent en fonctions de certains événements (clic, glisser...).

Dans le doute, j'ai enlevé tout le contenu de ces fonctions qui me servent à faire un Drag&Drop et aussi une sélection à l'aide d'un rectangle.

Le problème est toujours présent.

Je n'y comprends rien !

**maredami** · 21/03/2006, 14h45

J'ai fait une nouvelle application avec un bouton.

Lors du clic sur ce bouton :

Code :

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

1
2
3
4
5
6
7
 
var
  f: MonCompo;
begin
  f := MonCompo.Create(self);
  f.Parent := Self;
end;

En mettant un point d'arrêt, surprise ! Une magnifique boucle sur Paint dès que je retourne sur la Form.(comme avant quoi)

Donc, je ne sais plus que faire si ce n'est gérer moi-même tous les appels à Paint. Ce qui est franchement peu glorieux...

**LadyWasky** · 21/03/2006, 15h02

Tu peux nous envoyer tout ton code ou bien c'est Top Secret ?
On va faire le tri...
parce que là je ne comprend pas du tout ce que tu fait...

**Pedro** · 21/03/2006, 15h46

Envoyé par maredami

En mettant un point d'arrêt, surprise ! Une magnifique boucle sur Paint dès que je retourne sur la Form.(comme avant quoi)

Ben c'est normal

tu mets la fenêtre de code de Delphi devant ton appli (et donc ton compo). Donc lorsque tu retournes vers ton appli (tu la remets en avant plan), il faut redessiner... D'où le Paint... Enfin il me semble...

**maredami** · 21/03/2006, 15h59

Envoyé par Pedro

Envoyé par maredami

En mettant un point d'arrêt, surprise ! Une magnifique boucle sur Paint dès que je retourne sur la Form.(comme avant quoi)

Ben c'est normal

tu mets la fenêtre de code de Delphi devant ton appli (et donc ton compo). Donc lorsque tu retournes vers ton appli (tu la remets en avant plan), il faut redessiner... D'où le Paint... Enfin il me semble...

Oui, ça c'est clair.

Ce qui l'est moins, c'est que la boucle est toujours là en mode exécution (j'ai affiché un compteur pour vérification).

Serait-ce dû à l'override ? Aurais-je ommis de mettre une property à true ou false ?

Ce dont je suis sûr, c'est que, le simple fait d'utiliser Rectangle, Polygon LineTo..., créé une boucle sur la méthode Paint de TImage... enfin je crois !

**maredami** · 21/03/2006, 16h30

J'ai une petite question subsidiaire :

Pourquoi sur ce tutoriel, il fait un override de Paint mais il n'appelle pas inherited Paint ?

Si dans mon code je ne le mets pas, rien ne se dessine.

Est-ce un oubli ?

**LadyWasky** · 21/03/2006, 17h09

Envoyé par maredami

J'ai une petite question subsidiaire :

Pourquoi sur ce tutoriel, il fait un override de Paint mais il n'appelle pas inherited Paint ?

Si dans mon code je ne le mets pas, rien ne se dessine.

Est-ce un oubli ?

Bonne remarque.
Non, il n'y a ni erreur ni oubli.

Quand tu écris :

Code :

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

inherited Paint;

en fait tu appelle le code Paint de la classe ancètre.
Bref, le code que tu ajoute après cet appel, va dessiner par dessus ce qui à déjà été dessiné par Delphi via le code du Paint de l'ancètre

sjrd, lui, redessine complêtement l'objet dans son Paint et et il n'a donc pas besoin d'appeler le dessin de l'ancètre (qui lui, dessine peut-être un triangle).

**tourlourou** · 21/03/2006, 17h10

le TImage n'est pas conçu pour dessiner sur son image, mais pour l'afficher et la repeindre si besoin.

si tu dois modifier l'image, pê serait-il judicieux de le faire en dehors, puis de réaffecter au TImage ?

**LadyWasky** · 21/03/2006, 17h30

Personnellement j'utilise toujours un TPaintBox, couplé si besoin est à un TBitmap. Une fois qu'on y a pris goût...

**LadyWasky** · 21/03/2006, 17h49

Ca y'est !!!!!!!

Dans ton paint, quand tu dessines sur le Canvas du TImage, en fait, tu dessines sur le Bitmap sous-jascent. Modifiant le ce bitmap sous-jascent, crac, tu redéclenches le paint de ton TImage.

Si tu regarde bien comment est codé le PAint de TImage, tu remarqueras qu'il est fait appel à inherited Canvas, qui lui EST le véritable canvas du Timage (en fait celui de l'ancètre TGraphicControl). Bref, il va falloir que tu fasses pareil.

Donc au lieu d'écrire ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure Paint;
begin
  inherited Paint;
 
  With Canvas do
  begin
    Pen.Color := clRed;
    Brush.Color := clRed;
    Rectangle(0,0,Width,Height);
  end;
 
end;

Tu vas écrire ceci, qui devrait faire l'affaire :

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
 
type TPublicGraphicControl=class(TGraphicControl);
 
procedure TTonCompo.Paint;
begin
  inherited Paint;
  //utilise le canvas du TGraphicControl (le vrai Canvas du TImage)
  With TPublicGraphicControl(Self).Canvas do 
  begin
    Pen.Color := clRed;
    Brush.Color := clRed;
    Rectangle(0,0,Width,Height);
  end;
 
end;

**maredami** · 22/03/2006, 08h01

And the winner is : waskol !!!

Merci infiniment !

Si tu regarde bien comment est codé le PAint de TImage

Comment je peux voir ça ?

Tu penses quand même qu'il serait plus judicieux d'utiliser un composant hérité de TPaintBox ? Je vais avoir pleins de composants graphiques différents (pour dessiner un schéma) qui seront ajoutés avec la toolbar.

**LadyWasky** · 22/03/2006, 09h50

Haaaaaaa....

Comment je peux voir ça ?

Dans ton code, dans ton éditeur Delphi :

tu cliques sur le mot TImage (simple clic pour se positionner dessus)
Tu cliques avec le bouton droit de la souris (une fois)
Dans le menu Contextuel, tu choisis "Chercher la déclaration" (tout en haut du menu) -->Delphi ouvre l'unité ExtCtrls

Dans l'explorateur de code, tu cherches et déroules "TImage-->Protégées-->Paint", sur lequel tu cliques et tu obtiens ceci :

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
procedure TImage.Paint;
var
  Save: Boolean;
begin
  if csDesigning in ComponentState then
	with inherited Canvas do
	begin
	  Pen.Style := psDash;
	  Brush.Style := bsClear;
	  Rectangle(0, 0, Width, Height);
	end;
  Save := FDrawing;
  FDrawing := True;
  try
	with inherited Canvas do
	  StretchDraw(DestRect, Picture.Graphic);
  finally
	FDrawing := Save;
  end;
end;

Tu remarques alors le "inherited Canvas" qui appelle la propriété Canvas de la classe ancètre, c'est-à-dire TGraphicControl, qui est une propriété protégée, pour ne rien arranger

... CQFD

Tu penses quand même qu'il serait plus judicieux d'utiliser un composant hérité de TPaintBox ? Je vais avoir pleins de composants graphiques différents (pour dessiner un schéma) qui seront ajoutés avec la toolbar.

En fait, pour dessiner quelque part en direct, c'est ce que j'utilise, (il y ajuste à codé l'évènement OnPaint.
Par contre pour faire un composant visuel, la plupart du temps, je suis un poil brutus

:
- si il mon composant doit contenir des contrôles : je dérive de TWinControl et j'écris tout..
- sinon je dérive de TGraphicControl.

En tout cas, écrire un descendant de TImage, non, je ne le fait jamais. A la rigueur un descendant de TPaintBox, avec un TBitmap qui me sert à dessiner en BackGround fait toujours l'affaire. C'est moins lourd que TImage, je trouve.

Celà reste bien sur un point de vue, chacun doit trouver son style : il n'y a pas UNE solution universelle pour chaque réalisation spécifique.

Voilà, voilà.

[Composant dynamique] Paint en boucle [FAQ]

Langage Delphi

Discussions similaires

Partager

Partager