How to determine if all axis labels are visible?

[jens.mertelmeyer]

Imagine a series (Bar Series) with every item having a label. We can set something like "labels -> min separation" of an axis. That's pretty cool. Instead of overlapping Labels, some are getting hidden.

The label in the middle got hidden

1.png (5.49 KiB) Viewed 7058 times

I've increased the chart's width a bit and now all labels are visible

2.png (6.7 KiB) Viewed 7059 times

My question is: How can I find out whether all labels are still visible or if some got hidden?

Many thanks in advance

[Yeray]

Hi Jens,

You could check Chart1.Axes.Bottom.Items.Count as in the following example:

Code: Select all

uses Series;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Chart1.Align:=alClient;

  with Chart1.AddSeries(TBarSeries) do
  begin
    FillSampleValues(6);
    Labels[0]:='Uno';
    Labels[1]:='Dos';
    Labels[2]:='Tres';
    Labels[3]:='Cuatro';
    Labels[4]:='Cinco';
    Labels[5]:='Seis';
  end;

  TrackBar1.Max:=100;
  TrackBar1.Min:=0;
  TrackBar1.Position:=10;
  TrackBar1.Frequency:=10;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  Chart1.Axes.Bottom.LabelsSeparation:=TrackBar1.Position;
  Label1.Caption:='Separation: ' + IntToStr(TrackBar1.Position) + ' %';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(Chart1.Axes.Bottom.Items.Count) + '/' + IntToStr(Chart1[0].Count) + ' labels drawn');
end;

[jens.mertelmeyer]

The Items of the Axis, of course!

Thank you very much for this elaborate example