Синхронное масштабирование двух компонентов TChart

Question

Я использую два компонента TChart и хотел бы сделать для них синхронизированное масштабирование.Я обнаружил, что TChart имеет процедуру ZoomRect для увеличения нужного прямоугольника на диаграмме, но я не нашел способа прочитать координаты этого прямоугольника масштабирования с другой диаграммы.

Вот некоторый псевдокод для дополнительного пояснения:

MainChart.OnZoom := HandleZooming;

...

procedure HandleZooming(Sender: TObject);
var
  zoomRectangle: TRect;
begin
  zoomRectangle := MainChart.?????;
  SecondaryChart.ZoomRect(zoomRectangle);
end;

Я использую Delphi XE.

Answer 1

Это должно сделать это:

zoomRectangle := Rect(
  MainChart.Zoom.X0, 
  MainChart.Zoom.Y0, 
  MainChart.Zoom.X1,
  MainChart.Zoom.Y1
);