The chart by default draws the labels for the first series in the chart.
You could add the labels of the second series as "custom labels". Ie:
Chart1.Draw;
for i:=0 to Chart1.Series[1].Count-1 do
Chart1.Axes.Bottom.Items.Add(Chart1.Axes.Bottom.Items.Count, Chart1.Series[1].Labels[i]);
Chart1.Draw;
You can use OnGetMarkText event to intercept the marks drawing and empty them according to any condition you define.
In this example I've set the threshold to 7000 because I don't see any 0 value in your test project:
procedure TForm2.FormCreate(Sender: TObject);
begin
Chart1.Series[0].OnGetMarkText:=SeriesGetMarkText;
end;
procedure TForm2.SeriesGetMarkText(Sender:TChartSeries; ValueIndex:Integer; var MarkText:String);
const threshold = 7000;
begin
if Assigned(Sender) and (ValueIndex > -1) and (Sender.YValue[ValueIndex] < threshold) then
MarkText := '';
end;
Steema Software support forums are publicly readable but only writeable to customers with active commercial subscriptions.
The contact form should work fine. If it doesn't, you can always write at "info at steema.com" or "sales at steema.com".
---
Yeray Alonso
Steema Software