gifts2017

Полноценное использование Drag&Drop в 1С 7.7

Опубликовал Глеб Шрамко (DasIsFantastich) в раздел Программирование - Внешние компоненты

Несмотря на то, что кое-какие функции Drag&Drop были заложены авторами 1cpp, моё дополнение позволяет сделать этот функционал законченным. Дело в том, что средствами 1cpp можно было таскать файлы ТОЛЬКО в 1С, а из 1С - невозможно. Теперь Вы можете сделать работу с файлами на порядок удобнее и эффективнее.

Для работы самой ВК ничего дополнительно не нужно, однако для полноценной работы механизма Drag&Drop с табличным полем - наличие загруженной 1cpp и Formex обязательно.

В демо примере публикации файлы хранятся вне базы, пример сделан по принципу "чем меньше кода - тем проще встроить".

Для того чтобы работала предопределенные процедура НачалоПеретаскивания, список файлов необходимо выводить в табличном поле.

А это образец того, как работать непосредственно с vkdrops.dll:

Процедура ПриНачалеРаботыСистемы()
   ЗагрузитьВнешнююКомпоненту("vkdrops.dll"); 
КонецПроцедуры 

Заполняем список файлов для перетаскивания:

Процедура НачалоПеретаскивания(Действие, Значение, ТипЦели) Экспорт

   // если нужно добавить несколько файлов, то прописываем их пути через "РазделительСтрок"
   // СтрФайлы=ПутьКФайлу1 + РазделительСтрок + ПутьКФайлу2 и т.д.

   СтрФайлы = КаталогИБ()+"1Cv7.MD"; 

   ОбъектДрагДроп = СоздатьОбъект("AddIn.drops");
   ОбъектДрагДроп.НачатьПеретаскиваниеФайлов(СтрФайлы);

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

Для запуска примера распакуйте содержимое "Готовая ВК + demo пример", подключите новую ИБ и проверяйте.

"Исходники ВК" - для искушенных. Все необходимое есть в демке.

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

Наименование Файл Версия Размер
Готовая ВК + demo пример 2
.rar 1,10Mb
19.09.16
2
.rar 1,10Mb Скачать
Исходники ВК
.rar 435,96Kb
19.09.16
0
.rar 435,96Kb Скачать

См. также

Подписаться Добавить вознаграждение
Комментарии
1. Артур Аюханов (artbear) 22.09.16 19:51
Спасибо от авторов 1С++, но ИМХО опоздал ты лет на 10 :)
2. Глеб Шрамко (DasIsFantastich) 22.09.16 22:53
Делал для себя, поэтому не смотрел на то что 7-ка - динозавр.
Ездил в этом году в Саратов, так там у крупной региональной сети до сих пор стоит....
Пользуясь случаем, хочу поблагодарить разработчиков 1cpp и сопутствующего функционала! :)
Без этого чуда все было бы совсем по-другому и, конечно, % компаний, в которых она до сих пор работала, был бы совсем другим...
3. Дмитрий Коваленко (dvk09) 30.09.16 11:18
Скинь посмотреть на мыло плиз))
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа