Steema Central

Posted: **Wed Sep 28, 2022 12:53 am**

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 499 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

Posted: **Thu Oct 06, 2022 12:10 pm**

Hello Mark,

Markus46 wrote: ↑
Wed Sep 28, 2022 12:53 am
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).

Markus46 wrote: ↑
Wed Sep 28, 2022 12:53 am
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 5531 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;

Posted: **Thu Oct 13, 2022 5:50 am**

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

Steema Central

Pyramid / Sales Funnel

Pyramid / Sales Funnel

Re: Pyramid / Sales Funnel

Re: Pyramid / Sales Funnel