Diagramm mit TJvChart

[glkgereon]

Hi,

Da ich irgendwie keine andere Kompo dafür hab möchte ich nun ein TJvChart nutzen um ein eigentlich ganz simples Säulendiagramm zu machen.
Jede Säule soll eine unterschiedliche Farbe haben und in der Legende soll jede eine Beschriftung haben.


nun wühle ich mich schon seit einiger Zeit durch da durch...und es ist zumindest schonmal etwas am an-funktionieren.

Delphi-Quellcode:

Chart.Data.ClearPenValues;
Chart.ResetGraphModule;
Chart.Options.Title:='Text-Analyse';
Chart.Options.NoDataMessage:='Keine Daten vorhanden';
Chart.Options.Legend:=clChartLegendRight;

//Schleife...
Chart.Data.Value[0,Index]:=Count;
//Ende Schleife...

Chart.PlotGraph;

So, nun kommen auch alle balken.
aber
- alle die selbe farbe
- das diagramm geht nur bis y=10

nun, mit der selber farbe ist ja noch zu verstehen....immerhin nehme ich ja bei Chart.Data.Value auch immer die 0 als Pen.
nehme ich jedoch Value[Index,Index] so scheint es zwar immer noch alle balken zu geben (zumindest nach der aufteilung der breite zu urteilen, jedoch sind nur 2 Balken ganz links zu sehen, welche lustigerweise immer noch beide grün sind.

irgendwie komme ich keinen schritt weiter -.-
kennt sich irgendwer mit der kompo aus?

[marabu]

Hallo Gereon,

kann es sein, dass du die Eigenschaften PenCount, PenColor[] und PenStyles[] der Chart.Options nicht initialisiert hast?

Grüße vom marabu

[glkgereon]

öhhh...ja...

mein problem ist das ich keine ahnung habe welche eigentschaften dadrauf welchen einfluss haben könnten :-(

wie würde das denn aussehen?

[marabu]

Bevor ich deinen thread gelesen habe, kannte ich die Komponente überhaupt nicht. Im Quelltext habe ich die Methode PlotGraph() gesucht und mich von da aus rückwärts gearbeitet. Dabei bin ich auf die genannten Eigenschaften und deren Verwenddung gestoßen. Du solltest vielleicht auch einmal in den Quelltext reinschauen - meinst du nicht? Wenn dabei nicht funktionierender Code heraus kommen sollte, zeige ihn und dir wird geholfen werden.

Freundliche Grüße

marabu