Все нашел сам!
Зум или смещение:
Код:
procedure TFrame1.Chart1Scroll(Sender: TObject);
var i:integer;
begin
Chart1.BottomAxis.Automatic:=false;
for i:=0 to ChartArr.Count-1 do begin
{ [x] }
TCHart(ChartArr.Items[i]).BottomAxis.Automatic:=false;
TCHart(ChartArr.Items[i]).BottomAxis.Minimum:=Chart1.BottomAxis.Minimum;
TCHart(ChartArr.Items[i]).BottomAxis.Maximum:=Chart1.BottomAxis.Maximum;
{ [y] }
TCHart(ChartArr.Items[i]).LeftAxis.Automatic:=false;
TCHart(ChartArr.Items[i]).LeftAxis.Minimum:=Chart1.LeftAxis.Minimum;
TCHart(ChartArr.Items[i]).LeftAxis.Maximum:=Chart1.LeftAxis.Maximum;
end;
end;
Вернуть все в исходное положение:
Код:
procedure TFrame1.UndoZoom(Sender: TObject);
var i:integer;
begin
Chart1.BottomAxis.Automatic:=true;
Chart1.LeftAxis.Automatic:=true;
for i:=0 to ChartArr.Count-1 do begin
TChart(ChartArr.Items[i]).BottomAxis.Automatic:=true;
TChart(ChartArr.Items[i]).LeftAxis.Automatic:=true;
end;
end;