Discussion :

[sematimo]

Bonjour à tous
J'ai une dbf avec une dbgrid.
Je voudrais colorer une ligne en fonction de la valeur d'un champ.
J'ai bien trouvé ici et là un bout de code mais tous ne colorent que la cellule.
J'ai essayé ça :

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.DBGrid1DrawColumnCell (Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 
  if dbf1.FieldByName('evenement').AsString = '1'
  then
   DBGrid1.Canvas.Brush.Color:=clRed;
  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Mais ça ne fonctionne pas, même avec DefaultDrawing à false.

[Jon Shannow]

Bonjour,

Il me semble que c'est l'évènement OnDrawCell qu'il faut surcharger.

JS

[Andnotor]

Il manque un FillRect. DefaultDrawColumnCell ne se charge que du contenu.

[sematimo]

merci AndNotOr
en ajoutant dbgrid1.Canvas.FillRect(rect)
ça fonctionne