Зравствуйте. потребовалось сделать конфигурацию с минимальным интерфейсом. Но иконки создать и открыть документ гугл не подсказал как убрать. Вот мой код. Что надо дописать?
Процедура глИзменитьИнтерфейс() Экспорт
Если (НазваниеНабораПрав()="ТолькоОтчеты") Тогда
Окна = СоздатьОбъект("Окна");
//СЗМеню = Окна.ПолучитьМеню();
//Пункт = "";
//Для Ц = 1 По СЗМеню.РазмерСписка() Цикл
// Зн = СЗМеню.ПолучитьЗначение(Ц, Пункт);
// Сообщить(Строка(Ц) + " = " + Пункт);
//КонецЦикла;
Окна.ВидимостьМеню("&Файл", 0);
Окна.ВидимостьМеню("&Действия", 0);
Окна.ВидимостьМеню("Опе&рации", 0);
Окна.ВидимостьМеню("&Помощь",0);
Окна.ВидимостьМеню("&Сервис",0);
КонецЕсли;
КонецПроцедуры // глИзменитьИнтерфейс()
Процедура ПриНачалеРаботыСистемы()
//http://www.dorex.pro/?download
//ДоступнаяВерсияFormEx(<?>)
Если ЗагрузитьВнешнююКомпоненту(КаталогИБ() +"FormEx.dll")=0 Тогда
Сообщить("Не удалось обнаружить компоненту FormEx.dll в каталоге базы");
Иначе
Сервис = СоздатьОбъект("Сервис");
Сообщить("FormEx.dll загружена, версия="+Сервис.ВерсияFormEx());
глИзменитьИнтерфейс();
КонецЕсли;
На сколько я понимаю, эта панель инструментов не управляется.
Процедура ПриПолученииКомандыГлавнымОкном(пКоманда, lParam, пФСО)
пФСО = 0;
Если пКоманда = 0 Тогда
ИначеЕсли пКоманда = 32786 Тогда// Новый
ИначеЕсли пКоманда = 32784 Тогда// Открыть
ИначеЕсли пКоманда = 32862 Тогда// Просмотр
ИначеЕсли пКоманда = 32790 Тогда// Копировать
ИначеЕсли пКоманда = 32877 Тогда// на основании
Иначе
пФСО = 1;
КонецЕсли;
КонецПроцедуры
Цитата: Arbuz от 11 декабря 2024, 17:19На сколько я понимаю, эта панель инструментов не управляется.
Спасибо за ответ.
Только как его интерпретировать? Сначала Вы пишите, что эта панель инструментов не управляется, а ниже этого утверждения приводите некий код.
Как минимум возникает вопрос: куда мне этот код вставить? (надеюсь Вы не поклонник поручика Ржевского). И что этот код делает.
И еще... Думал при поступлении сообщения в теме придет сообщение на почтовый ящик, но так и не дождался. Заглянул, а здесь ответ.
@vjick это значит, что иконки хоть и нельзя убрать, но можно перехватить действия при нажатии этих колонок, типа
ИначеЕсли пКоманда = 32786 Тогда // Новый
пФСО = 0; // отлуп! собака здесь порылась
Предупреждение("Броня крепка и танки наши быстры!");
Возврат;
Ну и можно отключить видимость всей этой панели, типа (код из обработки для экрана ТСД)
Процедура ПослеОткрытия()
Окна = СоздатьОбъект("Окна");
Окна.ПоказыватьПанели(флПоказатьТрассировку);
Окна.СтильОкна(Форма,2);
Окна.РазмерОкна(Форма,242,340); //стандарт под экран 240-320 с оставлением верхнего и нижнего титула = 242*270
Окна.ЦентрироватьОкно(Форма);
Окна = "";
КонецПроцедуры //ПослеОткрытия()
Злоп, спасибо, что уделили моему вопросу внимание. Буду пробовать.
Чем могу, то помогаю.
Бо и мне кто подаст руку помощи.
Цитата: vjick от 14 декабря 2024, 16:03куда мне этот код вставить?
Этот код надо вставить в глобальник. Это событие Формекса. При этом перечисленные действия не будут работать глобально. Ни из панели, ни из меню Действия, ни из контекстного меню, ни горячими клавишами.
Цитата: vjick от 14 декабря 2024, 16:03при поступлении сообщения в теме придет сообщение на почтовый ящик, но так и не дождался
В настройках профиля выбрать
Уведомления и проставить галки
Получать электронное сообщение
Цитата: Arbuz от 16 декабря 2024, 17:43куда мне этот код вставить?
- сразу выползает анекдот про Наташу Ростову, поручика Ржевского и свечку... ;-)