Discussion :

[amtdev]

Bonjour à tous,
vous serez gentil de m'indiquer comment puis-je colorer les lignes d'un dbgrid. (alterner entre deux couleurs les lignes). Merci

[evarisnea]

inspire toi de cet exemple de la

[delphichem]

Dans l'événement OnDrawColumnCell

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var Grid: TDBGrid;
begin
  Grid := TDBGrid(Sender);
  if not (gdSelected in state) then
    if ((Grid.DataSource.DataSet.RecNo mod 2) = 0) then
      Grid.Canvas.Brush.Color := cl3DLight;
  Grid.DefaultDrawColumnCell(rect, Datacol, column, state);
end;

[amtdev]

Merci beaucoup.