Последние записи

made in programmersforum 5

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

10th
Июн

Закрашивание строки dbgrid

Posted by Chas under Delphi

Есть таблица в которой есть колонка с датой. Вычисляю разницу между датой в колонке и сегодняшней. Как теперь в цикле сделать что если выполняется условие и i<30 то строка dbgrida меняла свой цвет.

SNUPY
как-то так

if LowerCase(Field.FieldName) = 'okon_sertif' then
begin
i := DaysBetween(Field.AsDateTime,today);
if i<30 then with TDBGrid(Sender).canvas do begin Brush.Color := clRed; FillRect(Rect); end; end;[/code] тема на форуме