[Ekler1]

В приложенной картинке записи в гриде выделяются двумя цветами чтоб не сливались, как сделать так-же???? (cxdbgrid (Devexprees))

[NumLock]

У TableView свойство Style.ContentOdd. У этого стиля изменить Color.

[Ekler1]

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

У TableView свойство Style.ContentOdd. У этого стиля изменить Color.

Спасибо, разобрался!)

[Ekler1]

А в обычном DBGrid можно такое сделать?

[Alegun]

Можно, нужно раскрашивать строки "под зебру" в DrawColumnCell

Код:

var i: integer = 0;
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 with Sender as TDBGrid do
  begin
   if(DataCol  = 0) then inc(i);
   if (i mod 2 = 0) then
    begin
     Canvas.Font.Color := clBlack;
     Canvas.Brush.Color:= clCream;
    end else
     begin
      Canvas.Font.Color := clBlack;
      Canvas.Brush.Color:= clWhite;
     end;
   DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;

[Ekler1]

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

Можно, нужно раскрашивать строки "под зебру" в DrawColumnCell

Код:

var i: integer = 0;
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 with Sender as TDBGrid do
  begin
   if(DataCol  = 0) then inc(i);
   if (i mod 2 = 0) then
    begin
     Canvas.Font.Color := clBlack;
     Canvas.Brush.Color:= clCream;
    end else
     begin
      Canvas.Font.Color := clBlack;
      Canvas.Brush.Color:= clWhite;
     end;
   DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;

Что-то ничего не изменилось))