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

Автор 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куда мне этот код вставить?
- сразу выползает анекдот про Наташу Ростову, поручика Ржевского и свечку... ;-)