zooming, how to get range of visible values

[nitin]

hello,

like in topic - how could i get range of visible values on axes after zoom ?


thanks in advance

[Narcís]

Hi guzial,

You could do something like this:

Code: Select all

procedure TForm1.Chart1Zoom(Sender: TObject);
begin
  ShowVisibleIndexes;
end;

procedure TForm1.ShowVisibleIndexes;
begin
  Chart1.Draw;
  Chart1.Title.Text.Clear;
  Chart1.Title.Text.Add(IntToStr(Series1.FirstDisplayedIndex));
  Chart1.Title.Text.Add(IntToStr(Series1.FirstDisplayedIndex + Series1.VisibleCount-1));
end;

procedure TForm1.Chart1UndoZoom(Sender: TObject);
begin
  ShowVisibleIndexes;
end;