[Ekler1]

Сообщение от Alegun

Вот ещё вариант

Код:

var
 flg: boolean = true;
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 if DataCol = 0 then flg:= not flg;
 with Sender as TDBGrid do
  begin
   Canvas.Font.Color := clBlack;
   if flg then
    Canvas.Brush.Color:= clCream
     else
      Canvas.Brush.Color:= clWhite;
   DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end; {with}
end;

в D7 это работает, состояние flg определяет чётную/нечётную строку для расскраски

Проверил оба кода работают на D7(( А на RAD Studio XE7 не хочет(((