Des traits entre les composants...

Messages postés
237
Date d'inscription
mardi 13 novembre 2007
Statut
Membre
Dernière intervention
21 novembre 2013
- - Dernière réponse : blueperfect
Messages postés
237
Date d'inscription
mardi 13 novembre 2007
Statut
Membre
Dernière intervention
21 novembre 2013
- 21 sept. 2008 à 14:05
Salut,

je suis dans la galère !

Je cherche à dessiner des traits entre mes TDatasets et mon TDataSource, lorsque je suis dans l'IDE (design time), et que quand je bouge le composant, je puisse redessiner les traits !

Attention ! Je parle de descendant de TComponent et pas de TControl !

Si vous avez une info....même chez Borland, ils veulent pas me le dire !


blueperfect
Afficher la suite 

3 réponses

Messages postés
4200
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
2 janvier 2019
26
0
Merci
procedure TUnComposantVisuel.Paint; { methode Paint surchargée }
var FriendCompo : TComponent;
begin
  if csDesigning in ComponentState then
    { dessin en mode Design }   
    if AOwner is TWinControl then
    begin
      // rechercher un composant qu'il faut lier
      FriendCompo := ?;

      AOwner.Canvas.MoveTo( Width shr 1, Height shr 1);
      AOwner.Canvas.LineTo( FriendCompo.Width shr 1, FriendCompo.Height shr 1);
    end;
  end;
  inherited;
end;






<hr size="2" width="100%" />
Commenter la réponse de f0xi
Messages postés
237
Date d'inscription
mardi 13 novembre 2007
Statut
Membre
Dernière intervention
21 novembre 2013
0
Merci
blueperfect
Commenter la réponse de blueperfect
Messages postés
237
Date d'inscription
mardi 13 novembre 2007
Statut
Membre
Dernière intervention
21 novembre 2013
0
Merci
Width et Height sur un TComponent ?

blueperfect
Commenter la réponse de blueperfect