两个TChart组件的同步缩放

Question

我正在使用两个TChart组件，并希望对它们进行同步缩放。我发现TChart的ZoomRect程序可以放大图表上所需的矩形，但我还没有找到任何方法从另一个图表读取此缩放矩形的坐标。

这里有一个额外的澄清一些伪代码：

MainChart.OnZoom := HandleZooming; 

... 

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

我使用德尔福XE。

Answer 1

这应做到：

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