2nd legend not visible

[TestAlways]

In a previous version of TChart, I used the following code to create a second legend:

Code: Select all

          lsrs := CreateBarSeries('none', lChart, clNone, 0);
          lsrs.Active := false;
          lsrs.AddNull('Pre-Tax');
          lsrs.AddNull('Roth');

          lChart.Legend.Symbol.Width := 45;

          lExtraLegend := TExtraLegendTool.Create(self);
          lExtraLegend.ParentChart := lChart;
          lExtraLegend.Legend.CustomPosition := True;
          lExtraLegend.Legend.LegendStyle := lsValues;
          lExtraLegend.Legend.Transparent := True;
          lExtraLegend.Legend.Symbol.OnDraw := AccumChartLegendDrawAccountSymbols;
          lExtraLegend.Legend.TextStyle := ltsPlain;
          lExtraLegend.Series := lsrs;
          lExtraLegend.Active := True;
          lExtraLegend.Legend.Symbol.Width := 45;

          lChart.OnGetLegendText  := BPAccumChartLegendText;
          lExtraLegend.Legend.Title.Text.Text := 'Accounts';

          lChart.OnBeforeDrawSeries := BPAccumChartBeforeDrawSeries;

And I got the following result (which is what I want):



But this does not work in the current version I am using--it only shows one legend symbol (the blue ones). (And, as you might expet, the BPAccumChartBeforeDrawSeries event is never called).

Here is the original post from which I got this answer from:

http://www.teechart.net/support/viewtop ... end#p58861

How do I add the second column of legend symbols?

Thank you,

Ed Dressel

[Yeray]

Hello Ed,

The code above is incomplete. Could you please arrange a simple example project we can run as-is to reproduce the problem here?
Ie, I read "Rates of Return" in the image you posted with the desired result but I don't find that text in the code you posted.

The project here looks like this for me here:

legend.png (29.1 KiB) Viewed 12454 times

[TestAlways]

I was using v. 15 and have changed to v. 16 and get the same results you do from the demo

But in a previous version of TChart, I got the two different symbols under "Rates of Return" in my first image. How can I get the second column of symbols?



Thank you,

Ed Dressel

[Yeray]

Hello,

But in a previous version of TChart, I got the two different symbols under "Rates of Return" in my first image. How can I get the second column of symbols?

Could you please post an example showing how did you achieve that result with v2015.15?

[TestAlways]

The attached demo can create the following image in 2013.09.131119:



FYI--this is what I need (it would be nice to have less margin between the two legends).

[Yeray]

Hello,

From v2014.10 to v2015.15 the ExtraLegend wasn't shown (id=755).

Regarding the symbols you are manually drawing, note before v2014.11 the Legend.Symbol.Square property was false by default and we moved it to true from that version. This makes your symbols to be squared and the width is incorrect for your purpose.
Add these lines to your TForm1.Create to fix that:

Code: Select all

  Chart1.Legend.Symbol.Squared:=false;
  FExtraLegend.Legend.Symbol.Squared:=false;