[slava32167]

Всем доброго времени суток!=)
Возник вопрос, как можно реализовать данную операцию
Есть таблица, в которой имеется 2 колонки: Дата и до какого числа.
Например дата 21.04.2011, а до какого числа 21.04.2012.
Нужно сделать так, чтобы данные ячейки заливались красным цветом когда дата будет достигать 21.03.2012(за месяц до конца) и соответственно будет так до дальнейшего изменения.
Зарание благодарю!

[Viajero]

http://www.delphisources.ru/pages/fa...elect_row.html
http://www.sdteam.com/t403

[slava32167]

Большое спасибо!=)
Но трудность заключается не в этом, а именно "Нужно сделать так, чтобы данные ячейки заливались красным цветом,тогда когда дата будет достигать 21.03.2012(за месяц до конца) и соответственно будет так до дальнейшего изменения."
Слабо себе представляю работу с датами.. ведь для каждой ячейки она своя=\

[Viajero]

Там же всё написано. Если конкретный вопрос - давайте код, напишите, что не получается. Если не знаете как с датами работать - есть книги по дельфи
http://www.delphisources.ru/forum/showthread.php?t=6221

зы: Вот здесь есть практически всё что нужно и по датам и по бд и по многому другому
http://www.delphilab.ru/files/book/DRKB.chm

[slava32167]

Кто может оказать помощь с данным вопросом, прошу написать ЛС или в Skype - dreamdddd, естественно не безвозмездно!=)

[chainik]

я пользуюсь такой процедурой перекраски
(привожу как пример)

Код:

{-------перерисовка строки просроченные/негодные------------------}
procedure TFrameUchet.DBGrid2DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
with IBJurnUcheta do
    begin
    if (FieldByName('PlanDat').AsDateTime <= NOW) or
         (FieldByName('Reslt').AsString = '  -  ') or
         (FieldByName('Reslt').AsString = 'БРАК') or
         (FieldByName('Reslt').AsString = 'НЕ ГОДЕН') then
              DBGrid2.Canvas.Font.Color:=clRed;
    if FieldByName('Reslt').AsString = 'Техобслуж.' then
              DBGrid2.Canvas.Font.Color:=clFuchsia;
    if FieldByName('Reslt').AsString = 'Консерв.' then
              DBGrid2.Canvas.Font.Color:=clYellow;
    end;    //with
DBGrid2.DefaultDrawColumnCell(Rect, 1, Column, State);
end;