Форум программистов [Powered by Invision Power Board]

Код

Procedure TForm1.DBGridPeopleDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
Begin
   if TDBGrid(Sender).DataSource.DataSet.FieldByName('Date_dismiss').AsString<>'' then
      begin
         TDBGrid(Sender).Canvas.Font.Color:=clMaroon; //делаем цвет шрифта clMaroon (что-то типа бордового :) )
         TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
      end
   else
      begin
         TDBGrid(Sender).Canvas.Font.Color:=clBlack; //иначе обычный черный 
         TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
      end;
   if (gdSelected in State)    then
      begin
        TDBGrid(Sender).Canvas.Font.Color := clHighLightText; //если ячейка выделена то шрифт делаем подсвеченным (как объявлен в винде)
        TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
      end;
End;