DELPHI AREA Forum

Hello,
i have a question.
How can i write a graph that looks like:


I wrote the code:

Code: Select all

procedure TForm1.FormCreate(Sender: TObject);
var
  Node: TRectangularNode;
  Link: TGraphLink;
  FGraph : TSimpleGraph;
  i : Integer;
begin

  NodeList.Free;
  NodeList:= TGraphObjectList.Create();
  LinkList.Free;
  LinkList:= TGraphObjectList.Create;

  FGraph := TSimpleGraph.Create(Self);
  FGraph.SetBounds(10, 10, 400, 400);
  FGraph.BeginUpdate;

for I := 0 to 4 do
begin
  Node := TRectangularNode.Create(FGraph);
  if ( (i mod 2)=0 ) then
  begin

    Node.SetBounds(1, 10 +(i*30), 10, 30);
    Node.Brush.Color := clgreen;
    Node.Alignment:=taCenter;
  end
  else
    Node.SetBounds(1+(i*30), 10, 10, 30);

   NodeList.Add(Node);
   if ( (i mod 2)=0 ) then
     NodeList.Items[i].Text := '0'
   else
   NodeList.Items[i].Text := '1';
end;
  FGraph.CommandMode:=(cmEdit);
  for I := 0 to 3 do
  begin

      Link := TGraphLink.Create(FGraph);
      Link.Link(FGraph.Objects[0], FGraph.Objects[i+1]);
      LinkList.Add(Link);
      LinkList.Items[i].Text := IntToStr(i);

  end;
  Link.Font.Height := 15;

  FGraph.LockLinks := True;
  FGraph.EndUpdate;
  FGraph.Parent := Self;
end;


Now the two links overlap.,.
How do i write in code, link like this one the highest and the lowest in the picture (round links).

Please help me.

Hi,

Please check out the following link:
http://extgraph.sourceforge.net/