Discussion :

[qi130]

Pour des besoins particuliers, j'ai besoin d'un compo ayant tous les comportements d'un TPanel, et ses propriétés + quelques unes:

• FIdentifiant
• FAncetre
• FEnfant
• FCadet
• FAine

qui sont destinées à une sorte de chaînage par lien de parenté.

je l'appelle TMonPnl, et ça fonctionne en l'état

Atteint par le syndrome du toujours plus, je souhaite maintenant que ce panel s'enrichisse d'un petit quelque chose (carré, rond ou n'importe quoi) pour chaque lien de parenté existant.

Après avoir épluché plusieurs sources/tutoriaux, j'ai pondu çacf le zip)
En 1ère intention, lorsque j'alimente Ancetre (seul implémenté dans le source), j'ai bien le petit dessin, mais il ne "reste" pas sur le panel en cas de déplacement ou de changement de taille

Ce que j'ai pu voir par ailleurs m'amène à penser qu'il faut intercepter l'événement Paint afin de procéder au traçage de mon petit indicateur de parenté.

Je voudrais déjà une confirmation sur ce point avant les questions subsidiaires .

Merci d'avance.

[Tardiff Jean-François]

Bonjour,


Vous tracer vos dessin directement sur le canvas. Du coup A chaque fois que le canvas est redessinez, vous perdez le dessin. C'est exactement ce que vous penser.

Pour le resoudre il faut fair un "override" de paint.
Pour la declaration regarder dans l'unité ExtCtrls la déclaration de TCustomPanel (l'ancêtre directe de paint).

Dans votre implementation de paint, faite un "inherited(paint);", puis lancer votre fonction "DrawLiens".

[LadyWasky]

Alors...


Ici :

Code :

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

1
2
3
protected
    { Déclarations protégées }    
  public

tu rajoutes...

Code :

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

1
2
3
4
protected
    { Déclarations protégées }
    procedure Paint; override;
 public

Tu fais Ctrl+Shift+C, et tu obtiens ceci (tout en bas de ton unité :

Code :

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

1
2
3
4
procedure TMonPnl.Paint;
begin
  inherited;
end;

tu modifies pour que celà ressemble à ceci :

Code :

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

1
2
3
4
5
procedure TMonPnl.Paint;
begin
  inherited;
  DrawLiens;
end;

Et là :

Code :

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

1
2
3
4
5
procedure TMonPnl.SetAncetre(Ancetre:TRelation);
begin
     FAncetre:=Ancetre;
     DrawLiens;
end;

tu modifies en écrivant ceci :

Code :

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

1
2
3
4
5
procedure TMonPnl.SetAncetre(Ancetre:TRelation);
begin
     FAncetre:=Ancetre;
     Invalidate; //Appelle le Paint
end;

Je crois que c'est tout

[qi130]

Je crois que c'est tout

Ben.....ouais

Nickel !

Et dire que je me voyais parti pour 2 heures de coding/debug avec cette histoire là !

Bon, faut croire que les exemples que j'ai vu par ailleurs avaient un besoin particulier pour intercepter le Paint avec gestion de msg, NotifyEvent etc...