[Decoding]

Точно, вот пример:

Код:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
   // Красим фон нечетных строк
   if TDBGrid( Sender ).DataSource.DataSet.RecNo mod 2 <> 0 then
      TDBGrid( Sender ).Canvas.Brush.Color := clInfoBk;

   // Меняем стиль и цвет шрифта первой колонки
   if Column.Index = 0 then
   begin
      TDBGrid( Sender ).Canvas.Font.Style := TDBGrid( Sender ).Canvas.Font.Style + [fsBold];
      TDBGrid( Sender ).Canvas.Font.Color := clRed;
   end;

   // Восстанавливаем выделение текущей позиции курсора
   if gdSelected in State then
    begin
       TDBGrid( Sender ).Canvas.Brush.Color := clHighLight;
       TDBGrid( Sender ).Canvas.Font.Color := clHighLightText;
     end;

   // Перерисовываем GRID
   TDBGrid( Sender ).DefaultDrawColumnCell( Rect, DataCol, Column, State );
end;