Pyramid / Sales Funnel

TeeChart VCL for Borland/CodeGear/Embarcadero RAD Studio, Delphi and C++ Builder.
Post Reply
Markus46
Newbie
Newbie
Posts: 15
Joined: Thu Sep 20, 2018 12:00 am

Pyramid / Sales Funnel

Post by Markus46 » 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 216 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
Site Admin
Site Admin
Posts: 9509
Joined: Tue Dec 05, 2006 12:00 am
Location: Girona, Catalonia
Contact:

Re: Pyramid / Sales Funnel

Post by Yeray » 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
Project1_2022-10-06_13-26-45.png (11.48 KiB) Viewed 2926 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;
Best Regards,
ImageYeray Alonso
Development & Support
Steema Software
Av. Montilivi 33, 17003 Girona, Catalonia (SP)
Image Image Image Image Image Image Please read our Bug Fixing Policy

Markus46
Newbie
Newbie
Posts: 15
Joined: Thu Sep 20, 2018 12:00 am

Re: Pyramid / Sales Funnel

Post by Markus46 » Thu Oct 13, 2022 5:50 am

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

Post Reply