TChart Achsenbereich

[Andreas Schilling]

Delphi-Quellcode:

procedure TAuswerten_F.Series1AfterAdd(Sender: TChartSeries; 
  ValueIndex: Integer); 
begin 
  Sender.GetHorizAxis.Automatic := False;        { <-- we dont want automatic scaling } 

  Sender.GetHorizAxis.Maximum := Sender.GetHorizAxis.Maximum + 1; 
  if Sender.GetHorizAxis.Maximum > 25 
  then Sender.GetHorizAxis.Minimum := Sender.GetHorizAxis.Maximum - 25; 
end;