Мне надо сделать Zoom того, что выводиться на графике. Именно той области, где есть точки на графике.
Точки выводятся по нажатию на кнопку BitBtn6
procedure TFDub2.BitBtn6Click(Sender: TObject);
begin
if gr=3 then
begin
Form2.Chart1.Series[0].Clear;//Сброс
Form2.Chart1.Series[1].Clear;//Сброс
for i:=0 to Length(aXYiz) do
begin
// Form2.Chart1.Series[0].AddXY(aXYiz[i][0],aXYiz[i][1]);
// continue;
alpha :=Nl;
beta := El;
if (aXYiz[i][0] > 0) then
begin;
alpha := aXYiz[i][0]/parallel+Nl;
end;
if (aXYiz[i][1] > 0) then
begin
beta := aXYiz[i][1]/meridian+El;
end;
Form2.Chart1.Series[0].AddXY(alpha,beta);
end;
for i:=0 to Length(aXYizu) do
begin
// Form2.Chart1.Series[1].AddXY(aXYizu[i][0],aXYizu[i][1]);
// continue;
alpha :=Nl;
beta := El;
if (aXYizu[i][0] > 0) then
begin;
alpha := aXYizu[i][0]/parallel+Nl;
end;
if (aXYizu[i][1] > 0) then
begin
beta := aXYizu[i][1]/meridian+El;
end;
Form2.Chart1.Series[1].AddXY(alpha,beta);
end;
Form2.Label1.Caption:=Edit7.Text;
Form2.Label2.Caption:=ckm+' м/с;';
Form2.Label3.Caption:=ck+' м/с';
Form2.Show;
end else
FDub6.Show;
end;