SubChart events

[NikeMan]

Is it possible to catch subcharts events for example the OnZoom event?

Best regards,
Nikemann

[Yeray]

Hi Nikemann,

Yes, but you should assign them at runtime. This code works fine here:

Code: Select all

procedure TForm1.FormCreate(Sender: TObject);
begin
  ChartTool1.Charts[0].Chart.Title.Visible := true;

  ChartTool1.Charts[0].Chart.OnZoom := Chart1Zoom;
  ChartTool1.Charts[0].Chart.OnUndoZoom := Chart1UnZoom;
end;

procedure TForm1.Chart1Zoom(Sender: TObject);
begin
  ChartTool1.Charts[0].Chart.Title.Text.Text := 'Zoomed';
end;

procedure TForm1.Chart1UnZoom(Sender: TObject);
begin
  ChartTool1.Charts[0].Chart.Title.Text.Text := 'UnZoomed';
end;

[NikeMan]

Hi Yeray,

Tanks, it works also fin here.
My problem was, not knowing how to assign at runtime.


Best regards
Nikeman

[Yeray]

Hi Nikemann,

I'm happy to be helpful!