7374       Конференция Delphi SoobCha           письмо # 7375 7376  

Тема: RE: Re[2]: Ячейку выделить цветом
Дата: Tue, 4 Mar 2008 10:36:39 +0300
Кому: "Delphi" <Delphi@soobcha.org>
Content-Type: text/plain; charset="koi8-r"
     Добрый день

Мне подсказали вот такой вариант. Он меня полностью устроил.

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
if pos('Нужный тескт',column.Field.Text)>0 then
  Begin
  TDBGrid(Sender).Canvas.Brush.Color:=clRed;
  TDBGrid(Sender).Canvas.Font.Color:=clWhite;
  End;
TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

Вопрос закрыт.

Cпасибо.

--

С уважением, Алексей
  7374 7376  
 
???Mail.ru ??? ?????
╘ 2000-2006 Сообщество Чайников