Индикатор прокрутки

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

Перем ДФ, Абзац1, Форма1, БлокИндикаторПрокрутки;

Процедура МышьНадЭлементом() Экспорт
	Параметр = ДФ.АргументыСобытия.Параметр;
	Параметр["ЭтаСсылка"].Стиль.ЦветФона = ДФ.Цвет(0, 0, 0);
КонецПроцедуры

Процедура МышьПокинулаЭлемент() Экспорт
	Параметр = ДФ.АргументыСобытия.Параметр;
	Параметр["ЭтаСсылка"].Стиль.ЦветФона = ДФ.Цвет.ТемноСерый;
КонецПроцедуры

Процедура Нажатие() Экспорт
	Абзац1.Текст = "Нажатие " + ДФ.АргументыСобытия.Параметр["ЭтаСсылка"].Источник + " " + ТекущаяУниверсальнаяДатаВМиллисекундах();
КонецПроцедуры

Процедура Форма1_ПриПрокручивании() Экспорт
	// Сообщить("Прокручено = " + ДФ.АргументыСобытия.Прокручено);
	// Сообщить("Прокручено = " + Форма1.Прокручено);
	БлокИндикаторПрокрутки.Стиль.Ширина = Строка(Форма1.Прокручено) + "%";
КонецПроцедуры

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

Контент = Форма1.Контент;
Контент.Стиль.Отступ = ДФ.Отступ(0, 0, 0, 0, Истина);
Контент.Стиль.РазмерШрифта = 28;

Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок());
Блок1.Стиль.Позиция = ДФ.Позиция.Фиксировано;
Блок1.Стиль.Верх = 0;
Блок1.Стиль.Ширина = "100%";
Блок1.Стиль.ЦветФона = ДФ.Цвет(241, 241, 241);

Заголовок2 = Блок1.ДобавитьДочерний(ДФ.Заголовок2());
Заголовок2.Текст = "Индикатор прокрутки";
Заголовок2.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр;

БлокКонтейнерИндикатора = Блок1.ДобавитьДочерний(ДФ.Блок());
БлокКонтейнерИндикатора.Стиль.Ширина = "100%";
БлокКонтейнерИндикатора.Стиль.Высота = 8;
БлокКонтейнерИндикатора.Стиль.Фон = ДФ.Цвет(204, 204, 204);

БлокИндикаторПрокрутки = БлокКонтейнерИндикатора.ДобавитьДочерний(ДФ.Блок());
БлокИндикаторПрокрутки.Стиль.Высота = 8;
БлокИндикаторПрокрутки.Стиль.Фон = ДФ.Цвет(76, 175, 80);
БлокИндикаторПрокрутки.Стиль.Ширина = "0%";

БлокКонтент = Форма1.ДобавитьДочерний(ДФ.Блок());
БлокКонтент.Стиль.Ширина = "80%";
БлокКонтент.Стиль.Отступ = "50px auto 0 auto";
БлокКонтент.Стиль.Заполнение = ДФ.Заполнение(100, 0, 0, 0);

Заголовок3 = БлокКонтент.ДобавитьДочерний(ДФ.Заголовок3());
Заголовок3.Текст = "Прокрутите вниз, чтобы увидеть эффект";

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

Абзац2 = Форма1.ДобавитьДочерний(ДФ.Абзац());
Абзац2.Текст = "– Вот было бы здорово! – воскликнула Алиса. – Они бы веселились до самой осени. А потом сложили бы листочки на землю и заснули на всю зиму. 
|Послушай, – обратилась она вдруг к котенку, – а в шахматы играть ты умеешь? Ну что же тут смешного? Обычное дело. И потом, я сама видела, как ты внимательно следишь за игрой в шахматы. 
|На днях, когда я сказала: «Шах!» – ты даже мурлыкнул. А правда же отличный был ход? Если бы не этот противный конь, я бы непременно выиграла. 
|Он так незаметно подкрался! Слушай, котик, а давай играть КАК БУДТО!";

Абзац3 = Форма1.ДобавитьДочерний(ДФ.Абзац());
Абзац3.Текст = "Алиса обожала эти слова – КАК БУДТО. С ними можно было играть во что угодно. 
|Вчера, например, она предложила сестре: «Давай играть, КАК БУДТО мы шахматные Короли и Королевы». 
|Но сестра не понимает никаких КАК БУДТО. 
|«Это невозможно, – сказала она рассудительно. – Нас ведь всего две, а королей и королев – четыре». 
|«Ну и что! – возразила Алиса. – Это же КАК БУДТО. Ты будешь одной из Королев, а я КАК БУДТО сразу всеми остальными».";

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