TChart и автопрокрутка

[Aravild]

Есть TChart который включает пару Series.

После выполнения Series1.AddXY(X, Y, '', clRed); добавляется определенный отрезок линии, но когда ломаная достигает границы разметки сетки (Bottom Axis) то рисование продолжается за пределами видимой области. Автопрокруки в право не происходит.
Подскажите пожалуйста, как сделать автопрокрутку?

[_Dmitry]

Chart1.BottomAxis.Automatic:=true;

[Aravild]

Да оно и стоит BottomAxis.Automatic:=true;

Я задал максимум отображения точек и инкремент. Без этого - никак.
BottomAxis.Minimum := 0;
BottomAxis.Increment := 1;
BottomAxis.Maximum := 25;

Автопрокрутки не происходит.

[_Dmitry]

Если у вас:
BottomAxis.Automatic:=true;
то
BottomAxis.Minimum := 0;
BottomAxis.Maximum := 25;
работать не будут...

Поэтому, когда X<=25 ставьте BottomAxis.Automatic:=false; и используйте ваши настройки, когда X>25 установите BottomAxis.Automatic:=true; и пусть максимум устанавливает сам Chart.

[Aravild]

Спасибо за помощь.
Сделал так:

  
  MainChart.BottomAxis.Automatic := false;
  MainChart.BottomAxis.AutomaticMinimum := false;
  MainChart.BottomAxis.AutomaticMaximum := false;
  MainChart.BottomAxis.Minimum := 0;
  MainChart.BottomAxis.Increment := 1;
  MainChart.BottomAxis.Maximum := 25;

    if Series1.Count > 25 then 
     begin
      MainChart.BottomAxis.Maximum := Series1.XValues[Series1.Count - 1];
      MainChart.BottomAxis.Minimum := Series1.XValues[Series1.Count - 26];
    end;