Мигание кнопкой
UPD: способ не очень хороший, мигает курсор 1С, рекомендую использовать менее затратный к ресурсам 1с тут.
Одному клиенту нужно было, чтобы кнопка мигала. Почитал, что 1С в 2023 году до сих пор не умеет штатно в мигание, поэтому делаем принудительно.
При открытии подключаем обработчик ожидания с частотой 1 секунда (чаще не получается):
&НаКлиенте Процедура ПриОткрытии(Отказ) ПодключитьОбработчикОжидания("дор_МиганиеПодсчетаКассы", 1); КонецПроцедуры // ПриОткрытии()
Сам обработчик чередует фон кнопки каждую секунду.
&НаКлиенте Процедура дор_МиганиеПодсчетаКассы() Экспорт Если _МиганиеПодсчета = 0 Или _МиганиеПодсчета = 2 Тогда Элементы.Формадор_ПосчитатьКассу.ЦветФона = Новый Цвет; Иначе Элементы.Формадор_ПосчитатьКассу.ЦветФона = WebЦвета.Розовый; КонецЕсли; Если _МиганиеПодсчета = 0 Тогда Элементы.Формадор_ПосчитатьКассу.Заголовок = "Посчитать кассу"; Иначе Элементы.Формадор_ПосчитатьКассу.Заголовок = "НУЖНО ПОСЧИТАТЬ КАССУ"; КонецЕсли; Если _МиганиеПодсчета = 2 Тогда _МиганиеПодсчета = 1; ИначеЕсли _МиганиеПодсчета = 1 Тогда _МиганиеПодсчета = 2; КонецЕсли; КонецПроцедуры
Таким образом, достаточно установить признак _МиганиеПодсчета в 1 и мигание будет работать до сброса этого признака в 0.
