Discussion :

[PadawanDuDelphi]

Bonjour à tous,

Dans le cadre de mon projet, j'en suis arrivée à devoir modifier l'axe d'un graphe (TChart), c.a.d changer les valeurs des graduations, ajouter des barres de repérages en couleur...) Sans pour autant modifier mon graphique ou ma série.

Par exemple, si j'ai une série avec des valeurs de X comprises entre 0 et 5000, et sans changer aucunes valeurs, j'aimerais pouvoir remplacer ma plage de graduation de X entre 2500 et 5000 par [10000 à 12500]. Donc en gros j'aimerais pouvoir modifier les valeurs text de mes graduations.
Dans la même idée, je dois pouvoir insérer dans ma graduation une barre colorée "repère" avec une valeur texte de mon choix à son extrémité.

Seulement je n'ai pas la moindre piste ou idée pour réaliser un truc dans ce style, donc toutes les suggestions seront les biens venus.

Merci de votre aide,

A+.

[Whiler]

Regarde là : http://www.steema.com/support/faq/NewVCL/FAQ_VCL_AXES.htm

Il doit y avoir ce que tu cherches... en utilisant l'événement OnGetAxisLabel du TChart...

[PadawanDuDelphi]

Merci pour ton aide, il semblerait que ce soit effectivement l'évènement OnGetAxis que je dois utiliser. Seulement il n'existe pas beaucoup d'aide sur le chart et avec ce code je n'arrive à changer que TOUTES les graduations de mon axe:

Code :

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

1
2
3
4
5
6
7
 
procedure TForm1.Chart1GetAxisLabel(Sender: TChartAxis; Series: TChartSeries;
  ValueIndex: Integer; var LabelText: string);
Begin
If Sender=Chart1.LeftAxis then // If labels from Left axis
    LabelText:='10 20'; // Rewrite label
End;

Ici toutes les graduations de mon axes valent 10 20...Comment faire pour n'agir que sur un élément, ou même mieux, pour entrer ma chaîne?

Merci pour votre aide,

A+.

[Whiler]

Code :

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

1
2
3
4
5
6
7
 
procedure TForm1.Chart1GetAxisLabel(Sender: TChartAxis; Series: TChartSeries;
  ValueIndex: Integer; var LabelText: string);
Begin
If Sender=Chart1.LeftAxis then // If labels from Left axis
    LabelText:='10 20'; // Rewrite label
End;

Ici toutes les graduations de mon axes valent 10 20...Comment faire pour n'agir que sur un élément, ou même mieux, pour entrer ma chaîne?

et si tu testes en plus ta ValueIndex ? pour ne justement modifier que ce que tu souhaites.. ou utliser sa valeur via une suite géométrique qui te donnerait les valeurs visuelles que tu souhaites sans modifier justement les vraies ?

[PadawanDuDelphi]

Oui, après plusieurs recherches j'ai vu qu'on pouvait jouer sur ValueIndex pour repérer un point de la série, mais étrangement ValueIndex à toujours la valeur -1 chez moi...

Ou utliser sa valeur via une suite géométrique qui te donnerait les valeurs visuelles que tu souhaites sans modifier justement les vraies ?

Je ne suis pas sûr d'avoir compris cette phrase...Ce que tu me proposes c'est de créer une autre série (géométrique) qui contiendrait ma graduation selon X et des valeuyrs quelquonque selon Y?

A+.

[Whiler]

J'imagine qu'il doit falloir utiliser la propriété ValuesLists d'une série pour éventuellement balayer les valeurs... mais tout comme toi, j'ai toujours -1...

donc voila comment j'ai fait pour afficher les valeurs de mon choix :

Dans mon exemple, j'ai une série avec des températures en degrés celcius..
mais mon axe affiche les valeurs en °F.

Code :

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

1
2
3
4
5
6
7
8
procedure TForm2.Chart1GetAxisLabel(Sender: TChartAxis; Series: TChartSeries;
  ValueIndex: Integer; var LabelText: string);
begin
  if Sender = Chart1.LeftAxis then
  begin
    LabelText := FormatFloat('0.00', ((StrToIntDef(LabelText, 44) * 9) /5 + 32));
  end;
end;

et pour la phrase que t'as pas comprise, dans mon exemple, c'est simplement ma méthode de conversion des celcius en fahrenheit... la transformation de la valeur.. j'voulais rien dire de plus