Topic: Изменение цвета ячейки в зависимости от даты.
Доброго всем дня и хороших выходных! Для проекта по контролю исполнения поручений есть желание применить изменение цвета ячейки. Пока запись имеет статус "На контроле" ячейка "Дата выполнения" имеет цвет: с момента формирования записи один, за какое-то количество дней до даты выполнения - другой, третий и т.д., по достижении даты выполнения и далее - красный. После получения записью статуса "Выполнено" цвет отсутствует.
Как для реализации вышесказанного переписать этот код?
procedure frmMain_TableGrid1_OnChange (Sender: string);
var
i,c: integer;
sDate: string;
YY, MM, DD: word;
begin
c := frmMain.TableGrid1.RowCount - 1;
for i := 0 to c do
begin
sDate := frmMain.TableGrid1.Cells[0,i];
if ValidInt(sDate) then
begin
///////////ЭТО НЕ РАБОТАЕТ
// DecodeDate(now, YY, MM, DD);
// if StrToInt(sDate) <= DD then frmMain.TableGrid1.Cell[0,i].Color := clRed;
end;
end;
end;