[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;

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

[Alegun]

Этот кусман был проверен на подопытной DBGrid - если не щёлкать по строчкам дибисетки, то они нормально "полосатятся", есть проблема в нарушении чётности при последующих манипуляциях, но видимо, решается это предварительным возвратом дефолтных значений кистей каждый раз перед прорисовкой колонок

[Ekler1]

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

Этот кусман был проверен на подопытной DBGrid - если не щёлкать по строчкам дибисетки, то они нормально "полосатятся", есть проблема в нарушении чётности при последующих манипуляциях, но видимо, решается это предварительным возвратом дефолтных значений кистей каждый раз перед прорисовкой колонок

хм... непонятно( я даже новый грид создал, и ничего не меняется(
Точнее все строки красятся в цвет который

Код:

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;

[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 определяет чётную/нечётную строку для расскраски

[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 не хочет(((

[Alegun]

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

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

А у меня кроме семёрки других делфей нет, извиняйте, значит в вашей среде другие правила покраски ячеек грида, мож кто ещё чего посоветует, удачи!

[Guaho]

Используйте библиотеку Ehlib. Там раскраска ячеек делается элементарно. И не только чётный/нечётный, но и гораздо более замысловатая.

[Ekler1]

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

Используйте библиотеку Ehlib. Там раскраска ячеек делается элементарно. И не только чётный/нечётный, но и гораздо более замысловатая.

У меня есть грид из библиотеки devexpress там такое действительно за минуту делается, просто не хотел переделывать все заново у меня не мало форм)) думал с обычным гридом получится