[Frag] - TChart, wie mehrere Y-Achsen?

[divBy0]

Hallo!

Ich habe eben schon mal gesucht, aber die Treffer helfen mir nicht weiter.

Zum Problem, ich habe auf meiner Form ein TChart und würde jetzt gerne 4 Y-Achsen anzeigen. Jeweils 2 links und 2 rechts, mit verschiedenen Skalierungen.

Ich habe schon CustomAxes angelegt, aber wie werden die denn angezeigt?

[marabu]

Hallo Marc,

willst du wirklich mehrere Achsen permanent anzeigen, dann hilft dir vielleicht das Kapitel (5.4) "Arbeiten mit Achsen" aus der Online Hilfe zur TeeChart-Komponente. Mitunter kann es interessant sein, die passende Achse erst dann einzublenden, wenn eine bestimmte Serie markiert wurde.

Grüße vom marabu

[divBy0]

Hallo!

Es sollen 4 Kurven in einem Diagramm dargestellt werden. Die Kurven sind natürlich anwählbar. Mittlerweile habe ich es hinbekommen, dass ich 4 Achsen habe, allerdings nur zur Designzeit, in der Laufzeit werden komischerweise nur die linke und rechte Achse angezeigt, die beiden CustomAchsen werden dann nicht gezeigt. Die Kurven werden aber alle 4 gezeichnet.

Die Onlinehilfe habe ich vorher versucht zu benutzen, allerdings wird die Hilfedatei nicht gefunden. Ich weiß auch noch nicht, wo ich die Datei herbekommen könnte.

[S20000]

Würde mich interessieren ob du das mittlerweile hinbekommen hast.
Stehe vor dem gleichen Problem.

[divBy0]

Sorry war gestern bei einem Kunden in Frankreich, daher melde ich mich erst jetzt.

Ja, ich habe es hinbekommen.

Du musst in der TChart-Komponente die Serien anlegen, die du brauchst. Wenn du mehr als 2 Achsen brauchst, dann musst du noch Custom-Achsen anlegen. Das geht im Fenster Struktur, da kannst du in der TChart CustomAxes hinzufügen.

Dann kannst du den Serien Werte übergeben:

Delphi-Quellcode:

for i := scopeIndexSaved to scopeIndex - 2 do
begin
  Chart1.Series[0].AddY(scopePressure[I], '', clRed);
  Chart1.Series[1].AddY(scopeVelocity[I], '', clGreen);
  Chart1.Series[2].AddY(scopeTemperature[I], '', clYellow);
  Chart1.Series[3].AddY(scopePullerVelocity[I], '', clBlue);
end;

Oder du übergibst ein Array:

Delphi-Quellcode:

Chart1.Series[0].AddY(scopePressure);
Chart1.Series[1].AddY(scopeVelocity);
Chart1.Series[2].AddY(scopeTemperature);
Chart1.Series[3].AddY(scopePullerVelocity);

[Sascha-L]

Guten tag,

ich bin ebenfalls auf der Suche nach einer Möglichkeit verschiedene Y-Achsen anzeigen zu lassen, die sich (wenn möglich) auch noch selbst skallieren.

Ich werde aus der Anleitung hier leider nicht so schlau, benutze selbst Delphi 7 Proffessional und finde das angegebene Feld
"Struktur" leider nicht

Wäre sehr Dankbar, wenn Ihr mir kurz helfen könntet, da ich die Lösung ziemlich schnell umsetzen muss

Vielen Dank im Vorraus

lg Sascha

[moelski]

Moin Sascha,

wenn du mehrere Y Achsen haben willst, dann musst du dich um einige Dinge selber kümmern. TChart hat die blöde Eigenschaft zwar mehrere Y Achsen zu unterstützen, aber die werden dann eher Stiefmütterlich behandelt. So machen Custom Axis z.B. kein Zoom direkt mit. Auch das Anpassen des Chart an die Breite der Y Achse geschieht nicht automatisch.

Ich könnte heute Abend mal ne Demo raussuchen wie wir das in unserer Software gelöst haben.

[Sascha-L]

Das wäre ne super Sache,

so langsam würd ich nämlich ganz gern meinem Monitor ne Ecke rausbeißen um dann mit Hilfe der Tastatur ein bisschen Baseball spielen zu können

Vielen Dank moelski und schönen Abend noch

lg Sascha

[moelski]

Moin !

So geht dem

[McDoT]

Nabend,

Problem an der Sache wird sein, dass nicht jeder die TeeChart Komponenten besitzen wird

Ohne diese könnte man es auch noch so machen:

Mehr als zwei Y-Achsen

Delphi-Quellcode:

procedure TForm1.ButtonXClick(Sender: TObject);
var TA : TChartAxis;
begin
  TA:=TChartAxis.Create(Chart1);
  TA.Assign(Chart1.LeftAxis);
  TA.StartPosition := 0;
  TA.EndPosition := 100;
  TA.Horizontal := False;
  TA.Visible := True;
  //Die zweite Achse etwas weiter links positionieren
  TA.PositionPercent := -4;
  Series2.CustomVertAxis := Ta;

  Chart1.LeftAxis.EndPosition := 45;
end;

MfG McDoT