Discussion :

[andreditdd]

Bonjour,
Pour coloriser les cellules d'un DBGrid suivant leurs contenus lors de l'insertion de la valeur je connais la procedure suivante:

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
18
19
20
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 With DbGrid1 Do
   Begin
         If Column.Field.AsString = 'A' Then
            Canvas.Brush.Color := ClRed
         Else if Column.Field.AsString = 'B' Then
            Canvas.Brush.Color := ClLime
         Else if Column.Field.AsString = 'C' Then
            Canvas.Brush.Color := ClYellow
         Else if Column.Field.AsString = 'D' Then
            Canvas.Brush.Color := ClSkyBlue
         Else if Column.Field.AsString = 'E' Then
            Canvas.Brush.Color := ClAqua;
         Else Canvas.Brush.Color := ClWhite;
      End;
 
   DbGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

Voici mon probleme:
Comment faire la meme chose lorsque l'on rempli le DBGrid automatiquement via une base de données et donc sans cliquer sur les cellules ???

Merci d'avance,
André

[andreditdd]

Bon ben le probleme n'était pas là, un probleme de variables non initialisées

Désolé pour le dérangement.

André