Erst einmal zu Deiner zweiten Frage
Füge jeder Series ein Afteraddereignis hinzu
Delphi-Quellcode:
procedure TMakrofenster.Series1AfterAdd(Sender: TChartSeries;
ValueIndex: Integer);
var
step:Double;
Const
ZEITRAUM=30;
begin
step:=DateTimeStep[dtOnesecond]*ZEITRAUM;
With Sender.GetHorizAxis do { <-- with the Horizontal Axis... }
Begin
Automatic := False;
//always show the last time
Maximum := Sender.XValues.MaxValue;
// show only last desired interval
Minimum := Maximum - step;
end;
// Delete all "invisible" points
While (Sender.Count>0) and
(Sender.XValues[0] < Sender.GetHorizAxis.Minimum) do
Sender.Delete(0);
end;
Zu deiner zweiten Frage Hast Du auch automaticminimum auf false gesetzt ?