И теперь не придется дергаться и/или лишний раз открывать «Справка / О программе». Тем более, что в управляемом приложении, еще один дополнительный клик мышкой
Обработка работает как с обычным приложением, так и управляемым. Корректно показывает файловые и серверные базы данных.
Для тех у кого конфигурация на поддержке и не хочется снимать, можно дописать в ярлык запуска 1С /ExecuteC:workСтартСистемы.epf
Более искушенные могут прописать код в конце процедуры ПриНачалеРаботыСистемы()
Для обычного приложения нужно найти в «модуле обычного приложения» процедуру ПриНачалеРаботыСистемы()
Процедура ПриНачалеРаботыСистемы()
//
ЗаголовокСистемы = ПолучитьЗаголовокСистемы();
ТекущаяСтрока = СокрЛП(ВРег(СтрокаСоединенияИнформационнойБазы()));
Если Лев(ТекущаяСтрока, 5) = "SRVR=" Тогда
ПозицияБД = Найти(ТекущаяСтрока, ";REF=");
_ИмяСервера = Сред(ТекущаяСтрока, 7, ПозицияБД-8);
_ИмяБД = Сред(ТекущаяСтрока, ПозицияБД+6, СтрДлина(ТекущаяСтрока)-1-(ПозицияБД+6));
СтрокаБД = " (Сервер: "+_ИмяСервера+" БД: "+_ИмяБД+")";
Иначе
_ИмяСервера = Сред(ТекущаяСтрока, 7, 100);
СтрокаБД = " (Файл: "+_ИмяСервера+")";
КонецЕсли;
УстановитьЗаголовокСистемы(ЗаголовокСистемы + СтрокаБД);
Отказ = Истина;
КонецПроцедуры
Хороший и нужный боян…
Бредовая реализация…
В типовых конфигурациях есть возможность менять заголовки окон без изменения оной, а для собственных поделок подойдет, может:)
(3) В типовых заголовок нужно выставлять руками, а тут он формируется сам. У меня коллега делал локальную копию базы каждое утро. Не прописывать же каждый день, что база отладочная.
День добрый!
Прочитал вашу статью.
Взял предложенный вами код и сделал свою обработку.
Дописал в ярлык для запуска баз которые рабочие, тестовые все прекрасно.
Создал пустую конфигурацию, открыл в конфигураторе обработку,
добавил пробел, затем убрал, нажал иконку на сохранение, получил сообщение
{ВнешняяОбработка.ТестоваяБаза.МодульОбъекта(2,21)}: Процедура или функция с указанным именем не определена (ПолучитьЗаголовокСистемы)
ЗаголовокСистемы = <<?>>ПолучитьЗаголовокСистемы(); (Проверка: Сервер)
{ВнешняяОбработка.ТестоваяБаза.МодульОбъекта(18,4)}: Процедура или функция с указанным именем не определена (УстановитьЗаголовокСистемы)
<<?>>УстановитьЗаголовокСистемы(ЗаголовокСистемы + СтрокаБД); (Проверка: Сервер)
Продолжил сохранение, не смотря на предупреждение, запустил работает!?
Интересно в чем же проблема.
Платформа 1С 8.3 (8.3.5.1119)
(5) sterehov77, Синтаксис:
УстановитьЗаголовокСистемы(<Заголовок>)
Параметры:<Заголовок> (обязательный)
Тип: Строка.Текст, устанавливаемый в качестве заголовка главного окна программы.
Описание:Устанавливает новый заголовок главного окна программы.
Доступность: Толстый клиент.
На сервере не будет работать, чтобы не выскакивала ошибка нужно заключить данную процедуру в конструкцию #Если Толстый клиент #КонецЕсли