How to use TSimpleGraph component? [closed]

Question

Closed. This question does not meet Stack Overflow guidelines. It is not currently accepting answers.

---

Questions concerning problems with code you've written must describe the specific problem — and include valid code to reproduce it — in the question itself. See SSCCE.org for guidance.

Closed 8 years ago.

Improve this question

I have downloaded and installed TSimpleGraph component but cannot really understand how to use it. I've checked the demo but it is too complexed for me and in Delphi (I use C++ Builder) to be able to dissect what I need.

What I am trying is to create two rectangles that are connect with an arrow line. Rectangles should be able to move when user drags them and the arrow should move accordingly (pointing from one rectangle to another). If someone could provide me with this example (Delphi or C++ Builder) I believe I could figure out the rest. Thanks in advance.

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
var
  Node: TRectangularNode;
  Link: TGraphLink;
begin
  FGraph := TSimpleGraph.Create(Self);
  FGraph.SetBounds(10, 10, 400, 400);
  FGraph.BeginUpdate;
  Node := TRectangularNode.Create(FGraph);
  Node.SetBounds(25, 25, 100, 50);
  Node := TRectangularNode.Create(FGraph);
  Node.SetBounds(200, 200, 50, 100);
  Link := TGraphLink.Create(FGraph);
  Link.Link(FGraph.Objects[0], FGraph.Objects[1]);
  FGraph.EndUpdate;
  FGraph.Parent := Self;
end;