New version of TSimpleGraph - how does linking work

[cschulz]

All sample code is implicit example when programming procedural code I'm at a loss.

For example when adding a rectangle in code that would look like ...

MyVirt.X := 100;
MyVirt.Y := 100;

Pt := SimpleGraph.ScreenToClient( MyVirt );

SimpleGraph.DefaultNodeClass := TRectangularNode;
SimpleGraph.CommandMode := cmInsertNode;

NodeRect.TopLeft := SimpleGraph.ClientToGraph(Pt.X, Pt.Y);
NodeRect.Right := NodeRect.Left + NewNodeWidth;
NodeRect.Bottom := NodeRect.Top + NewNodeHeight;
SimpleGraph.InsertNode(NodeRect, TRectangularNode);

This still works in the new component

However

SimpleGraph.LinkNodes( TGraphNode(SimpleGraph.Objects [SimpleGraph.ObjectsCount(nil) - 1]), TGraphNode(SimpleGraph.Objects [SimpleGraph.ObjectsCount(nil) - 2]), nil);

no longer is supported or works in a complete different way

I'm now trying something like this


if ( SimpleGraph.Objects.Items[ AlleGraphNodes - 1].ClassType = TRectangularNode ) and
( SimpleGraph.Objects.Items[ AlleGraphNodes - 2].ClassType = TRectangularNode ) then
begin

FromObject := SimpleGraph.Objects [SimpleGraph.ObjectsCount(nil) - 1];
ToObject := SimpleGraph.Objects [SimpleGraph.ObjectsCount(nil) - 2];

// showmessage ('laatste twee zijn TRectangularNode --> maak een link !!');

SimpleGraph.Objects.Add( TGraphLink.create() );

TGraphLink(SimpleGraph.Objects.Last).Source := FromObject;
TGraphLink(SimpleGraph.Objects.Last).Target := ToObject;
TGraphLink(SimpleGraph.Objects.Last).Text := 'hallo dit is een test';

end;

To create a link between the last two GraphObjects that are rectangulars ...

It does not work ...

any suggestions to put me on the right track are welcome .. An other option for me is to fall back on the previous version ... but hey

[Kambiz]

It is because of a bug in InsertLink method.

It's already fixed in v2.1, and this weekend is going to be released.

[cschulz]

I upgraded the component to 2.4 and loaded the new demo programm. Then I added my button to the bar and copied my little piece of test code in place ....

Adding a link between two GraphObjects in a programmatic way still does not work .. how adding a link in de the demo programm works goes way beyond my understanding of Delphi since there is no place in the code I can pinpoint where 'things are actually happening' its all higher implicit coding to me.

If anyone can provide me with a working (code sample in a single procedure where actual methods are called and actual variables are passed) that would be great ... this is what I got ... and it does not work

Any help is much appreciated ...

[cschulz]

hmmm ... I should not have relied so much on code completion suggestions ...

[Kambiz]

1. It's more effecient to use Objects.Count instead of ObjectsCount(nil).
   
2. You do not need to change CommandMode.
   
3. You do not need to set DefaultNodeClass or DefaultLinkClass.
   
4. In you code, nodes will overlap on each other.
   
5. According to the algorithm, objects in the Objects array are the form: TRecatngularNode, TRectangularNode, TGraphLink, TRectangularNode, TRectangularNode, TGraphLink, and so on.
   You considered previous object is a node. But as you can see, after two clicks on the button, the previous object is a link. Therefore your code doesn't make a link between all nodes.

[cschulz]

Thanks Kambiz !