Pyramid / Sales Funnel

[Markus46]

Hello. I have a couple of questions regarding TPyramidSeries.

First off. I think there may be a bug with Tooltips when the LeftAxis is inverted.
Using your Pyramid_Series unit

Pyramid_Series.zip

My replacement Pyramid_Series unit for Tee9new. Illustrates ToolTip issue.

(2.09 KiB) Downloaded 507 times

Tee9new, I add a Mark Tips tool to the chart and set it like so:

Code: Select all

  TMarksTipTool(Chart1.Tools[0]).Style := smsLabelValue;

With LeftAxis non-inverted, I see tooltips as expected. When inverted I do not see tooltips.

Finally, I expect this is possible but I am not experienced enough with TChart.
I add data to the series like so:

Code: Select all

  Series1.Add(100, 'Design');
  Series1.Add(150, 'Programming');
  Series1.Add(90,  'Systems Test');
  Series1.Add(200, 'QA');

I would like to show the label on the LeftAxis, not values. So in the above case, there would be 4 ticks on the left axis being Design, Programming, Systems Test and QA.

How can this be done? I can provide a sample if necessary.

Thanks
Mark

[Yeray]

Hello Mark,

First off. I think there may be a bug with Tooltips when the LeftAxis is inverted.

I've been able to reproduce it so I've added it to the public tracker (#2561).

I would like to show the label on the LeftAxis, not values. So in the above case, there would be 4 ticks on the left axis being Design, Programming, Systems Test and QA.

You could do something like this:

Project1_2022-10-06_13-26-45.png (11.48 KiB) Viewed 5676 times

Code: Select all

uses TeePyramid;

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
    sum: Double;
begin
  Chart1.Color:=clWhite;
  Chart1.Gradient.Visible:=False;
  Chart1.Walls.Hide;
  Chart1.Title.Hide;
  Chart1.View3D:=False;
  Chart1.Legend.Hide;
  Chart1.Hover.Hide;

  Chart1.Axes.Bottom.Labels:=False;

  with TPyramidSeries(Chart1.AddSeries(TPyramidSeries)) do
  begin
    Add(100, 'Design');
    Add(150, 'Programming');
    Add(90,  'Systems Test');
    Add(200, 'QA');

    sum:=0;
    for i:=0 to Count-1 do
    begin
      sum:=sum+YValue[i];
      Chart1.Axes.Left.Items.Add(sum, Labels[i]);
    end;
  end;

  Chart1.Axes.Left.Inverted:=True;
end;

[Markus46]

Thanks so much for your response!
I'll try your suggestion re labels on left axis.