Problème de coloration de cellules dans un DBGrid

**amaurylerouxdelens** · 08/11/2006, 11h40

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 :

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

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.

**Sub0** · 08/11/2006, 12h01

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 :

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

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

**amaurylerouxdelens** · 08/11/2006, 12h22

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

**Cl@udius** · 08/11/2006, 12h23

Salut,

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

Code :

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

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;

@+

**amaurylerouxdelens** · 08/11/2006, 13h25

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

**Cl@udius** · 08/11/2006, 13h35

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

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 :

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

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 :

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

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