TChart modifier la couleur d'une Bar

Re bonsoir.

voic mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

if (check < 10) { for (int i = 0; i < check; i++) { AnsiString produit = SQLQuery1->FieldValues["RefProduit"]; double quantite = SQLQuery1->FieldValues["qte"]; AnsiString marque = SQLQuery1->FieldValues["Marque"]; AnsiString model = SQLQuery1->FieldValues["Model"];   Series1->AddBar(quantite,produit,clBlue);   SQLQuery1->Next();   }   }

---

je cree dynamiquememt mes Bar jusque 10 bars maximum mais le probleme et qu'elles sont toutes blues ( enfin c'est logique ) mais je voudrais que chaque bar soit d'une couleur differentes. Es-ce possible ?

je profite pour poser une question en plus....

comment faire pour que l'axe n'affiche que des valeurs entiere 1 2 3 et non 1,2 ... 1,4 ...


Merci

Peut-etre avec SendMessage

Code:

---

1 2	SendMessage(ProgressBar1->Handle, PBM_SETBARCOLOR, 0, clBlue);

---

A+

non ca ne marche pas :cry:

merci quand meme.

Va voir le post suivant: http://www.developpez.net/forums/sho...d.php?t=157045

oui ca je l'ai cree deja mais toutes en bleue car j'ai une boucle.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

for (int i = 0; i < check; i++) { AnsiString produit = SQLQuery1->FieldValues["RefProduit"]; double quantite = SQLQuery1->FieldValues["qte"]; AnsiString marque = SQLQuery1->FieldValues["Marque"]; AnsiString model = SQLQuery1->FieldValues["Model"];   Series1->AddBar(quantite,produit,clBlue);   SQLQuery1->Next();   }

---

ou alors je recree une boucle a l'interieur avec si i=1 alors clblack etc... mais sa risque d'etre long.

donc je voulais la commande pour les modifié directement en fin de boucle

Essai la méthode que je suggère dans ton autre post:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

TColor tabColor[] = {clBlue, clRed, clBlack, clYellow, clGreen, clBlue, clRed, clBlack, clYellow, clGreen};   for (int i = 0; i < check; i++) { AnsiString produit = SQLQuery1->FieldValues["RefProduit"]; double quantite = SQLQuery1->FieldValues["qte"]; AnsiString marque = SQLQuery1->FieldValues["Marque"]; AnsiString model = SQLQuery1->FieldValues["Model"];   Series1->AddBar(quantite,produit,tabColor[i]);   SQLQuery1->Next();   }

---

PS: J'ai pas testé ...

:yaisse:

Super cette idée et elle marche :king:

je connaisais pas du tout.. merci pour ton aide