Элемент.КонецПеретаскивания (Element.DragEnd) Событие

Копировать     Выделить всё

Перем ДФ, Блок;

Процедура НадЦелью() Экспорт
	Сообщить("НадЦелью " + ТекущаяУниверсальнаяДатаВМиллисекундах());
КонецПроцедуры

Процедура ЦельПокинута() Экспорт
	Сообщить("ЦельПокинута " + ТекущаяУниверсальнаяДатаВМиллисекундах());
КонецПроцедуры

Процедура Бросить() Экспорт
	Сообщить("Бросить " + ТекущаяУниверсальнаяДатаВМиллисекундах());
	ДФ.АргументыСобытия.Отправитель.ДобавитьДочерний(Блок);
КонецПроцедуры

Процедура НачалоПеретаскивания() Экспорт
	Сообщить("НачалоПеретаскивания " + ТекущаяУниверсальнаяДатаВМиллисекундах());
КонецПроцедуры

Процедура КонецПеретаскивания() Экспорт
	Сообщить("КонецПеретаскивания " + ТекущаяУниверсальнаяДатаВМиллисекундах());
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\DeclarativeForms\DeclarativeForms\bin\Debug\DeclarativeForms.dll");
ДФ = Новый ДекларативныеФормы();
Форма1 = ДФ.Форма;
Форма1.НачальнаяШирина = 500;
Форма1.НачальнаяВысота = 480;

Форма1.Контент.Стиль.РазмерШрифта = 30;
Форма1.Контент.Стиль.ЖирностьШрифта = "700";
Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif";
Форма1.Заголовок = "Перетащите мышью";

Блок = Форма1.ДобавитьДочерний(ДФ.Блок());
Блок.Текст = "Блок";
Блок.Перетаскиваемый = Истина;
Блок.Стиль.Ширина = 150;
Блок.Стиль.Высота = 150;
Фон1 = ДФ.Фон();
Фон1.ЦветФона = ДФ.Цвет.Фиолетовый;
Блок.Стиль.Фон = Фон1;
Блок.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина);
Блок.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр;
Блок.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания");
Блок.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания");

Форма1.ДобавитьДочерний(ДФ.Абзац());

Цель = Форма1.ДобавитьДочерний(ДФ.Блок());
Цель.Текст = "Перетащи блок сюда";
Цель.Стиль.Ширина = 200;
Цель.Стиль.Высота = 200;
Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый);
Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина);
Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10);
Цель.НадЦелью = ДФ.Действие(ЭтотОбъект, "НадЦелью");
Цель.ЦельПокинута = ДФ.Действие(ЭтотОбъект, "ЦельПокинута");
Цель.Бросить = ДФ.Действие(ЭтотОбъект, "Бросить");

Форма1.Открыть();