Можно ли в DBGrid выделять строки разными цветами?

[KiLLiR]

Всем доброго времени суток.
Вопрос состоит в следующем... У меня в программе DBGrid является отображением журнала записи заявок в ЖКХ (журнал хранится в базе access). Я хочу каждой заявке присваивать статус (выполненная, невыполненная, срочная), и соответственно окрашивать строки с этими заявками, например, в серый, желтый и красный цвета. Возможно ли это вообще? Если да, то как? Если нет, то что можете посоветовать для визуального выделения этих строк? Может быть вообще сменить способ отображения баз...

P.S. Пишу на D7 под WinXP

Заранее спасибо.

[KiLLiR]

Вопрос снят.

[maladoy]

можно!!

Не знаю, помогу ли я Вам, но я расскажу как можно изменить цвет отдельных ячеек GBGrid без необходимости создания нового компонента. Я только что протестировал этот код....

Я создал форму, поместил на ней компонент TTable и указал ему на таблицу EMPLOYEE.DB в базе данных DBDEMOS. Затем я разместил на форме Datasource и DBGrid, "соединил" их и получил живые данные.

Для демонстрации данной технологии я выбрал поле "номер служащего" в таблице EMPLOYEE.DB и "покрасил" ячейки с нечетными числами. То есть, если число нечетное, красим ячейку в зеленый цвет.

Единственный код расположился в обработчике события OnDrawColumnCell компонента DBGrid и выглядел он так:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect:
  TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  holdColor: TColor;
begin
  holdColor := DBGrid1.Canvas.Brush.Color; {сохраняем оригинальный цвет}
  {"раскрашиваем" ячейки только для поля EmpNo}
  if Column.FieldName = 'EmpNo' then
    if (Column.Field.AsInteger mod 2 <> 0) then
    begin
      DBGrid1.Canvas.Brush.Color := clGreen;
      DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
      DBGrid1.Canvas.Brush.Color := holdColor;
    end;
end;

В данном случае мы использовали метод DefaultDrawColumnCell компонента TCustomDBGrid, являющегося родителем для TDBGrid. Он раскрасил зеленым цветом нечетные ячейки поля EmpNo

delphiworld

Не самый лучший пример. А если и/или шрифты нужны разноцветные ? Да еще со своими Alignment ?
А если (по какому-то условию - жирный, наклонный) ?
Закрыто - автор снял вопрос.