Показать сообщение отдельно
  #1  
Старый 06.09.2011, 14:18
Аватар для Shoni
Shoni Shoni вне форума
Прохожий
 
Регистрация: 02.09.2011
Адрес: Кострома
Сообщения: 45
Версия Delphi: 7
Репутация: 165
По умолчанию Проблема цвета в DBGrid

Доброго времени суток!

Суть в следующем: есть несколько закрашенных столбцов в DBGrid


Код:
procedure TfmChild1.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);

var  holdColor: TColor;
begin
  holdColor := DBGrid1.Canvas.Brush.Color; {ñîõðàíÿåì îðèãèíàëüíûé öâåò}
   if Column.FieldName = 'Strich'  then
     begin
     DBGrid1.Canvas.Brush.Color := rgb(254, 207, 203);
     DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
     DBGrid1.Canvas.Brush.Color := holdColor;
    end;

Но при этом нужно выделить текущую строку синим цветом, для этого выбираю RowSelect True, в результате выделяются только НЕЗАКРАШЕННЫЕ ячейки... помогитерешить проблему!
__________________
Memento Mori(арти)
Ответить с цитированием