• Registered: 2018-01-25
  • Posts: 4

Topic: Выделение цветом

Привет! Подскажите как реализовать

Есть TableGrid1 в котором отображаются поля

есть поле SROK с типом "ДАТА"

Как сделать чтобы в гриде строки, в которых поле SROK ниже системной даты выделялись розовым?

а те в которых SROK выше на 1 день  системной даты выделялись зеленым?

2 Reply by pt.82 (edited by pt.82 2018-01-26 04:03:48)

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

Re: Выделение цветом

попробуйте так

procedure Form1_TableGrid1_OnChange (Sender: TObject);
var
   i,c: integer;
begin
   Form1.TableGrid1.BeginUpdate;
   c := Form1.TableGrid1.RowCount - 1;
   for i := 0 to c do
   begin
      if StrToDateTime(Form1.TableGrid1.Cells[4,i]) < Date then Form1.TableGrid1.Cell[4,i].Color := $00FF80FF;
      if StrToDateTime(Form1.TableGrid1.Cells[4,i]) = Date+1  then Form1.TableGrid1.Cell[4,i].Color := clGreen;
   end;
   Form1.TableGrid1.EndUpdate;
end;
  • Registered: 2018-01-25
  • Posts: 4

Re: Выделение цветом

procedure Osnova_TableGrid1_OnChange (Sender: TObject);
var
   i,c: integer;
begin
   Osnova.TableGrid1.BeginUpdate;
   c := Osnova.TableGrid1.RowCount - 1;
   for i := 0 to c do

      if StrToDateTime(Osnova.TableGrid1.Cells[8,i]) < Date then Osnova.TableGrid1.Cell[8,i].Color := $00FF80FF;
      if StrToDateTime(Osnova.TableGrid1.Cells[8,i]) = Date+1  then Osnova.TableGrid1.Cell[8,i].Color := clGreen;
   end;
begin
   Osnova.TableGrid1.EndUpdate;
end.


Ничего не подкрашивает ... и ошибок не выдает

  • Registered: 2018-01-25
  • Posts: 4

Re: Выделение цветом

Вот проект мой...
https://cloud.mail.ru/public/Ex6m/3Y4G7AcTF


Нужно чтобы так как написано в первом посте, но если не стоит отметка исполнено, если исполнено, то никак не подсвечивается

Братцы, выручайте пожалуйста!

  • Registered: 2016-02-28
  • Posts: 124

Re: Выделение цветом

Если я все правильно понял: https://yadi.sk/d/KKBrGXxJ3RoasF

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

Re: Выделение цветом

так?
может конечно коряво

Post's attachments

Attachment icon Zayava.rar 296.73 kb, 369 downloads since 2018-01-26 

  • Registered: 2018-01-25
  • Posts: 4

Re: Выделение цветом

Большое спасибо! Помогли.


Низкий поклон pt.82 и Raspr.