Перетаскиваемый блок

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

Перем ДФ, Красный, Синий, Зеленый;

Процедура Кнопка1_Нажатие() Экспорт
	Красный.Перетаскиваемый = Истина;
КонецПроцедуры

Процедура Кнопка2_Нажатие() Экспорт
	Красный.Перетаскиваемый = Ложь;
КонецПроцедуры

Процедура Кнопка3_Нажатие() Экспорт
	Синий.Перетаскиваемый = Истина;
КонецПроцедуры

Процедура Кнопка4_Нажатие() Экспорт
	Синий.Перетаскиваемый = Ложь;
КонецПроцедуры

Процедура Кнопка5_Нажатие() Экспорт
	Зеленый.Перетаскиваемый = Истина;
КонецПроцедуры

Процедура Кнопка6_Нажатие() Экспорт
	Зеленый.Перетаскиваемый = Ложь;
КонецПроцедуры

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

Заголовок1 = Форма1.ДобавитьДочерний(ДФ.Заголовок3());
Заголовок1.Текст = "Перетаскиваемый элемент";
Заголовок1.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр;

Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац());
Абзац1.Текст = "Нажмите и удерживайте кнопку мыши при перетаскивании блока";

Кнопка1 = Форма1.ДобавитьДочерний(ДФ.Кнопка());
Кнопка1.Текст = "Красный 
|перетаскиваемый";
Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие");

Кнопка2 = Форма1.ДобавитьДочерний(ДФ.Кнопка());
Кнопка2.Текст = "Красный не
|перетаскиваемый";
Кнопка2.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка2_Нажатие");

Форма1.ДобавитьДочерний(ДФ.Абзац()).Стиль.Высота = 10;

Кнопка3 = Форма1.ДобавитьДочерний(ДФ.Кнопка());
Кнопка3.Текст = "Синий 
|перетаскиваемый";
Кнопка3.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка3_Нажатие");

Кнопка4 = Форма1.ДобавитьДочерний(ДФ.Кнопка());
Кнопка4.Текст = "Синий не
|перетаскиваемый";
Кнопка4.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка4_Нажатие");

Форма1.ДобавитьДочерний(ДФ.Абзац()).Стиль.Высота = 10;

Кнопка5 = Форма1.ДобавитьДочерний(ДФ.Кнопка());
Кнопка5.Текст = "Зеленый 
|перетаскиваемый";
Кнопка5.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка5_Нажатие");

Кнопка6 = Форма1.ДобавитьДочерний(ДФ.Кнопка());
Кнопка6.Текст = "Зеленый не
|перетаскиваемый";
Кнопка6.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка6_Нажатие");

Стиль1 = ДФ.Стиль();
Стиль1.Позиция = ДФ.Позиция.Абсолютно;
Стиль1.Ширина = 100;
Стиль1.Высота = 100;
Стиль1.РадиусГраницы = "50%";

Красный = Форма1.ДобавитьДочерний(ДФ.Блок());
Красный.Стиль.Копировать(Стиль1);
Красный.Стиль.ЦветФона = ДФ.Цвет.Красный;
Красный.Стиль.Верх = 80;
Красный.Стиль.Лево = 330;

Синий = Форма1.ДобавитьДочерний(ДФ.Блок());
Синий.Стиль.Копировать(Стиль1);
Синий.Стиль.ЦветФона = ДФ.Цвет.Синий;
Синий.Стиль.Верх = 140;
Синий.Стиль.Лево = 450;

Зеленый = Форма1.ДобавитьДочерний(ДФ.Блок());
Зеленый.Стиль.Копировать(Стиль1);
Зеленый.Стиль.ЦветФона = ДФ.Цвет.Зеленый;
Зеленый.Стиль.Верх = 200;
Зеленый.Стиль.Лево = 570;

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