ВоркингТейбл ... или а-ля РабочийСтол …

22.08.09

Разработка - Работа с интерфейсом

Конечно же, это не «РабочийСтол» в его обычном понимании. Но избавиться от повседневности помогает. Для меня вся его ценность заключается в том, что часто используемые или тестируемые внешние обработки можно закрепить за кнопками рабочего стола, а  не искать их по просторам дискового пространства.

Скачать файлы

Наименование Файл Версия Размер
-
.1250849123 107,09Kb
117
.1250849123 107,09Kb 117 Скачать

Для автоматической загрузки «цепляется» к процедуре 1С типа «ПриНачалеРаботыСистемы».


Вызов меню «Настройка» осуществляется через правую клавишу мыши. Кнопки «Панели» устанавливаются через конфигуратор.

 

Хотелось штатными средствами сделать «а-ля Рабочий стол» а именно:

  1. "Картинка" во весь экран ... (надоедает "пустое" поле 1С ...)
  2. "на форме" кнопки часто используемых и тестируемых ВНЕШНИХ (по отношению к 1С) обработок ...


... всЁ остальное прекрасно делают панели самой 1С ...

Поэтому предлагается рассматривать данную обработку не как повторение идей "РабочийСтол-ВиндоУса" а кАК создание "Доски Информации" для пользователей 1С ...

 

 ... для вЕрсии "Организация" - как идея - хорошо прикрутить:

  1. дни рождения сотрудников
  2. телефонный спрАвочник
  3. ссылки на сайт организации

добавочно:

  1. календарь
  2. часы
  3. ссылки на сайты
  4. погода
  5. ...

отсюда "вытекает" её основное преимущество - централизованное использование на всех ПК пользователей 1С ...

 

   ... ЗА дополнения, конструктивную критику, сообщения о замеченных неточностях или ошибках - буду благодарен ...

Желающих продолжить работу над данным проектом прошу присоединяться. 

 с Уважением Шёпот теней …

… вОт …

См. также

АРМ Начальника производства и АРМ Рабочего цеха для 1С:УНФ. Цифровое производство малого и среднего бизнеса

Рабочее место Производство готовой продукции (работ, услуг) Платформа 1С v8.3 1С:Управление нашей фирмой 1.6 1С:Управление нашей фирмой 3.0 Управленческий учет Платные (руб)

Расширение для 1С:УНФ с комплектом из двух АРМ: «АРМ для начальника производства» и «АРМ для рабочего цеха». «АРМ Начальника производства» позволяет анализировать общую картину состояния заказов покупателей и наличие конечных комплектующих и сырья для производства заказанной продукции. Есть возможность направлять заказы в производственную работу (в случае, если заказанную продукцию нужно произвести), резервировать и отгружать готовую продукцию. «АРМ рабочего цеха» позволяет обычным работникам оперативно закрывать производственные задания (оформлять документы выпуска) сразу в программе 1С.

14400 руб.

15.09.2017    48809    79    41    

83

Мастер ТТН. Версия ПРОФ

Оптовая торговля Рабочее место Создание на основании Платформа 1С v8.3 Бухгалтерский учет 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Платные (руб)

Полнофункциональное расширение для формирования и ведения учета перевозочных документов всех видов (ТН, ТТН, ЭТрН). Печать документов или отправка через ЭПД (Электронный перевозочный документооборот). Поддержка регистрации нескольких перевозок на одну финансовую реализацию (в виде УПД, например), а также одной перевозки на основании нескольких финансовых реализаций. Формирование всех сопроводительных документов из одной отгрузки. Формирование реестра грузосопроводительных документов, доверенности менеджеров для указания ответственных лиц (руководитель, главный бухгалтер, кладовщик) организации для пользователей ИБ. Гибкая настройка функциональности под потребности организации.

2298 руб.

18.04.2017    46672    190    41    

78

"Автосервис" для 1С:УТ 11.5, КА 2.5, ERP 2.5

Производство готовой продукции (работ, услуг) Рабочее место Оперативный учет 8.3.14 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Автомобили, автосервисы Россия Управленческий учет Платные (руб)

Расширение, добавляющее в Вашу УТ 11 или КА 2.5 автомобили, марки, модели, нормо-часы. Есть запись на ремонт, документ заказ наряд, вывод ведомости по заказ нарядам, вывод выработки мастеров.

7200 руб.

29.07.2021    15579    20    16    

22
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. Ёпрст 1063 21.08.09 14:23 Сейчас в теме
Было же недавно ?
В чем улучшение ?...
10. Ёпрст 1063 21.08.09 16:03 Сейчас в теме
Я сравниваю с
http://infostart.ru/projects/5466/
например... и в (1) имелось ввиду именно это..
2. Шёпот теней 1779 21.08.09 14:26 Сейчас в теме
... всЕгда ... ВСЁ... что-то было недавно ...

... совершенной разные подходы к организации "рабочего стола" ...

... "здесь" - попытка за счЁт штатных средств ...

... вОт ...
3. Evg-Lylyk 4547 21.08.09 14:56 Сейчас в теме
Сделайте скрины нормальные ничего не видно
4. Шёпот теней 1779 21.08.09 15:01 Сейчас в теме
(3) ... честно говоря там и смотреть нечего ...

... большая картинка, 9 маленьких картинок и формаНастройки ...

... сейчас попробую ...

.. вОт ...
6. Evg-Lylyk 4547 21.08.09 15:29 Сейчас в теме
(4) ну тогда бы и не делал
(5) теперь получше :)

Попробовал :((( жесть вообще ничего не понятно как добавлять и что можно что нельзя.На каких конфах будет работать. Я пробовал на конфе примеры 8.1 там нету например РегистрыСведений.КонтактнаяИнформация.
Я так понял можно добавлять только внешние отчеты обработки причем в фиксированные места на РС т.е. я программист должен через конфигуратор все делать.
Зачем в архиве читальщик XML? (просто для примера)

если честно пока правдо смотреть не на что... таже история что и с читальщиком XML видимо 9 кнопок достаточно и код соответствующий.
Я помоему вам писал ну должно быть чтонить уникальное что есть только в сабже иначе лучше его удалить чтобы люди на него не тратили время

Плюс поставил мне не жалко, но обработка
НиОчЁМ... вОт... ;)
7. Шёпот теней 1779 21.08.09 15:39 Сейчас в теме
8. Шёпот теней 1779 21.08.09 15:44 Сейчас в теме
(6) ... просто ВЫ сравниваете с: http://infostart.ru/projects/5232/

... кто ЖЖЖ спорит ...

... для меня это разные вещи ... и Я не люблю "пАнели" .. но "+" вАм пОставил ... мнеНЕжалко ...

... вОт ...
30. Evg-Lylyk 4547 21.08.09 21:56 Сейчас в теме
(8) Когда написано рабочий стол я вспоминаю рабочий стол Windows и какие в нем есть функции. Про "плюс" писал чтобы подчеркнуть негодование :(
(12) да интересно... было бы красивее если картинкой (шрифт можно поставить растровый чтоб не врала)
5. Шёпот теней 1779 21.08.09 15:10 Сейчас в теме
(3) ... ПЕРЕделал ... вОт ...
Evg-Lylyk; +1 Ответить
9. artbear 1447 21.08.09 16:03 Сейчас в теме
Рабочим столом пользоваться неудобно, что в Винде, что в данной обработке :(
приходится юзать очень-очень малое число обработок/программ, иначе становиться очень неудобно пользоваться
Минус.
11. Шёпот теней 1779 21.08.09 16:10 Сейчас в теме
повторюсь ...
1. хотелось штатными средствами сделать а-ля ... т.е. какая-нибудь "Картинка" во весь экран ... (надоедать "пустое" поле 1С ...)
2. кнопки часто используемых и тестируемых обработок ...

... всЁ остальное прерасно делают панели самой 1С ...

... вОт ...
12. coder1cv8 3468 21.08.09 16:18 Сейчас в теме
Линейка с количеством символов понравилась! ха-ха, надо взять на заметку )
Правда она врет, по моему?... )
13. Шёпот теней 1779 21.08.09 16:27 Сейчас в теме
(12) ... конЕчно врЁт ... врЁт но примерно +- 2...3 симвОла
... ширина символов-то разная...

... ))) ...

... вОт ...
14. Шёпот теней 1779 21.08.09 16:49 Сейчас в теме
... для вЕрсии "Организация" - хорошо прикрутить:

обязательно:
1. дни рождения сотрудников (не для ЗУП)
2. телефонный спрАвочник
3. ссылки на сайт организации

добавочно:
3. календарь
4. часы
5. ссылки на сайты
6. погода
7. ...

... чЕм и зАймусь на дОсуге ...

... вОт ...
15. leksmut 350 21.08.09 16:56 Сейчас в теме
16. Шёпот теней 1779 21.08.09 16:57 Сейчас в теме
(15) ... я состою в почЁтном клубе "опенсорс" .. ))) всегДАопенсорс ... вОт ...
17. CheBurator 3119 21.08.09 18:51 Сейчас в теме
мдя... скатываемся в украшательство.. без ценных идей... но право на существование - имеет..
21. Шёпот теней 1779 21.08.09 20:53 Сейчас в теме
(17) ... а какие "ценные идеи" дОлжны присутствовАт ь... ?

... вся "ценная" идея описана в "описание" - 1. картинка. 2. используемые обработки на столе (путь - всегда под рукой) ...
18. I_G_O_R 69 21.08.09 20:37 Сейчас в теме
чо за херня!!! а где перетаскивание??????
31. Ish_2 1104 21.08.09 22:32 Сейчас в теме
(18) Осуждаю. Дельную идею , можно и без крика.

Шепот , а ведь правда .
В свойствах формы два флажка РазрешитьПеретаскивание и РазрешитьНачалоПеретаскивания. Есть четыре (кажется) события на перетаскивание.
Может и получится.
Раз люди просют - может попробуешь ?
34. Шёпот теней 1779 22.08.09 10:47 Сейчас в теме
(31) ... "перетаскивание" - это "НЕтаскание" картинки по экрану .... это ЗАтаскивание в нЁЁ ...

.. ВОТ ...
36. Ish_2 1104 22.08.09 14:44 Сейчас в теме
52. WKBAPKA 214 28.08.09 16:23 Сейчас в теме
(18) Осуждаю. Дельную идею , можно и без крика.

Шепот , а ведь правда .
В свойствах формы два флажка РазрешитьПеретаскивание и РазрешитьНачалоПеретаскивания. Есть четыре (кажется) события на перетаскивание.
Может и получится.
Раз люди просют - может попробуешь ?

так реализовано же перетаскивание в приводимой в качестве примера обработке :)
чужие лавры не дают покоя )
19. I_G_O_R 69 21.08.09 20:43 Сейчас в теме
При клике:
Файл не найден ... Проверьте путь и имя файла ...


{Форма.ФормаНастроек(64)}: Поле объекта не обнаружено (ФизическоеЛицо)
ЭлементыФормы.поле_Картинка.Картинка = БиблиотекаКартинок.ФизическоеЛицо;


еще и глюков полно...

количество ярлыков ограничено...

бред полный... минус


20. Шёпот теней 1779 21.08.09 20:51 Сейчас в теме
(19) ... ну а как вы прикажите обрабытывать ситуацию отсутствия файла ...? по "ярлыку" он есть а по факту его нЕт ... вОт вАм и пишут: Файл не найден ... Проверьте путь и имя файла ... люой вИндУУУс вАм так напишет ...

... про "БиблиотекаКартинок.ФизическоеЛицо;" - и сОвсем всЁ понятно ...

...

(18) ... ну ВЫ это .. рЕализУёте а я посмОтрю ...



23. I_G_O_R 69 21.08.09 21:09 Сейчас в теме
24. СССР 21.08.09 21:19 Сейчас в теме
(23) ты чегой то разорался тут (18) еще дети не спят.
26. I_G_O_R 69 21.08.09 21:38 Сейчас в теме
(24) так это сайт для детей??? чтож вы сразу не сказали...
27. СССР 21.08.09 21:43 Сейчас в теме
(26) а женщины и девушки - тоже не в счет ?
28. I_G_O_R 69 21.08.09 21:45 Сейчас в теме
(27) в счет конечно, просто эмоции, не сдержался, ожидал гораздо бОООООльшего
33. Шёпот теней 1779 22.08.09 10:42 Сейчас в теме
(23) ...


идея:

хотелось штатными средствами сделать «а-ля» а именно:
1. "Картинка" во весь экран ... (надоедаеть "пустое" поле 1С ...)
2. «на форме» кнопки часто используемых и тестируемых ВНЕШНИХ (по отношению к 1С)обработок ...

... всЁ остальное прекрасно делают панели самой 1С ...

.... основное слово : "ШТАТНЫМИ СРЕДСТВАМИ" ...

... ВОТ ...
37. I_G_O_R 69 22.08.09 19:08 Сейчас в теме
(33) даю подсказку: в событии Ярлыка(то есть "ПолеКартинки", кот. мы перетаскиваем) "НачалоПеретаскивания" рисуем вокруг невидимые картинки 8 штук с событием "ПроверкаПеретаскивания", в котором присваиваем новые координаты нашему Ярлыку. А в событии Ярлыка "ОкончаниеПеретаскивания" удаляем все картинки. Вот такая идея использовалась в выше указаном рабочем столе. Если бы вы заметили, то ярлыки передвигаются строго по сетке, иначе никак штатными средствами. много картинок программно не нарисуешь, 1С-ка слишком медленно с графикой работает.

Вот код формы обработки, чтоб работало нужно у формы добавить событие "При открытии" и потом скопировать весь этот код и вставить в форму:

========================= начало ===========================
Перем ПеремещаемаяКартинка;

/////////// Обработчики событий формы /////////////////////

Процедура ПолеПроверкаПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка)

// перемещаем картинку
ПеремещаемаяКартинка.Лево = Элемент.Лево+5;
ПеремещаемаяКартинка.Верх = Элемент.Верх+5;

УдалитьВокругКартинки();
НарисоватьВокругКартинки();

КонецПроцедуры

Процедура КартинкаНажатие(Элемент)

Предупреждение("Вы нажали ярлык!");

КонецПроцедуры

Процедура КартинкаНачалоПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка)

ПеремещаемаяКартинка = Элемент;
НарисоватьВокругКартинки();

КонецПроцедуры

Процедура КартинкаОкончаниеПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка)

УдалитьВокругКартинки();

КонецПроцедуры



////////// Вспом. процедуры ////////////////////////////

Процедура НарисоватьВокругКартинки()

х = ПеремещаемаяКартинка.Лево-5;
у = ПеремещаемаяКартинка.Верх-5;

НП("К1", х - 50, у - 50); НП("К2", х , у - 50); НП("К3", х + 50, у - 50);

НП("К4", х - 50, у ); НП("К5", х + 50, у );

НП("К6", х - 50, у + 50); НП("К7", х , у + 50); НП("К8", х + 50, у + 50);

КонецПроцедуры

// процедура НарисоватьПоле(Имя, х, у)
Процедура НП(Имя, х, у)

Если х>0 И у>0 И х < (Ширина - 48) И у < (Высота - 73) Тогда

Картинка = ЭлементыФормы.Добавить(Тип("ПолеКартинки"), Имя);
Картинка.Лево = х;
Картинка.Верх = у;
Картинка.Ширина = 50;
Картинка.Высота = 50;
//Картинка.Рамка = Новый Рамка(ТипРамкиЭлементаУправления.Одинарная);
Картинка.РазрешитьПеретаскивание = Истина;
Картинка.ПрозрачныйФон = Истина;
Действие = Новый Действие("ПолеПроверкаПеретаскивания");
Картинка.УстановитьДействие("ПроверкаПеретаскивания", Действие);

КонецЕсли;

КонецПроцедуры

Процедура УдалитьВокругКартинки()

Для к= 1 По 8 Цикл
Картинка = ЭлементыФормы.Найти("К" + к);
Если Не Картинка = Неопределено Тогда
ЭлементыФормы.Удалить(Картинка);
КонецЕсли;
КонецЦикла;

КонецПроцедуры

Процедура Перерисовать()

Картинка = ЭлементыФормы.Добавить(Тип("ПолеКартинки"), "Картинка1");
Картинка.Лево = 8+5;
Картинка.Верх = 33+5;
Картинка.Ширина = 40;
Картинка.Высота = 40;
//Картинка.Рамка = Новый Рамка(ТипРамкиЭлементаУправления.Одинарная);
Картинка.РазрешитьНачалоПеретаскивания = Истина;
Картинка.Картинка = БиблиотекаКартинок.ДокументОбъект;
Картинка.Гиперссылка = Истина;
Действие = Новый Действие("КартинкаНачалоПеретаскивания");
Картинка.УстановитьДействие("НачалоПеретаскивания", Действие);
Действие = Новый Действие("КартинкаОкончаниеПеретаскивания");
Картинка.УстановитьДействие("ОкончаниеПеретаскивания", Действие);
Действие = Новый Действие("КартинкаНажатие");
Картинка.УстановитьДействие("Нажатие", Действие);

Картинка = ЭлементыФормы.Добавить(Тип("ПолеКартинки"), "Картинка2");
Картинка.Лево = 8+5+50;
Картинка.Верх = 33+5+100;
Картинка.Ширина = 40;
Картинка.Высота = 40;
//Картинка.Рамка = Новый Рамка(ТипРамкиЭлементаУправления.Одинарная);
Картинка.РазрешитьНачалоПеретаскивания = Истина;
Картинка.Картинка = БиблиотекаКартинок.ГеографическаяСхема;
Картинка.Гиперссылка = Истина;
Действие = Новый Действие("КартинкаНачалоПеретаскивания");
Картинка.УстановитьДействие("НачалоПеретаскивания", Действие);
Действие = Новый Действие("КартинкаОкончаниеПеретаскивания");
Картинка.УстановитьДействие("ОкончаниеПеретаскивания", Действие);
Действие = Новый Действие("КартинкаНажатие");
Картинка.УстановитьДействие("Нажатие", Действие);

КонецПроцедуры

Процедура ПриОткрытии()
Перерисовать();
КонецПроцедуры

========================= начало ===========================





adun; Ish_2; Шёпот теней; +3 Ответить
38. Шёпот теней 1779 22.08.09 19:21 Сейчас в теме
(37) ... слОв нЕт ... пОздрАвляю ... !!!

... моЁ мнение: зАчем ...? зачем слепо и тупо дЕлать как у виндоУоса ... ?

п.с. ... я воооообще не помню когда я последний раз двигал "ярлыки" ...

спАсибо ! пОздравляю ! и "+" за идЕю ...

... вОт ...
39. I_G_O_R 69 22.08.09 19:29 Сейчас в теме
(38) это не я придумал, а http://infostart.ru/projects/5466/, но код написал сам т.к. там код был закрыт паролем

как зачем двигать??? потому что это удобно, у меня например часть ярлыков в одном углу, а часть в другом, сгруппированы так сказать по какому-то признаку
40. Ish_2 1104 22.08.09 19:29 Сейчас в теме
(37) А чего ты ,Шепот , плюсиком отделываешься ?
Ты отвечай конкретно : будешь реализовывать или нет ?
41. I_G_O_R 69 22.08.09 19:36 Сейчас в теме
(40) да какая разница, мне кажется прикрутить действия к ярлыкам сможет практически любой программист, кому надо и так сделает, главное ИДЕЯ
43. Шёпот теней 1779 22.08.09 19:49 Сейчас в теме
44. Ish_2 1104 22.08.09 19:50 Сейчас в теме
45. Шёпот теней 1779 22.08.09 19:53 Сейчас в теме
(44) ... ПРОвоКАТор ... ))) ... прАвы все ... всё имЕЕт прАво на жизнь ...

... БОЛЬШЕмненийБОЛЬШЕидейБОЛЬШИЙвыбор ...
42. Шёпот теней 1779 22.08.09 19:49 Сейчас в теме
(40) ... я уже ответил в (38) ... зАчем ...? неТЕ задачи и НЕтот фУнкционал ...

штатными срЕдствами двигать не получится - получится только на букву "г" или "ж" ... опЯть же нАйдутся товарищЬчи и всЁ "о" ...

... вОттАкмнеДумается ...
25. I_G_O_R 69 21.08.09 21:19 Сейчас в теме
(20) читальщик_ХМЛ_файлов_ред5 док 02.epf не открывается в пустой конфиге т.к. там обнаружены ошибки, а пишет: Файл не найден ... Проверьте путь и имя файла ...
вводит в заблуждение...

... ВОТ ...
22. Шёпот теней 1779 21.08.09 20:56 Сейчас в теме
... ещЁ рАз пишу для ВСЕХ: - А-ЛЯ "рабочий стол" ... нАзовите его "жалкой" ПОДделкой ...

.... я сдЕлал то, что мне нУжно было ... мне нрАвится и мне удОбно .... (см. описание, после слов "идея:" ...

... кому-то понравится и хОрОшО ...

... ВОТ ...
29. I_G_O_R 69 21.08.09 21:47 Сейчас в теме
все таки перетаскивание можно было и сделать, если даже не знаете как сделать чтоб работало мышкой, можно хотя бы координаты в настройках
32. larisab 160 22.08.09 07:33 Сейчас в теме
35. Шёпот теней 1779 22.08.09 11:01 Сейчас в теме
сколько у вас "картинок" на рабочем соле ...?

лично у меня 12 ... а пользуюсь 3 -4 ... и ЭТО на столе виндоУоса ...

здесь - задача совершенно другая - что я и написал в "Описании" ...

при всех НЕдостатках сравнения с "общеПрнятымРабочимСтолом" - у этой обработки есть дополнительные преимущества, например: всЁ что описано в "Дополнительных идеях" ... + можно прицепить дополнительную информацию не обходимую в работе бухгалтеров, различного рода новости, обЪявления, справочники и т.д. и т.п.

...

п.с. пока констатируется только "формальные" признаки похожести/НЕпохожести на "РабочийСтолВиндуса" ... Лично меня "похожесть" и не волнует - она, обработка, должны выполнять мною ЗАдумАнное ...

ЕЁ главное достоинство - облегчить мне жизнь, жизнь моего предприятия разве НЕ этим озабочены всЕ наши рАзработки ...(сделал пробную версию "Организация" - пока замечаний нЕт - потому, что пользователи не ассоциируют ЭТО с "РабочимСтолом" - это скорее "Доска Информации") -

...

если данная разработка поможет ещЁ ком-нибудь - буду рад ... или натолкнЁт кого-нибудь на дополнения или новые идеи - вОООбще отлично ....


... ВОТ ...
46. Alex_Smolensky 104 26.08.09 16:16 Сейчас в теме
Супер!
однозначно плюс
47. Шёпот теней 1779 28.08.09 13:06 Сейчас в теме
(46) ...спАсибо - Alex_Smolensky ... большое ... вот ! ...
48. tango 506 28.08.09 13:15 Сейчас в теме
расписание электричек с павелецкого еще. прикрутить
49. tango 506 28.08.09 13:15 Сейчас в теме
19.46 - хорошая электричка, до домодедова
50. Шёпот теней 1779 28.08.09 14:12 Сейчас в теме
(49) ... привЕт ! ... нууу... хорошо хоть только электричек ... ))) вОООт ...
51. WKBAPKA 214 28.08.09 16:21 Сейчас в теме
как прикольно, взять чужую идею и выложить как свою ... если уж хотел усовершенствовать, то добавил бы хотя бы слои. значительно удобнее было бы работать.
53. WKBAPKA 214 28.08.09 16:55 Сейчас в теме
2(I_G_O_R): А идея то действительно на поверхности лежит. Я сначала не врубился в то что вы написали, немного почитл мануал и все стало понятно. Ключ в проверке перетаскивания :)
54. WKBAPKA 214 28.08.09 16:55 Сейчас в теме
блин а так хер бы догадался )))
55. WKBAPKA 214 28.08.09 16:58 Сейчас в теме
я вот только пока еще не нашел как они добились изменения курсора при наведении на ярлык
56. I_G_O_R 69 28.08.09 17:10 Сейчас в теме
57. WKBAPKA 214 28.08.09 17:45 Сейчас в теме
когда наводишь курсор на ярлык он меняет форму с указателя на указатель в виде руки... не могу найти событие что бы отслеживать перемещение курсора мыши в 1С
58. I_G_O_R 69 28.08.09 23:27 Сейчас в теме
(57) у некоторых элементов управления есть свойство "Гиперссылка", так вот когда оно установлено в истина, при наведении курсор становится рукой
59. WKBAPKA 214 29.08.09 14:26 Сейчас в теме
ептит, точно, если положить туже напдись установить свойство гиперссылка, положить поверх картинку в итоге получим вот такой результат. гениально. голь на выдумку хитра :)
61. WKBAPKA 214 29.08.09 14:27 Сейчас в теме
у полекартинки тоже есть такое свойство :)
62. WKBAPKA 214 29.08.09 15:37 Сейчас в теме
2(I_G_O_R): У тебя немножко наварочено определение координат. Вот мой код, используется на форме одно поле картинки которое перетаскиваем:

Процедура ПолеКартинки1НачалоПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка)
Действие = Новый Действие("ПроверкаПеретаскивания");
Элементыформы.ПолеКартинки1.УстановитьДействие("ПроверкаПеретаскивания",Действие);
Картинка = Элементыформы.Добавить(Тип("ПолеКартинки"),"ПолеКартинкиЛево");
// Картинка лево
Картинка.Лево = Элемент.Лево - Элемент.Ширина;
Картинка.Верх = Элемент.Верх;
Картинка.Ширина = Элемент.Ширина;
Картинка.Высота = Элемент.Высота;
Картинка.УстановитьДействие("ПроверкаПеретаскивания",Действие);
Картинка.РазрешитьНачалоПеретаскивания = Истина;
Картинка.РазрешитьПеретаскивание = Истина;
// Картинка верх
Картинка = Элементыформы.Добавить(Тип("ПолеКартинки"),"ПолеКартинкиВерх");
Картинка.Лево = Элемент.Лево;
Картинка.Верх = Элемент.Верх-Элемент.Высота;
Картинка.Ширина = Элемент.Ширина;
Картинка.Высота = Элемент.Высота;
Картинка.РазрешитьНачалоПеретаскивания = Истина;
Картинка.РазрешитьПеретаскивание = Истина;
Картинка.УстановитьДействие("ПроверкаПеретаскивания",Действие);
// Картинка низ
Картинка = Элементыформы.Добавить(Тип("ПолеКартинки"),"ПолеКартинкиНиз");
Картинка.Лево = Элемент.Лево;
Картинка.Верх = Элемент.Верх + Элемент.Высота;
Картинка.Ширина = Элемент.Ширина;
Картинка.Высота = Элемент.Высота;
Картинка.РазрешитьНачалоПеретаскивания = Истина;
Картинка.РазрешитьПеретаскивание = Истина;
Картинка.УстановитьДействие("ПроверкаПеретаскивания",Действие);
// Картинка право
Картинка = Элементыформы.Добавить(Тип("ПолеКартинки"),"ПолеКартинкиПраво");
Картинка.Лево = Элемент.Лево + Элемент.Ширина;
Картинка.Верх = Элемент.Верх;
Картинка.Ширина = Элемент.Ширина;
Картинка.Высота = Элемент.Высота;
Картинка.РазрешитьНачалоПеретаскивания = Истина;
Картинка.РазрешитьПеретаскивание = Истина;
Картинка.УстановитьДействие("ПроверкаПеретаскивания",Действие);
КонецПроцедуры

Процедура ПроверкаПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка)
Если Элемент.Имя <> "ПолеКартинки1" Тогда
ЭлементыФормы.ПолеКартинки1.Лево = Элемент.Лево;
ЭлементыФормы.ПолеКартинки1.Верх = Элемент.Верх;
ЭлементыФормы.ПолеКартинки1.Высота = Элемент.Высота;
ЭлементыФормы.ПолеКартинки1.Ширина = Элемент.Ширина;
УдалитьКартинки();
ПолеКартинки1НачалоПеретаскивания(ЭлементыФормы.ПолеКартинки1, Неопределено,Ложь );
КонецЕсли;
КонецПроцедуры

Процедура УдалитьКартинки()
Элементыформы.Удалить(ЭлементыФормы["ПолеКартинкиЛево"]);
Элементыформы.Удалить(ЭлементыФормы["ПолеКартинкиПраво"]);
Элементыформы.Удалить(ЭлементыФормы["ПолеКартинкиВерх"]);
Элементыформы.Удалить(ЭлементыФормы["ПолеКартинкиНиз"]);
КонецПроцедуры

Процедура ПолеКартинки1ОкончаниеПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка)
УдалитьКартинки();
КонецПроцедуры

63. WKBAPKA 214 29.08.09 15:37 Сейчас в теме
использовал для простоты только 4-ре картинки. Код естественно можно сократить
64. WKBAPKA 214 29.08.09 23:05 Сейчас в теме
кстати, так и не оценили идею относительно слоев. Есть у меня такая фича на компе как Shock 4Way 3D, очень прикольная штука. идея простая, делаем слои, количество слоев столько сколько нам нужно . один слой - документы, второй слой - справочники, 3 - отчеты, а один из слоев общий. это значително удобнее чем просто один рабочий стол. это я и хочу реалиховать в своем продукте
Оставьте свое сообщение