Des traits entre les composants...

Question

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

f0xi · Answer

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%" />

blueperfect · Answer

blueperfect

blueperfect · Answer

Width et Height sur un TComponent ?

blueperfect

Des traits entre les composants...

3 réponses

Votre réponse

Discussions similaires