Анимация для элементов форм в 1С 8.1
Для тех кто еще ломает голову как создать анимированную кнопку, или что нибудь еще
- Описание
- Подробнее
Описание
Коряво конечно, но главное работает с минимальными тормозами
Примерчик
Перем Min;
Перем Max;
Перем ИмяЭлемента;
Процедура
Кнопка1Нажатие(Элемент);
Min=0; //Начальный кадр
Max=10; //Конечный
ИмяЭлемента = Элемент.Имя;
ПодключитьОбработчикОжидания("ОбновитьКартинку", 1, Ложь); //Устанавливаем интервал в секундах
КонецПроцедуры Процедура
ОбновитьКартинку();
Если Min < Max Тогда
Min = Min+1; //Перемещаемся к след. кадру
СледующийКадр
(Min, "C:\1\", ".Bmp"); //Первый параметр указывает на то как называется файл след. кадра, второй на папку с этим файлом, третий на его расширение
КонецЕсли;
КонецПроцедуры
Процедура
СледующийКадр(Номер,Размещение,Расширение);
Результат = Размещение+Строка(Номер)+Расширение;
ЭлементыФормы.Найти(ИмяЭлемента).Картинка=Новый Картинка(Результат,Ложь);
КонецПроцедуры

