TChart Bar Chart Währungsbetrag anzeigen

[TurboMagic]

Hallo,

in einer VCL Anwendung mit einem TChart (Bar Chart) möchte ich an jedem
Balken den Numerischen Wert anzeigen lassen.

Das hier hab' ich schon, wobei Bar = THorizBarSeries:

Delphi-Quellcode:

Bar.Marks.Visible      := true;
Bar.Marks.Style        := TSeriesMarksStyle.smsValue;
Bar.Marks.Transparent  := true;

Gut es zeigt den Wert an, aber: da es ein Währungswert ist, hätte ich das
gerne mit 2 Nachkommastellen und €-Zeichen angezeigt.

Hinzugefügt werden die Werte so:
Chart.Series[0].Add(Revenue, Name, Color); Wobei Revenue eine Currency Variable ist, Name ein String und Color
ein TColor.

Grüße
TurboMagic

[BigAl]

Das Einfachste wäre das OnGetMarkText der Serie zu überschreiben. Dort kannst Du nach belieben anpassen was angezeigt wird.

[TurboMagic]

Danke für den Tipp! Probiere ich aus.
Muss halt die Signatur der Eventmethode noch ausfindig machen, sitze aber gerade auch nicht am Compiler...

[TurboMagic]

Hallo,

das mit dem Event Überschreiben hat super geklappt.
Nur hab' ich jetzt auch noch ein Pie Chart wo ich das machen möchte und da gibt's dieses Event nicht.
TPieSeries.Marks hat nur ein OnTop event, sonst keine.
Hab' auf den ersten Blick auch nichts anderes zielführendes gesehen.

Grüße

TurboMagic

[BigAl]

Zitat von TurboMagic:

Hallo,

das mit dem Event Überschreiben hat super geklappt.
Nur hab' ich jetzt auch noch ein Pie Chart wo ich das machen möchte und da gibt's dieses Event nicht.
TPieSeries.Marks hat nur ein OnTop event, sonst keine.
Hab' auf den ersten Blick auch nichts anderes zielführendes gesehen.

Grüße

TurboMagic

Meine TpieSeries hat das Event:



Was nutzt Du für eine Version?

[TurboMagic]

Hallo,

ich benutze die bei Delphi 12.0 enthaltene Version.

Grüße
TurboMagic

[BigAl]

Zitat von TurboMagic:

Hallo,

ich benutze die bei Delphi 12.0 enthaltene Version.

Grüße
TurboMagic

Ich nutze die Pro. Evtl. liegt es daran...

[TurboMagic]

Hallo,

nee, muss nochmal schauen. Wenn ich ein TChart auf eine Form klatsche und dort ein Tortendiagramm
drauf finde ich im Code Editor jetzt auch:

Chart1.Series[0].OnGetMarkText

Warum ich das gestern in meinem richtigen Projekt nie gesehen habe weiß ich nicht, da hab' ich aber
sicher nicht direkt am Chart.Series gesucht, dort ist die Sache halt ein wenig komplexer aufgebaut
wegen "Code reuse".

Grüße

TurboMagic