скрыть иконку открыть документ. Как?

Автор vjick, 11 декабря 2024, 15:41

« назад - далее »

vjick

Зравствуйте. потребовалось сделать конфигурацию с минимальным интерфейсом. Но иконки создать и открыть документ гугл не подсказал как убрать. Вот мой код. Что надо дописать?
Процедура глИзменитьИнтерфейс() Экспорт Если (НазваниеНабораПрав()="ТолькоОтчеты") Тогда Окна = СоздатьОбъект("Окна"); //СЗМеню = Окна.ПолучитьМеню(); //Пункт = ""; //Для Ц = 1 По  СЗМеню.РазмерСписка() Цикл //    Зн = СЗМеню.ПолучитьЗначение(Ц, Пункт); //    Сообщить(Строка(Ц) + " = " + Пункт); //КонецЦикла; Окна.ВидимостьМеню("&Файл", 0); Окна.ВидимостьМеню("&Действия", 0); Окна.ВидимостьМеню("Опе&рации", 0); Окна.ВидимостьМеню("&Помощь",0); Окна.ВидимостьМеню("&Сервис",0); КонецЕсли; КонецПроцедуры // глИзменитьИнтерфейс() Процедура ПриНачалеРаботыСистемы() //http://www.dorex.pro/?download //ДоступнаяВерсияFormEx(<?>) Если ЗагрузитьВнешнююКомпоненту(КаталогИБ() +"FormEx.dll")=0 Тогда Сообщить("Не удалось обнаружить компоненту FormEx.dll в каталоге базы"); Иначе Сервис = СоздатьОбъект("Сервис"); Сообщить("FormEx.dll загружена, версия="+Сервис.ВерсияFormEx()); глИзменитьИнтерфейс(); КонецЕсли;

Arbuz

На сколько я понимаю, эта панель инструментов не управляется.
Процедура ПриПолученииКомандыГлавнымОкном(пКоманда, lParam, пФСО) пФСО = 0; Если пКоманда = 0 Тогда ИначеЕсли пКоманда = 32786 Тогда// Новый ИначеЕсли пКоманда = 32784 Тогда// Открыть ИначеЕсли пКоманда = 32862 Тогда// Просмотр ИначеЕсли пКоманда = 32790 Тогда// Копировать ИначеЕсли пКоманда = 32877 Тогда// на основании Иначе пФСО = 1; КонецЕсли; КонецПроцедуры

vjick

Цитата: Arbuz от 11 декабря 2024, 17:19На сколько я понимаю, эта панель инструментов не управляется.
Спасибо за ответ.
Только как его интерпретировать? Сначала Вы пишите, что эта панель инструментов не управляется, а ниже этого утверждения приводите некий код.
Как минимум возникает вопрос: куда мне этот код вставить? (надеюсь Вы не поклонник поручика Ржевского). И что этот код делает.
И еще... Думал при поступлении сообщения в теме придет сообщение на почтовый ящик, но так и не дождался. Заглянул, а здесь ответ.

Злоп

@vjick
это значит, что иконки хоть и нельзя убрать, но можно перехватить действия при нажатии этих колонок, типа
ИначеЕсли пКоманда = 32786 Тогда // Новый
  пФСО = 0; // отлуп! собака здесь порылась
  Предупреждение("Броня крепка и танки наши быстры!");
  Возврат;
 

Злоп

Ну и можно отключить видимость всей этой панели, типа (код из обработки для экрана ТСД)
Процедура ПослеОткрытия() Окна = СоздатьОбъект("Окна"); Окна.ПоказыватьПанели(флПоказатьТрассировку); Окна.СтильОкна(Форма,2); Окна.РазмерОкна(Форма,242,340); //стандарт под экран 240-320 с оставлением верхнего и нижнего титула = 242*270 Окна.ЦентрироватьОкно(Форма); Окна = ""; КонецПроцедуры //ПослеОткрытия()

vjick

Злоп, спасибо, что уделили моему вопросу внимание. Буду пробовать.

Злоп

Чем могу, то помогаю.
Бо и мне кто подаст руку помощи.

Arbuz

Цитата: vjick от 14 декабря 2024, 16:03куда мне этот код вставить?
Этот код надо вставить в глобальник. Это событие Формекса. При этом перечисленные действия не будут работать глобально. Ни из панели, ни из меню Действия, ни из контекстного меню, ни горячими клавишами.

Arbuz

Цитата: vjick от 14 декабря 2024, 16:03при поступлении сообщения в теме придет сообщение на почтовый ящик, но так и не дождался
В настройках профиля выбрать Уведомления и проставить галки Получать электронное сообщение

Злоп

Цитата: Arbuz от 16 декабря 2024, 17:43куда мне этот код вставить?
- сразу выползает анекдот про Наташу Ростову, поручика Ржевского и свечку... ;-)