Форма.РазмерИзменен (Form.Resize) Событие

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

Перем ДФ, Кнопка5, Абзац1;

Процедура Свойство() Экспорт
	Абзац1.Текст = "СмещениеЛево = " + Кнопка5.СмещениеЛево + "
	|СмещениеВерх = " + Кнопка5.СмещениеВерх + " 
	|СмещениеШирина = " + Кнопка5.СмещениеШирина + " 
	|СмещениеВысота = " + Кнопка5.СмещениеВысота + " 
	|t = " + ТекущаяУниверсальнаяДатаВМиллисекундах();
КонецПроцедуры

Процедура СмещениеЛево() Экспорт
	ДФ.ПолучитьСвойство(Кнопка5, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство"));
КонецПроцедуры
Процедура СмещениеВерх() Экспорт
	ДФ.ПолучитьСвойство(Кнопка5, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство"));
КонецПроцедуры
Процедура СмещениеШирина() Экспорт
	ДФ.ПолучитьСвойство(Кнопка5, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство"));
КонецПроцедуры
Процедура СмещениеВысота() Экспорт
	ДФ.ПолучитьСвойство(Кнопка5, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство"));
КонецПроцедуры

Процедура Форма1_Загружена() Экспорт
	СмещениеЛево();
	СмещениеВерх();
	СмещениеШирина();
	СмещениеВысота();
КонецПроцедуры

Процедура Кнопка5_Нажатие() Экспорт
	СмещениеЛево();
	СмещениеВерх();
	СмещениеШирина();
	СмещениеВысота();
КонецПроцедуры

Процедура Форма1_РазмерИзменен() Экспорт
	// Сообщить("Форма1_РазмерИзменен " + ДФ.АргументыСобытия.ШиринаОкна + " х " + ДФ.АргументыСобытия.ВысотаОкна);
	Кнопка5_Нажатие();
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\DeclarativeForms\DeclarativeForms\bin\Debug\DeclarativeForms.dll");
ДФ = Новый ДекларативныеФормы();
Форма1 = ДФ.Форма;
Форма1.НачальнаяШирина = 300;
Форма1.НачальнаяВысота = 500;
Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена");
Форма1.РазмерИзменен = ДФ.Действие(ЭтотОбъект, "Форма1_РазмерИзменен");
Форма1.Позиция = ДФ.ПозицияФормы.Центр;

Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац());
Абзац1.Текст = "Положение Объект";

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

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

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

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

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

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

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