Показать сообщение отдельно
  #5  
Старый 17.10.2016, 16:38
Red_Garry Red_Garry вне форума
Начинающий
 
Регистрация: 07.07.2011
Сообщения: 126
Репутация: 10
По умолчанию

Код:
procedure TForm6.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if Column.Field.DataSet.FieldByName('1').AsInteger=777.00 then
begin
with  DBGrid1.Canvas do begin
Brush.Color:=$00FF77;
Font.Color:=$00FF77;
FillRect(Rect);
TextOut(Rect.Left+2,Rect.Top+2,Column.Field.Text);
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;
end;
Т.е. хотелось бы, чтобы в поле с именем 1 при получении им значения 777.00 красилась только отображающая его ячейка DBGrid
Ответить с цитированием