Мигание значка 1С на панели задач

Основная идея разработки — это один раз инициализировать систему, а затем вызывать мигание, когда это необходимо.

Для обычного приложения.

Решение основано на дополнительной обработке «Мигание значка на панеле задач», которую необходимо вставить в конфигурацию. Алгоритм внедрения:

1. Добавить в конфигурацию новую обаботку «Мигание значка на панеле задач».

2. В модуле обычного приложения, в разделе объявления переменных добавить:

Перем ОбработкаМиганияЗначка Экспорт;

3. В модуле обычного приложения в начале процедура «ПриНачалеРаботыСистемы» добавить:

 

Процедура ПриНачалеРаботыСистемы()
//объекты для вызова "мигания" окна
ОбработкаМиганияЗначка=обработки.МиганиеЗначкаНаПанелеЗадач.Создать();
ОбработкаМиганияЗначка.Инициализировать();

//.........
КонецПроцедуры

После этого достаточно в том месте программы, в котором необходимо уведомить пользователя, вставить:

//Вызвать мигание окна, если оно не активно
ОбработкаМиганияЗначка.Мигнуть();

Для управляемого приложения.

 Для управляемого приложения все несколько усложняется в виду того, что модуль обработки исполняется на сервере, а «мигать» надо на клиенте. Кроме того, управляемое приложение может иметь множество окон и охота выбирать, каким окном мигать. 

Решение для управляемого приложения предлагается в виде мини-конфигурации, содержащей только необходимые объеты. Для ее внедрения необходимо выполнить сравнение и объединение. ВНИМАНИЕ! При сравнении и объединении лучше снимите галочки с ветки «Свойства», чтобы не потерять данные своих модулей.

Если вы хорошо понимаете, как проходят процессы сравнения и объединения, то может вручную настроить объединение только моудля управляемого приложения. Остальные модули в прилагаемой конфигурации пусты.

В конфигурации содержатся:

1. Модуль управляемого приложения

2. Подсистема «МиганиеОкон»

3. Общие модули «МиганиеКлиент» и «МиганиеСервер»

4. Общий макет «DynamicWrapper32».

 

После объединения конфигураций убедитесь, что в модуле управляемого приложения в разделе объявления переменных у вас есть:

//Переменны для управления миганием окон
Перем ApiFunctions Экспорт;
Перем НомерОкна1с Экспорт;
Перем НомерОкнаМигания Экспорт;
//

В начале процедуры «ПриНачалеРаботыСистемы»:

 //Инициализация компонент
МиганиеКлиент.Инициализировать();

После этого можно сохранять конфигурацию.

 

Для управляемого приложения предусмотрено две экспортные процедуры общего модуля «МиганиеКлиент»:

1. МигатьЭтимОкном() — позволяет установить текущее окно тем, которое будет мигать на панеле задач при вызове процедуры «Мигнуть()»;

1. Мигнуть() — начинает мигать окном, для которого было вызвано МигатьЭтимОкном(). Если это окно не существует или было не задано, то мигает основное окно 1С.

Пример использования:

&НаКлиенте
Процедура ПолучитьСписокФайлов(Команда)
МиганиеКлиент.МигатьЭтимОкном();
ПолучитьСписокФайловНаСервере();
МиганиеКлиент.Мигнуть();
КонецПроцедуры

Всем успехов!