• Registered: 2015-09-05
  • Posts: 14

Topic: Цвет ячейки в зависимости от количества дней от сегодняшней даты

Доброго дня.
Может кто подскажет скрипт на изменение цвета ячейки в гриде? Ячейка содержит значение "дата". Мне нужны цвета например желтый цвет 2 дня назад от сегодняшней даты и красный на 3 назад от сегодняшней даты.
Заранее спасибо.

  • Registered: 2016-09-07
  • Posts: 130

Re: Цвет ячейки в зависимости от количества дней от сегодняшней даты

я так делал
только 30 дней и 0 дней

procedure FrmSotrudniki_TableGrid2_OnChange (Sender: TObject);
var
i, Ii, cR, cC,k, l: integer;
sID: string;
begin
 cR := FrmSotrudniki.TableGrid2.RowCount - 1;
 cC := FrmSotrudniki.TableGrid2.Columns.Count -1;
 FrmSotrudniki.TableGrid2.BeginUpdate;
 for i := 0 to cR do
   begin
      if (StrToDateTime(FrmSotrudniki.TableGrid2.Cells[4,i])- Date <=30) and (StrToDateTime(FrmSotrudniki.TableGrid2.Cells[4,i])- Date >=0)   then
        begin
          for Ii:=0 to Cc do FrmSotrudniki.TableGrid2.Cell[Ii,i].Color := $006F6FFF;
        end;
        if (Date - StrToDateTime(FrmSotrudniki.TableGrid2.Cells[4,i]) >0) then
        begin
          for Ii:=0 to Cc do FrmSotrudniki.TableGrid2.Cell[Ii,i].Color := clSilver;
        end
   end;
   FrmSotrudniki.TableGrid2.EndUpdate;
end;