[gelöst] TAChart zwei LineSeries normalisieren

[Michl]

Hi,

ich möchte mehrere LineSeries normalisiert darstellen. Also sie sollen unabhängig von ihren tatsächlichen Werten in dem den Bereich von 0% bis 100% dargestellt werden.

Ich weiß, daß ich das beim Füllen der Series selbst berechnen kann. Nur würde ich gern wissen, ob das nicht schon von Haus aus bei TAChart implementiert ist (z.B. ein Property, was gesetzt werden muss).

So sieht es z.B. aus:

Chart1.png (21.53 KiB) 901 mal betrachtet

So würde ich es gern haben:

Chart2.png (22.64 KiB) 901 mal betrachtet

Testprojekt anbei.

[wp_xyz]

Es gibt mehrere Möglichkeiten, am wenigsten Code (keinen) muss man bei der folgenden Variante schreiben:

• Eine zweite y-Achse einrichten: Rechtsklick auf AxisList im Object-Tree > "Add Item". Es entsteht eine zweite y-Achse. Du kannst sie mit Visible=false ausblenden oder auch stehen lassen - dann wäre sie auf der rechts Achse gut aufgehoben: Alignment = calRight.
• Zwei TChartAxisTransformations-Komponenten aufs Formular klicken, jeweils eine TAutoScaleAxisTransform hinzufügen (nach Doppelklick auf der Transformations-Komponente)
• Jeder y-Achse wird nun eine der Transformations zugewiesen: Im Object-Tree die linke Achse anklicken, der Transformations-Eigenschaft die 1.TChartAxisTransformations-Komponente zuweisen. Mit der rechten Achse und der zweiten Transformations-Komponente wiederholen.
• Nun müssen wir noch sagen, welche Series welcher Achse zugeordnet sein soll. Jede Series hat dazu einen AxisIndexY - hier muss man den Index der gewünschten y-Achse eintragen. Bei der Series, die die linke y-Achse verwenden soll, wäre das die 0, bei der für die rechte y-Achse die 2.
• Fertig. Jede Series wird nun auf den Maximal-Bereich skaliert und füllt den ganzen Chart aus.
• Wenn du "schöne" Labels willst, kannst du z.B. den Range jeder Achse entsprechend setzen.
• Damit man weiß, welche Series zu welcher Achse gehört, könnte man z.B. die Achse entsprechend der Series einfärben.

[Michl]

Prima, funktioniert tadellos!
Da ich es dynamisch benötige, habe ich das darauf aufbauend lösen können. Vielen Dank!!

Als Gedächtnisstütze für mich oder nachfolgende Leser, so funktioniert das hier dynamisch (nullbasiert):

Code: Alles auswählen

procedure TForm1.CreateAxisForSeries(ALineSeries: TLineSeries);
var
  LAxis: TChartAxis;
  LAxisTransformation: TChartAxisTransformations;
  LAxisTransform: TAutoScaleAxisTransform;
begin
  LAxisTransformation := TChartAxisTransformations.Create(Self);
  LAxisTransform := TAutoScaleAxisTransform.Create(Self);
  LAxisTransform.Transformations := LAxisTransformation;
  LAxisTransform.MinValue := 0;
  LAxisTransform.MaxValue := 100;
  LAxis := Chart1.AxisList.Add;
  LAxis.Transformations := LAxisTransformation;
  LAxis.Visible := False;
  LAxis.Range.Max := ALineSeries.MaxYValue;
  LAxis.Range.Min := 0;
  LAxis.Range.UseMax := True;
  LAxis.Range.UseMin := True;
  ALineSeries.AxisIndexY := Chart1.AxisList.Count - 1;
end;   

Test anbei, sieht hier so aus:

Chart.png (33.66 KiB) 875 mal betrachtet

[wp_xyz]

Gut.

In diesem Zusammenhang vielleicht auch ein Hinweis auf die RunTime-FAQ-Seite im wiki: https://wiki.lazarus.freepascal.org/TAChart_Runtime_FAQ