Des traits entre les composants...

Signaler
Messages postés
237
Date d'inscription
mardi 13 novembre 2007
Statut
Membre
Dernière intervention
21 novembre 2013
-
Messages postés
237
Date d'inscription
mardi 13 novembre 2007
Statut
Membre
Dernière intervention
21 novembre 2013
-
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

3 réponses

Messages postés
4200
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
13 juin 2020
30
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%" />
Messages postés
237
Date d'inscription
mardi 13 novembre 2007
Statut
Membre
Dernière intervention
21 novembre 2013

blueperfect
Messages postés
237
Date d'inscription
mardi 13 novembre 2007
Statut
Membre
Dernière intervention
21 novembre 2013

Width et Height sur un TComponent ?

blueperfect