Thema: Delphi TChart: Scrollen

Einzelnen Beitrag anzeigen

Der_Unwissende

Registriert seit: 13. Dez 2003
Ort: Berlin
1.756 Beiträge
 
#2

Re: TChart: Scrollen

  Alt 2. Apr 2006, 11:58
Hi,
sorry aber das kannst du alles sehr einfach der Hilfe entnehmen. Will ja nicht unhöflich sein, aber ein wenig selbst machen steht halt auch in den Forenregeln drin.

Jedenfalls kannst du leicht in einem bestimmten Bereich arbeiten indem du dein Maximum automatisch wählst (kannst du schon zur Designzeit für die Untere Achse einstellen, wichtig nicht für die obere). Dort wo du deinen Wert hinzufügst kannst du gucken ob der Wert größer als deine Anzeigebreite (hier 10) ist und dann einfach dass Achsenmaximum - Breite als Minimum nehmen.

Delphi-Quellcode:
CONST ANZEIGE_BREITE = 10;

procedure init(const Chart : TChart);
begin
  Chart.BottomAxis.AutomaticMinimum := False;
  Chart.BottomAxis.AutomaticMaximum := True;
end;

// hier natürlich deine eigentliche Methode verwenden
procedure addXY(const X, Y : Double; const Series : TChartSeries; const Chart : TChart);
begin
  Series.AddXY(X, Y);
  if X > ANZEIGE_BREITE then
    begin
      Chart.BottomAxis.Minimum := Chart.BottomAxis.Maximum - ANZEIGE_BREITE;
    end; // if X > ANZEIGE_BREITE
end;
Ja, dass mit dem Balken funktioniert natürlich ganz ähnlich. Da musst du dir einfach eine Lösung aus dem hier schon genannten herleiten (ist so schwer nicht). Ein wenig dreisatz sollte dafür schon ausreichen

Gruß Der Unwissende
  Mit Zitat antworten Zitat