Bug 2330

You can create a Rectangle Tool and add children to it. However, you can't access the text of the children by code.

In Delphi:

procedure TForm1.FormCreate(Sender: TObject);
begin
  with TRectangleTool(Chart1.Tools.Add(TRectangleTool)) do
  begin
    Text:='Rectangle Tool';
    Shape.Transparency:=10;
    Shape.Font.Color:=clRed;
    Shape.Font.Style:=Shape.Font.Style+[fsBold];
    AutoSize:=True;
    Left:=100;
    Top:=100;

    with Shape.Children.Add do
    begin
      Shape.Font.Color:=clGreen;
      TCustomTextShape(Shape).Text:='Child 1';
    end;
  end;
end;

In VB6:

  TChart1.Tools.Add tcRectangle
  With TChart1.Tools.Items(0).asRectangle
    .Text = "Rectangle tool"
    .Shape.Transparency = 20
    .AutoSize = True
    .Shape.Font.Color = vbRed
    .Shape.Font.Bold = True
  
    .Shape.Children.Add
    .Shape.Children.Item(0).Shape.Font.Color = vbGreen
    '.Shape.Children.Item(0).Shape.Text = "Child 1"
  End With