Steema Central

Code: Select all

uses Series;

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

  Chart1.View3D:=False;
  Chart1.Legend.Hide;

  Chart1.Color:=clWhite;
  Chart1.Gradient.Visible:=False;
  Chart1.Walls.Back.Color:=clWhite;
  Chart1.Walls.Back.Gradient.Visible:=False;

  Chart1.Axes.Top.Grid.Hide;
  Chart1.Axes.Top.Title.Text:='Top axis title';
  Chart1.Axes.Bottom.Title.Text:='Bottom axis title';

  Chart1.OnClickAxis:=ChartClickAxis;

  with Chart1.AddSeries(TLineSeries) do
  begin
    Color:=clBlack;

    HorizAxis:=aTopAxis;
    FillSampleValues(40);
    for i:=0 to Count-1 do
        XValue[i]:=40+i;
  end;

  with Chart1.AddSeries(TLineSeries) do
  begin
    Color:=clRed;
    FillSampleValues(200);
    for i:=0 to Count-1 do
        XValue[i]:=50+i;
  end;

  //Chart1.Axes.Bottom.LabelStyle:=talNone; // With this, I see no labels at the bottom axis, but the bottom axis line is still drawn and the OnClickAxis is still fired when I click on it
  //Chart1.Axes.Bottom.Visible:=False;      // With this, the OnClickAxis event isn't fired. Expected behaviour
end;

procedure TForm1.ChartClickAxis(Sender:TCustomChart; Axis:TChartAxis; Button:TMouseButton;
                                Shift: TShiftState; X, Y: Integer);
begin
  if Axis=Chart1.Axes.Bottom then
     ShowMessage('Bottom axis clicked');
end;