Discussion :

[patrice@]

Bonjour,
Tout est dans le texte, j'ai tout essayé (sauf ce qui fonctionne bien sur)
J'ai essayé tout ça :
Chart1.Series[0].Color:=ColorDialog1.Color;
(Chart1.Series[0] as TLineSeries).AreaColor:=ColorDialog1.Color;
(Chart1.Series[0] as TLineSeries).AreaLinesPen.Color :=ColorDialog1.Color;
(Chart1.Series[0] as TLineSeries).Brush.Color :=ColorDialog1.Color;
(Chart1.Series[0] as TLineSeries).LinePen.Color :=ColorDialog1.Color;
(Chart1.Series[0] as TLineSeries).Pen.Color :=ColorDialog1.Color;
(Chart1.Series[0] as TLineSeries).SeriesColor :=ColorDialog1.Color;
Rien, j'ai toujours la couleur que j'ai défini dans l'éditeur
Une idée ?

[gbegreg]

Bonsoir,

Je pense que c'est au moment où tu ajoutes un élément dans la série que tu peux spécifier sa couleur.

J'ai fait le petit test suivant (Delphi XE8) :
- j'ai un composant TChart posé sur ma fiche
- j'ai paramétré un graphique de type camembert avec la palette "Opéra", un objet Series1 de type TPieSeries est créé.
- dans l'événement FormCreate, j'ai fait :

Code :

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

1
2
3
4
5
6
Series1.Clear;
  Series1.Add(152,'cas1',clRed);
  Series1.Add(402,'cas2',clBlue);
  Series1.Add(210,'cas3',clYellow);
  Series1.Add(98,'cas4',clMaroon);
  Series1.Add(300,'cas5',clLime);

Les méthodes add des différents objets "series" acceptent un troisième paramètre facultatif de type TColor

[patrice@]

Bonjour gbegreg,

Effectivement, on peut affecter une couleur à l'ajout de la donnée. Mais, dans l'éditeur du Chart, on peut changer toutes les couleurs. on a accès aux
propriétés, parfois de façon moins intuitive -> (Chart1.Series[0] as TLineSeries) pour l'accès aux propriétés des lignes de la séries.

Quand on regarde l'image de l'éditeur on voit un bouton COLOR, j'ai essayé simplement Chart1.Series[0].Color:=clRed mais ça ne fonctionne pas ...

Dans l'éditeur on a un bouton BORDER


Qui appelle la boite de dialogue suivante


Pour accéder au style de ligne j'ai trouvé : (Chart1.Series[0] as TLineSeries).LinePen.Style:=psSolid qui fonctionne parfaitement bien
mais (Chart1.Series[0] as TLineSeries).LinePen.Color:=clRed ne fonctionne pas alors qu'en changeant la couleur de BORDER dans l'éditeur, la ligne est bien d'une autre couleur.

Quand j'essaye d'aller dans le composant pour regarder son code, ben je n'y ai pas accès (impossible de trouver le fichier VCLree.Series.pas)

[Linkin]

Ce que tu cherches est bien SeriesColor. Cela marche si tu n'as pas précisé de couleur au moment de l'ajout du point:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
  with Chart1.Series[0] do begin
    SeriesColor := clyellow;
    for i := 0 to 10 do begin
      if i mod 2 = 0 then
        AddXY(i, i)
      else
        AddXY(i, i, '', clBlue);
    end;
  end;

[patrice@]

Bonsoir Linkin,
Le programme fonctionne, mais le truc est de corriger la couleur de la série en dynamique suite à un appel à une colorbox par exemple. Intéressant toutefois le fait de passer ou pas le paramètre couleur.
Alors, j'ai trouvé, gbegreg m'a mis la puce à l'oreille sur le comportement de TeeChart avec le terme facultatif mais je n'avais pas exploré plus avant cette piste reprise par Linkin.

Il semblerai que ce composant ne gère pas le "passé", ce qui est tracé est tracé, on ne s'occupe que de ce qui vient. Il suffisait donc de balayer la série (ou du moins les points affichés) et de modifier la couleur :

(Chart1.Series[0] as TLineSeries).LinePen.Color:=ColorDialog1.Color; // on change la couleur des lignes et des points qui arrivent
et
for X:=0 to Chart1.Series[0].count-1
do (Chart1.Series[0] as TLineSeries).ValueColor[X]:=ColorDialog1.Color; // et là on change ce qui a déjà été dessiné

Tout le monde à la même couleur, tout va bien

... Au forceps ces 2 lignes de rien du tout ... mais c'est nickel
Merci à vous 2, et si ça peut servir à quelqu'un ... et ben c'est que du bonheur.