Problème de coloration de cellules dans un DBGrid

Bonjour à toutes et à tous.

Voila, j'ai un DBGrid qui m'affiche plusieurs lignes, sur chacune d'elles, on trouve les colonnes: description, valeur1, valeur2, valeur3, ..., valeur9.
les différentes valeur[1..9] varie de 0 à 100. la descfription est une string.

J'aurais aimé pouvoir coloré les cellules valeur[1..9] individuellement en fonction de leurs valeur (genre rouge si inférieur à 20, orange entre 20 et 99 et Vert si égal à 100)

j'ai éssayé ceci :

Code:

---

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

procedure TPilot_Aff.DBGridObjectifsDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var valeurGrid:variant; begin inherited; // on va colorier les cellules valeurGrid:='100'; if self.DBGridObjectifs.SelectedField.Value=valeurGrid then begin TDBGrid(Sender).Canvas.Brush.Color := clLime; end else begin TDBGrid(Sender).Canvas.Brush.Color := clWhite; end; TDBGrid(Sender).DefaultDrawColumnCell(rect,datacol,column,state); end;

---

Mais le resultat n'est pas celui espéré, les lignes entière sont coloré (et non pas chaque cellules individuellement). la couleur de la ligne est verte ou blanche selon la dernière case de la ligne sur laquelle j'ai cliqué ...

si quelqu'un peut m'aidé ca serait fortement apprécié !
Merci d'avance.

Pour dessiner chaque cellule, ta procédure est appelleé.
Il suffit de savoir quelle colonne est dessinée pour définir sa couleur.
Si DataCol correspond à l'index de la colonne :

Code:

---

1 2 3 4 5 6 7

Case DataCol Of 1: TDBGrid(Sender).Canvas.Brush.Color := clRed; 2: TDBGrid(Sender).Canvas.Brush.Color := clYellow; 3: TDBGrid(Sender).Canvas.Brush.Color := clLime; 4: TDBGrid(Sender).Canvas.Brush.Color := clBlue; ... etc ... End;

---

N'oublis pas la FAQ pour t'aider :
http://www.developpez.com/delphi/faq/?page=composbdd

Merci de ton aide,
Le problème est que actuellement, toutes les cellules d'une ligne sont affectés par l'appel de la procédure et non pas une cellule unique

Salut,

L'utilisation de DataCol est une des solutions comme le précise Sub0, mais je peux te proposer ceci également:

Code:

---

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

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin with TDBGrid(Sender), Column.Field do begin if DataType in [ftInteger, ftSmallInt] then begin case AsInteger of 0..19: Canvas.Brush.Color := clRed; 20..99: Canvas.Brush.Color := clLime; else Canvas.Brush.Color := clGreen; end; DefaultDrawColumnCell(Rect, DataCol, Column, State); end; end; end;

---

@+

Alors là, bravo ! ca marche tip top, mais maintenant, j'aimerais comprendre ^^

si tu aurais la bonté de détaillé un poil, je te serais deux fois plus reconnaissant :)

Re,

la méthode DBGrid1DrawColumnCell est appelée pour chacune des cellules visibles de ton DBGrid.

Sender représente le DBGrid, Rect représente le rectangle de dessin de la cellule, DataCol représente le n° de la colonne du DBGrid (à partir de 0), Column représente la colonne à laquelle appartient la cellule et State représente l'état de la cellule.

A partir de là tu disposes de toutes les infos pour faire à peu près tout ce que tu veux :D

Le code que je t'ai proposé se contente d'examiner le type de données contenu dans la cellule qui est en train d'être dessinée.

Code:

---

1 2	if Column.Field.DataType in [ftInteger, ftSmallInt] then

---

Si le type du champ de la colonne n'est pas un Integer ou SmallInteger je ne fais rien !

Ensuite j'examine sa valeur:

Code:

---

1 2	case AsInteger of

---

et je paramètre le canvas suivant la valeur.

et demande le dessin de la cellule avec les paramètres fournis avec DefaultDrawColumnCell.

Comme tu peux le voir, c'est assez simple à gérer.

@+ Bon dev

Formidable ! Merci encore :)

Citation:

---

Envoyé par amaurylerouxdelens

Formidable ! Merci encore :)

---

Y a pas de quoi :mrgreen:

@+ et bon dev