Balkendiagramm

[Foxi1896]

Hallo,

ich möchte ein einfaches Balkendiagramm erstellen. Habe 13 Werte und die sollen nebeneinander als Balken angezeigt werden. Y-Achse die Werte und X-Achse die beschrieftung von welchem Wert der Balken kommt.

Vielleicht verwende ich die Falsche funktion? Jedenfalls bei dem hier sind die Balken über und hintereinander =/

Delphi-Quellcode:

 Chart1BarSeries1.AddXY(1,StrToFloat(EditR1.Text), 'R1', clRed);
     Chart1BarSeries2.AddXY(2,StrToFloat(EditR2.Text), 'R2', clRed);

[Darlo]

Hi,

eigentlich müsste es so gehen

Delphi-Quellcode:

 Chart1BarSeries1.Add(StrToFloat(EditR1.Text), 'R1', clRed);
 Chart1BarSeries1.Add(StrToFloat(EditR2.Text), 'R2', clRed);
 Chart1BarSeries1.Add(StrToFloat(EditR3.Text), 'R3', clRed);
 Chart1BarSeries1.Add(StrToFloat(EditR4.Text), 'R4', clBlue);

Im Chart selber musst Du bei Stacked auf none stellen.

[Der schöne Günther]

Wie Darlo schon sagt:

1. Du brauchst nur eine Serie
2. (Stacking spielt nur bei mehreren Serien eine Rolle)

Meinst du mit "Beschriftung" die Schilder ("Marker") die man an die Balken pappen kann oder die Achsenbeschriftugn darunter?

[Foxi1896]

ahh ok die Balken hab ich jetzt ... hatte einen Fehler an einem Radiobutton.

Nun wäre die Berieftung noch gut ... ja genau die mein ich ... direkt unter dem Balken... da ich es bei Rot belassen möchte.

[Darlo]

Zitat:

Zitat von Der schöne Günther (Beitrag 1221354)

(Stacking spielt nur bei mehreren Serien eine Rolle)

Da hast Du natürlich Recht ;-)

[Der schöne Günther]

Zitat:

Zitat von Foxi1896 (Beitrag 1221358)

Nun wäre die Berieftung noch gut ... ja genau die mein ich ... direkt unter dem Balken... da ich es bei Rot belassen möchte.

Nix verstehen :gruebel:

Kannst du vlt. aufmalen, was du haben möchtest?

[Foxi1896]

Gute Idee mit dem Aufmalen.

So möchte ich es haben ... das unten bei der X-Achse die Bezeichnung des jeweiligen Balken steht.
Und perfekt wäre es wenn ich auch noch die Linien oben hinbekommmen könnte.

[Der schöne Günther]

Die Farbe für die Achsenbeschriftung findest du unter
Chart->Achse->Untere Achse->Beschriftung->Text->Schrift->Farbe
bzw
meinChart.Axes.Bottom.LabelsFont.Color := meineFarbe;

Die blauen Linien würde dann eine neue Serie werden. Da es zwei einzelne Linien sind, wohl auch zwei eigene Serien, mit dem "Nullen nicht malen" fällt mir auf die Schnelle nicht ein, wie man das lösen könnte...

[Foxi1896]

Aber wie bekomme ich erstmal die Beschriftung unter die Balken bevor ich die Farbe anpasse?

ok das mit der Linie muss ich wohl wirklich extra machen.


!! Ich benutze Lazarus: Da ist das mit dem Chart etwas anders =/

[Der schöne Günther]

Zitat:

Zitat von Foxi1896 (Beitrag 1221367)

Ich benutze Lazarus: Da ist das mit dem Chart etwas anders

Das kann ich nicht riechen. Das sollte man in sein Profil schreiben, dann sieht man das links immer.

Ich sehe nur, dass die Beschriftung eigentlich schon mit dem angegeben Label-Parameter bei Add[XY](..) da sein sollte...

[Darlo]

Die Nullen nicht malen ist

Delphi-Quellcode:

serieX.addNull()

[Foxi1896]

hab es hinbekommen mit

Chart1.BottomAxis.Marks.Source := Chart1BarSeries1.Source;


Danke für eure Hilfe

[Zoot]

Zitat:

Zitat von Foxi1896 (Beitrag 1221437)

Delphi-Quellcode:

Chart1.BottomAxis.Marks.Source := Chart1BarSeries1.Source; 
Chart1.BottomAxis.Marks.Source := Chart1BarSeries2.Source; 
Chart1.BottomAxis.Marks.Source := Chart1BarSeries3.Source;

wenn ich mehr davon einfüge scheinen die sich zu überschreiben und zeigt immer den letzten an.

Und das wundert dich?