Навигация на рабочем столе

AlexKag · 07 фев 2013, 18:43

Добрый вечер! Подскажите пожалуйста, как реализовать данную навигацию (см. картинка)? Документов у меня не много

sadovod · 07 фев 2013, 20:18

С помощью макета типа HTML-документ. Можете посмотреть, как это сделано, например, в типовой "УправлениеНебольшойФирмойУчебная"

AlexKag · 08 фев 2013, 19:06

Да, да, я как раз там и смотрел. Но не совсем разобрал синтаксис. У меня всего на данный момент три документа. Заявление, договор, и приказ. В последовательности они друг за другом идут. Вот как мне это сделать, скажите пожалуйста?

Dethmontt · 09 фев 2013, 02:15

Код Выделить

ПолеHTMLДокумента.УстановитьТекст("<HTML><BODY> Твоя рисовалка в HTML </BODY></HTML>"); //Примерно так

AlexKag · 09 фев 2013, 15:40

А можно, если Вам не сложно, немного подробнее?

sadovod · 09 фев 2013, 19:19

Если воспользоваться учебной УНФ, то там всё просто, даже ничего кодить не нужно. Правда, нужно будет отредактировать рисунок в макете каким-нибудь графическим редактором.
1. Копируете из учебной конфигурации три объекта метаданных: общую форму "НавигацияРабочийСтол", общий макет "Навигация" и общую картинку "Навигация". Затем открываете дв.кликом картинку "Навигация", выбираете "Сохранить в файл", сохраняете и, затем правите его в графическом редакторе - меняете надписи и стрелки. Только старайтесь, чтобы расположение графических элементов оставалось как в оригинале, либо придётся вручную менять координаты областей в макете)
2. В HTML-тексте макета в тегах <AREA> меняете наименование документов на нужные вам. Остальные можно удалять. Обратите внимание, чтобы области с именами ваших документов соответствовали надписям на рисунке.
3. В принципе, всё, можно ещё в модуле общей формы "НавигацияРабочийСтол" в процедуре НавигацияРабочийСтолПриНажатии() снести лишний код, оставив только

Код Выделить

&НаКлиенте
Процедура НавигацияРабочийСтолПриНажатии(Элемент, ДанныеСобытия, СтандартнаяОбработка)
    СтандартнаяОбработка = Ложь;
    Попытка
	СтрокаИмяФормы = ДанныеСобытия.Element.href;
	СтрокаИмяФормы = СтрЗаменить(СтрокаИмяФормы, "v8config://", "");
	СтрокаИмяФормы = СтрЗаменить(СтрокаИмяФормы, "/", "");
	ОткрытьФорму(СтрокаИмяФормы);
    Исключение
    КонецПопытки;
КонецПроцедуры

В общем, тут есть широкие возможности для экспериментов

Навигация на рабочем столе

AlexKag

sadovod

AlexKag

Dethmontt

AlexKag

sadovod

Похожие темы (5)

Поиск