Как заставить 1С мигать
Ранее я рассказывал, как можно заставить 1С мигать с помощью обработчика ожидания.
Но это плохая затея, т.к. когда я менял цвет кнопки, у 1С менялся стиль курсора, сам курсор перескакивал, пользователь охарактеризовал это метким словом «Глючит».
Но отказываться от мигания не хотелось, поэтому я вспомнил про поле HTML-документа и разместил поле на форме:
Свойства поля:
Поле выводится с рамкой, убрать ее не особо получилось. Также пришлось делать поле высотой 2, потому что не понял, как вписать надпись прямо вверх.
Код напишу без форматирования, потому что форматирование 1С не срабатвает на HTML-тегах:
Если Выборка.Следующий() Тогда
Элементы._ТекстПодсчетаКассы.Видимость = Истина;
_ТекстПодсчетаКассы = "
|<html><head>
|
|<style>
|.blink {
|animation: blink 1s steps(1, end) infinite;
|color: #8B0000;
|font-weight: bold;
|font-size: 22; padding: 0;
|}
|
|@keyframes blink {
|0% {
|opacity: 1;
|}
|50% {
|opacity: 0;
|}
|100% {
|opacity: 1;
|}
|
|}
|</style>
|</head>
|<body>
|<span class='blink'>Время считать кассу</span>
|</body></html>
|";
Иначе
Элементы._ТекстПодсчетаКассы.Видимость = ложь;
Конецесли;
Длительность цикла в секундах задается здесь: blink 1s steps
Невидимость в процентах от времени задается здесь: 50% { opacity: 0; }
Универсально. Объем: 0,8 час.
1 комментарий
[…] UPD: способ не очень хороший, мигает курсор 1С, рекомендую использовать менее затратный к ресурсам 1с тут. […]