Цитата: MWW_Ruza от Сегодня в 01:45Думаю, так и через Добавление/Удаление панели заработает...У меня вот так работает уже достаточно давно
КодНовойПанели = Панель.ДобавитьПанель("ПанельПрогресс","",150,0,1);
Панель.НайтиПоКоду(КодНовойПанели);
Панель.УдалитьПанель();
Процедура ПриДвойномНажатииЛевойКнопкиВСтрокеСостояния(Конт, ИДпанели)
Если ПустоеЗначение(КодПан) = 0 Тогда
НайдПан = Панель.НайтиПоКоду(КодПан);
Иначе
СтатусВозврата(0);
Возврат;
КонецЕсли;
Панель.ВыбратьПанели();
Пока Панель.ПолучитьПанель() = 1 Цикл
Если Панель.Код = КодПан Тогда
Если Панель.Видимость = 0 Тогда
Если Вопрос("Включить режим сохранения запросов?", 4, 3) = 6 Тогда
Панель.Видимость = 1;
КонецЕсли;
Иначе
Если ИДпанели = Панель.Код Тогда
Если Вопрос("Выключить режим сохранения запросов?", 4, 3) = 6 Тогда
Панель.Видимость = 0;
КонецЕсли;
КонецЕсли;
КонецЕсли;
Прервать;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Процедура ПриДвойномНажатииЛевойКнопкиВСтрокеСостояния(ИД)
Если ПустоеЗначение(КодПан) = 0 Тогда
НайдПан = Панель.НайтиПоКоду(КодПан);
Иначе
СтатусВозврата(0);
Возврат;
КонецЕсли;
Панель.ВыбратьПанели();
Пока Панель.ПолучитьПанель() = 1 Цикл
Если Панель.Код = КодПан Тогда
Если Панель.Видимость = 0 Тогда
Если Вопрос("Включить режим сохранения запросов?", 4, 3) = 6 Тогда
Панель.Видимость = 1;
КонецЕсли;
Иначе
Если Вопрос("Выключить режим сохранения запросов?", 4, 3) = 6 Тогда
Панель.Видимость = 0;
КонецЕсли;
КонецЕсли;
Прервать;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Процедура ПриДвойномНажатииЛевойКнопкиВСтрокеСостояния(ИД)
НайдПан = Панель.НайтиПоНаименованию("РежОтл");
Если НайдПан = 0 Тогда
Если Вопрос("Включить режим сохранения запросов?", 4, 3) = 6 Тогда
Панель.ДобавитьПанель("РежОтл", "Вкл. реж. сохр. запр.", 120,,1);
КонецЕсли;
Иначе
Если Вопрос("Выключить режим сохранения запросов?", 4, 3) = 6 Тогда
Панель.УдалитьПанель();
КонецЕсли;
КонецЕсли;
КонецПроцедуры


