同步缩放两个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
);