Einzelnen Beitrag anzeigen

pagan1900

Registriert seit: 27. Mär 2006
25 Beiträge
 
#1

wie Rückpfeil in graphen zeichnen delphi ??

  Alt 14. Mai 2006, 17:43
Hi ich habe ein probleme ich mus eine graphen ertellen für den dijkstra algorithmus , nur die sache ist die, der graph kann ja auch rückpfeile besitzen
z.b. 1->2 und von 2->1
ohne das der pfeil gleich zum mond "auswandert"
ich müste den rückpfeil etwas versetzt dartellen
nur wie kann ich das realisieren?


Code:
for locali:=1 to m do
  begin
  Pfeilstartx:=Kx[anf[locali]];
  Pfeilstarty:=Ky[anf[locali]];
  Pfeilendex:=Kx[ende[locali]];
  Pfeilendey:=Ky[ende[locali]];
  //Linie zeichnen
  normal.Canvas.Brush.Color := clBlack;
  normal.Canvas.Pen.Style  := psSolid;
  normal.Canvas.Pen.Width  := 3;
  normal.Canvas.MoveTo(pfeilstartx,pfeilstarty);
  normal.canvas.LineTo(pfeilendex,pfeilendey);
danke im vorraus!
  Mit Zitat antworten Zitat