sorry I had not searched enough...
verry simple with "unit NodeProp"
procedure TMainForm.Button1Click(Sender: TObject);
var
rect:trect;
begin
rect.top:=100;
rect.Left:=500;
rect.Width:=130;
rect.Height:=50;
SimpleGraph.InsertNode(rect,TRectangularNode);
with TGraphNode(SimpleGraph.Objects.Last) do
begin
BeginUpdate;
try
//Alignment := taLeftJustify, taCenter, taRightJustify; (horizontal)
Alignment := taCenter;
// Layout := tlTop, tlCenter, tlBottom; (Vertical)
Layout := tlCenter;
// caption of node
Text := 'test1'+chr(10)+'test2';
// fill color
Brush.Color := claqua;
// border color
Pen.Color := clRed;
// use pngimagelist
Background.Bitmap.Assign(PngImageList1.PngImages.Items[7].PngImage); // have problème here the bitmap take same place a node
// with imaglist : ImageList.GetBitmap(2,Background.Bitmap); // same problem
finally
EndUpdate;
end;
end;
end;
I am now looking for link and to retrieve these values from an existing object ...
aventure be continued ^^