Discussion :

[Manusm]

Bonjour,

Je voudrais faire un diagramme en bâtons avec TChart mais en ayant des étiquettes différentes par rapport à la légende du graphique.

Sur mon TForm j'ai juste un TChart avec un seul TBarSeries (voir img1).

J'arrive à afficher les étiquettes des valeurs au dessus des bâtons mais je n'arrive pas à afficher dans la légende les textes. C'est soit les valeurs dans les étiquettes et la légende, soit les textes. (voir img2 et img3)





Dois je utiliser un autre TBarSeries pour pouvoir réaliser le graphique ? Ou puis je le faire juste avec un seul ?

Merci de votre aide

[Manusm]

bon j'ai réussi en passant par l'évenement GetMark du composant TBarSeries.

Il y a 3 passages dont le premier correspond à la légende et le troisième aux étiquettes du graphique. Je n'ai pas su lire les valeurs directement depuis le TListChartSource donc je suis passé par un tableau :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.BarresGetMark(out AFormattedMark: String; AIndex: Integer);
begin
 
     case cpt of
          0 : AFormattedMark := Tab[AIndex].texte;
          2 : AFormattedMark := IntToStr(Tab[AIndex].valeur);
     end;
 
     //inc(cpt);
     if Aindex = barres.ListSource.DataPoints.Count - 1 then inc(cpt);   
end;