Discussion :

[bm1990]

Bonsoir à tous je cherche comment dessiner des nœuds et des arc à partir d'une table (une table par exemple je charge le contenu d'un fichier texte qui contient les liens et les distance dans une StringGrid ) de liens et de distance entre les nœuds et pour information c'est ma première fois que je cherche à faire un dessin d'un réseau et des machines en Delphi alors j'ai pas un commencement, j'aime bien que vous m'aidiez.

[popo]

Je n'ai pas tout compris mais si ce que tu cherches est de dessiner sur le Canvas alors ce lien devrait t'aider.
http://delphi.about.com/library/bluc/text/uc052102a.htm

[bm1990]

Bonsoir, oui je cherche à dessiner sur un canvas ou bitmap parce que je veux faire un logiciel similaire à simatic pcs7 pour préparer mon thème de master.

[paulfr]

Bonjour,

J'ai utilisé dans le temps cette procédure pour tracer une croix sur un canevas :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TraceNoeuds(X, Y : integer);
begin
  MoveTo(X,Y);         // deplacement
  LineTo(X+0,Y+4);  // tracé de (X,Y) vers (X1,Y1) et déplacement en (X1,Y1)
  LineTo(X+0,Y-8);
  MoveTo(X,Y);
  LineTo(X+4,Y+0);
  LineTo(X-8,Y+0);
end;

X,Y sont les coordonnées du point en pixels où est fait le tracé et la croix ( + ) a des branches de 4 pixels.
Voir la définition de TPoint pour faire le changement de coordonnées, sachant que sur l'écran le point(0,0) est en haut et à gauche et que l'axe des Y se dirige vers le bas.
C'est un peu primaire.

PL