Цвет ячейка и DBGrid

[M@riy@]

Здравстуйте! В моем проекте есть новая форма добавления строк в БД, после того как новая строка добавлена, пользователю необходимо окрасить последнюю ячейку(в которой содержится дата (столбец № 5)) в определенный цвет... На форма есть две кнопки, одна из которых должна окрашивать созданную ячейку в красный цвет, другая в синий, в зависимости от того, как это необходимо пользователю. Как это можно осуществить??? УВАЖАЕМЫЙ МИХАЛЫЧ!!! просмотрела всё, что выдал поиск, параллельно с ним просматривала разделы "помощь студентам", "БД в Делфи", "Компоненты Делфи", "общие вопросы делфи", НО НИЧЕГО ИЗ ТОГО, ЧТО МНЕ НУЖНО НЕ НАШЛА! да, есть, дастаточно, НО ПО ОПРЕДЕЛЕННЫМ ПАРАМЕТРАМ! Ну а как сделать по нажатию на кнопку??? и именно новой ячейки... Очень срочно нужно...

В таблицу добавляется клиент(ФИО),данные и дата посещения(последняя), если он ничего предприятию не должен, то администратор, после добавления строки окрашивает ячейку с датой в синий цвет(нажав на кнопку), если должен, то в красный, тоже нажатием на кнопку... вот такие вот требования заказчика... А справиться с этим сама увы не могу...

[_SERGEYX_]

Давай для пробы просто покрасим последнюю ячейку...
Глобальная

var isColor: Boolean = False;

Код раскраски

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if (isColor = True) and //Красить или нет
    (DataCol = DBGrid1.Columns.Count - 1) and //Последний столбец
    (MyTable1.RecordCount = MyTable1.RecNo) then //Последняя запись
  begin
    DBGrid1.Canvas.Brush.Color := clRed;
    DBGrid1.Canvas.Pen.Color := clRed;
    DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;

Нажмем на кнопку

procedure TForm1.Button1Click(Sender: TObject);
begin
  isColor := True;
  DBGrid1.Refresh;
end;

Но такой способ тебе ничего не даст. Нужно добавить еще одно поле в таблицу. И пусть администратор кликом по кнопке, если заказчик должен, запишет в это поле 1, если не должен - 0. А уже дальше раскрасить нужную ячейку в зависимости от значения этого поля.

[M@riy@]

Сообщение от _SERGEYX_

Нужно добавить еще одно поле в таблицу. И пусть администратор кликом по кнопке, если заказчик должен, запишет в это поле 1, если не должен - 0. А уже дальше раскрасить нужную ячейку в зависимости от значения этого поля.

Спасибо большое за идею! Добавила новый столбец в таблице, в котором можно выбирать два варианта "Да" и "нет"... даже получилось покрасить этот столбец...тепреь по добавлению новой строки правильно окрашивается только новый столбец, а как можно осуществить заливку нужной (предыдущей (по счету на строке - 5)) ячейки в зависимости от этого значения?
Сделала таким образом:

procedure TForm1.DBGrid1DrawColumnCell(Sender : TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if DataCol > 4 then
begin
with DBGrid1.Canvas do
begin

if Pos('Да',Column.Field.Text) > 0 then Brush.Color := clGreen;
if Pos('Нет',Column.Field.Text) > 0 then Brush.Color := clRed;
end;
DBGrid1.Defaultdrawcolumncell(Rect, Datacol,Column,State)
end;
end;

Огромное спасибо за помощь! )

[Stilet]

И даже здесь: http://yandex.ua/yandsearch?date=&te...=4560&lr=20554

Ничего подходящего??

Какие критерии заливки то?

,,,,,,,,333