Официальный форум Simple-Scada.
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
кликать сквозь видимые объекты нельзя, как и должно бытьНо, если верхний объект не видим, то через него можно кликать то, что находится под ним?
Это позволит исключить первую строку при печати отчета, но оставит её в расчетах.
Добрый день. Просто напоминаю - вдруг подзабылиА почему у элемента Таблица нет горизонтального скролла? Можно ли его добавить?Постараемся добавить в будущих обновлениях.. Очень нужен, а то пол таблицы не видно.
Есть ли возможность полностью (не разово) управлять звуком при превышении граничных значений?
// Упрпавляем включением/выключением звука на Client1
RunApplication('Client1', 'D:\nircmd.exe', 'mutesysvolume 0'); // включаем звук
RunApplication('Client1', 'D:\nircmd.exe', 'mutesysvolume 1'); // отключаем звук
Большое спасибо за оперативность. Теперь всё работает как надо!Подскажите, формирую таблицу вот таким скриптом Table1.RunSQL(aQuery, tsAll); А как узнать, что таблица сформирована и с ней можно работать?К сожалению узнать о выполнении SQL-запроса отправленного от таблицы - нельзя. Постараемся добавить таблице отдельное событие на этот случай.
UPD: в версиях 2.4.0.3 и выше у таблицы есть событие OnDoneSQL для отслеживания выполнения SQL-запросов
Сделайте пожалуйста импорт/экспорт сообщений в эксель.Поддержу. Сам недавно правил под 1000 сообщений. Целый день убил.
... крупного обновления клиентов скады и внедрения системы шаблонов.Ооо, это тоже очень ждем. В этом году успеете добавить?
// Раскраска ячеек таблицы в зависимости от значения температуры термоподвески
procedure TableColorCell();
var
iRow, iCol : integer;
aCell: TM_TableCell;
aVal : Single;
begin
if Table_term.RowCount > 0 then
for iRow := 1 to (Table_term.RowCount-1) do // Цикл со второй строки таблицы до конца
for iCol := 2 to (Table_term.ColumnsCount-1) do // Цикл с третьего столбца таблицы до конца
begin
aCell := Table_term.GetCell(iCol, iRow); // Получим нужную ячейку
if aCell <> nil then
begin
aVal := aCell.Variable.AsSingle; // получим значение в ячейке
if aVal >= Tmax_warning then // Если значение больше предупредительной уставки, то
if aVal >= Tmax_alarm then // Если значение больше аварийной уставки, то
aCell.Color := clIndianRed // Раскрашиваем фон ячейки в красный цвет
else
aCell.Color := RGB(255,255,128) // Раскрашиваем фон ячейки в желтый цвет
else
aCell.Color := clWhite; // Раскрашиваем фон ячейки в белый цвет, если значение в норме
end;
end;
end;
Добрый день. Просто напоминаю - вдруг подзабылиА почему у элемента Таблица нет горизонтального скролла? Можно ли его добавить?Постараемся добавить в будущих обновлениях.
. Очень нужен, а то пол таблицы не видно.
Function Get_str_state(state : integer) : string;
begin
case state of
0 : Get_str_state := 'местный';
1 : Get_str_state := 'отключен';
2 : Get_str_state := 'включен';
3 : Get_str_state := 'авария';
end;
end;