Подсвечивание ячейки в зависимости от времени суток

[Vitalii_Popovych]

Вводная: имеется таблица с 24 строками (24 строки - 24 часа):
00:00
...
...
23:59
Подскажите пожалуйста, есть ли способ сделать так, чтобы в зависимости от времени суток подсвечивалась конкретная ячейка первого столбца (например ячейка 00:00 - 00:00:59 светилась когда время такое же) и так по очереди.
Спасибо.

[pan2000]

Цвет фона ячейки доступен для записи. Для контроля временного интервала, привязанного к началу часа, можно использовать событие "Прошел час".
Пример скрипа для таблицы Table1 c фиксированной первой строкой:

Код: (delphi)

// подсветка ячейки, соответствующей текущему часу
var i: integer;
begin
  for i := 0 to 23 do
    with Table1.GetCell(0,i + 1) do
      if i = HourOf(Now) then Color := clFuchsia else Color := clGray;
end.

При запуске проекта можно установить цвет фона текущего интервала в скрипте "Проект полностью запущен":

Код: (delphi)

begin
  Table1.GetCell(0,HourOf(Now) + 1).Color := clFuchsia;
end.

[Vitalii_Popovych]

Цвет фона ячейки доступен для записи. Для контроля временного интервала, привязанного к началу часа, можно использовать событие "Прошел час".
Пример скрипа для таблицы Table1 c фиксированной первой строкой:

Код: (delphi)

// подсветка ячейки, соответствующей текущему часу
var i: integer;
begin
  for i := 0 to 23 do
    with Table1.GetCell(0,i + 1) do
      if i = HourOf(Now) then Color := clFuchsia else Color := clGray;
end.

При запуске проекта можно установить цвет фона текущего интервала в скрипте "Проект полностью запущен":

Код: (delphi)

begin
  Table1.GetCell(0,HourOf(Now) + 1).Color := clFuchsia;
end.

Здравствуйте. А можно сделать так чтобы ячейка мигала. Я пробовал вместо Color ставить  FlashColor, но скрипт почему то не компилируется.

[Simple-Scada]

Здравствуйте. У ячеек таблицы нет свойства FlashColor, поэтому мигание ячейки сделать не получится. Все свойства ячейки можно найти в руководстве по скриптам.