Scroll Property

Использование

Чтение и запись.

Значение

Возвращает или задает код для выполнения, при перемещении ползунка полосы прокрутки, с помощью мыши или клавиатурой.

Примечание

Пример

ГоризонтальнаяПрокрутка1.ПриПрокручивании = Ф.Действие(ЭтотОбъект, "ГоризонтальнаяПрокрутка1_ПриПрокручивании");

Полный пример кода

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

Перем Ф, Панель14, Надпись14, Надпись17, ВертикальнаяПрокрутка1, ГоризонтальнаяПрокрутка1;

Процедура ВертикальнаяПрокрутка1_ПриПрокручивании() Экспорт
	Панель14.Высота = ВертикальнаяПрокрутка1.Значение * 3.0;
	Надпись14.Текст = "" + ВертикальнаяПрокрутка1.Значение;
КонецПроцедуры

Процедура ГоризонтальнаяПрокрутка1_ПриПрокручивании() Экспорт
	Панель14.Ширина = ГоризонтальнаяПрокрутка1.Значение * 3.9;
	Надпись17.Текст = "" + ГоризонтальнаяПрокрутка1.Значение;
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Ширина = 900;
Форма1.Высота = 400;
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

ВертикальнаяПрокрутка1 = Форма1.ЭлементыУправления.Добавить(Ф.ВертикальнаяПрокрутка());
ВертикальнаяПрокрутка1.Положение = Ф.Точка(20, 20);
ВертикальнаяПрокрутка1.Размер = Ф.Размер(25, Форма1.Высота - 80); 
ВертикальнаяПрокрутка1.УстановитьГраницы(20, 20, 25, Форма1.Высота - 80); 
ВертикальнаяПрокрутка1.Минимум = 0; 
ВертикальнаяПрокрутка1.Максимум = 100; 
ВертикальнаяПрокрутка1.БольшоеИзменение = 1; // задаем равным 1 для возможности достижения ползунком максимума
ВертикальнаяПрокрутка1.ПриПрокручивании = Ф.Действие(ЭтотОбъект, "ВертикальнаяПрокрутка1_ПриПрокручивании"); 

ГоризонтальнаяПрокрутка1 = Форма1.ЭлементыУправления.Добавить(Ф.ГоризонтальнаяПрокрутка());
ГоризонтальнаяПрокрутка1.Положение = Ф.Точка(100, ВертикальнаяПрокрутка1.Верх);
ГоризонтальнаяПрокрутка1.Размер = Ф.Размер(ВертикальнаяПрокрутка1.Высота, 20);
ГоризонтальнаяПрокрутка1.ПриПрокручивании = Ф.Действие(ЭтотОбъект, "ГоризонтальнаяПрокрутка1_ПриПрокручивании"); 
ГоризонтальнаяПрокрутка1.Минимум = 0; 
ГоризонтальнаяПрокрутка1.Максимум = 100;
ГоризонтальнаяПрокрутка1.БольшоеИзменение = 1;

Надпись13 = Форма1.ЭлементыУправления.Добавить(Ф.Надпись());
Надпись13.Положение = Ф.Точка(ВертикальнаяПрокрутка1.Право + 20, 70);
Надпись13.Размер = Ф.Размер(400, 20); 
Надпись13.Текст = "Позиция вертикальной прокрутки (Min = " + ВертикальнаяПрокрутка1.Минимум + ", Max = " + ВертикальнаяПрокрутка1.Максимум + "):";

Панель14 = Форма1.ЭлементыУправления.Добавить(Ф.Панель());
Панель14.Центр();
Панель14.Правее(Надпись13, 5);
Панель14.Верх = ГоризонтальнаяПрокрутка1.Верх;
Панель14.СтильГраницы = Ф.СтильГраницы.Трехмерная;
Панель14.Ширина = ГоризонтальнаяПрокрутка1.Значение;
Панель14.Высота = ВертикальнаяПрокрутка1.Значение;
Панель14.ЦветФона = Ф.Цвет().МорскаяВолна;

Надпись14 = Форма1.ЭлементыУправления.Добавить(Ф.Надпись());
Надпись14.Положение = Ф.Точка(Надпись13.Лево + 20, Надпись13.Низ + 10);
Надпись14.Размер = Ф.Размер(250, 25); 
Надпись14.Текст = "" + ВертикальнаяПрокрутка1.Значение;
Надпись14.Шрифт = Ф.Шрифт(, 12, ); 

Надпись16 = Форма1.ЭлементыУправления.Добавить(Ф.Надпись());
Надпись16.Положение = Ф.Точка(ВертикальнаяПрокрутка1.Право + 20, Надпись14.Низ + 30);
Надпись16.Размер = Ф.Размер(Надпись13.Ширина, 20); 
Надпись16.Текст = "Позиция горизонтальной прокрутки (Min = " + ГоризонтальнаяПрокрутка1.Минимум + ", Max = " + ГоризонтальнаяПрокрутка1.Максимум + "):";

Надпись17 = Форма1.ЭлементыУправления.Добавить(Ф.Надпись());
Надпись17.Положение = Ф.Точка(Надпись13.Лево + 20, Надпись16.Низ + 10);
Надпись17.Размер = Ф.Размер(250, 25); 
Надпись17.Текст = "" + ГоризонтальнаяПрокрутка1.Значение;
Надпись17.Шрифт = Ф.Шрифт(, 12, );

ГоризонтальнаяПрокрутка1.Значение = 60; // задаем после установки управляемых свойств
ВертикальнаяПрокрутка1.Значение = 40;

Надпись14.Текст = "" + ВертикальнаяПрокрутка1.Значение;
Надпись17.Текст = "" + ГоризонтальнаяПрокрутка1.Значение;
Панель14.Высота = ВертикальнаяПрокрутка1.Значение * 3.0;
Панель14.Ширина = ГоризонтальнаяПрокрутка1.Значение * 3.9;

Ф.ЗапуститьОбработкуСобытий();

Тестовый код

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

Перем Ф, Панель14, Надпись14, Надпись17, ВертикальнаяПрокрутка1, ГоризонтальнаяПрокрутка1;

Процедура ВертикальнаяПрокрутка1_ПриПрокручивании() Экспорт
	Панель14.Высота = ВертикальнаяПрокрутка1.Значение * 3.0;
	Надпись14.Текст = "" + ВертикальнаяПрокрутка1.Значение;
КонецПроцедуры

Процедура ГоризонтальнаяПрокрутка1_ПриПрокручивании() Экспорт
	Панель14.Ширина = ГоризонтальнаяПрокрутка1.Значение * 3.9;
	Надпись17.Текст = "" + ГоризонтальнаяПрокрутка1.Значение;
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Ширина = 900;
Форма1.Высота = 400;
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

ВертикальнаяПрокрутка1 = Форма1.ЭлементыУправления.Добавить(Ф.ВертикальнаяПрокрутка());
ВертикальнаяПрокрутка1.Положение = Ф.Точка(20, 20);
ВертикальнаяПрокрутка1.Размер = Ф.Размер(25, Форма1.Высота - 80); 
ВертикальнаяПрокрутка1.УстановитьГраницы(20, 20, 25, Форма1.Высота - 80); 
ВертикальнаяПрокрутка1.Минимум = 0; 
ВертикальнаяПрокрутка1.Максимум = 100; 
ВертикальнаяПрокрутка1.БольшоеИзменение = 1; // задаем равным 1 для возможности достижения ползунком максимума
ВертикальнаяПрокрутка1.ПриПрокручивании = Ф.Действие(ЭтотОбъект, "ВертикальнаяПрокрутка1_ПриПрокручивании"); 

ГоризонтальнаяПрокрутка1 = Форма1.ЭлементыУправления.Добавить(Ф.ГоризонтальнаяПрокрутка());
ГоризонтальнаяПрокрутка1.Положение = Ф.Точка(100, ВертикальнаяПрокрутка1.Верх);
ГоризонтальнаяПрокрутка1.Размер = Ф.Размер(ВертикальнаяПрокрутка1.Высота, 20);
ГоризонтальнаяПрокрутка1.ПриПрокручивании = Ф.Действие(ЭтотОбъект, "ГоризонтальнаяПрокрутка1_ПриПрокручивании"); 
ГоризонтальнаяПрокрутка1.Минимум = 0; 
ГоризонтальнаяПрокрутка1.Максимум = 100;
ГоризонтальнаяПрокрутка1.БольшоеИзменение = 1;

Надпись13 = Форма1.ЭлементыУправления.Добавить(Ф.Надпись());
Надпись13.Положение = Ф.Точка(ВертикальнаяПрокрутка1.Право + 20, 70);
Надпись13.Размер = Ф.Размер(400, 20); 
Надпись13.Текст = "Позиция вертикальной прокрутки (Min = " + ВертикальнаяПрокрутка1.Минимум + ", Max = " + ВертикальнаяПрокрутка1.Максимум + "):";

Панель14 = Форма1.ЭлементыУправления.Добавить(Ф.Панель());
Панель14.Центр();
Панель14.Правее(Надпись13, 5);
Панель14.Верх = ГоризонтальнаяПрокрутка1.Верх;
Панель14.СтильГраницы = Ф.СтильГраницы.Трехмерная;
Панель14.Ширина = ГоризонтальнаяПрокрутка1.Значение;
Панель14.Высота = ВертикальнаяПрокрутка1.Значение;
Панель14.ЦветФона = Ф.Цвет().МорскаяВолна;

Надпись14 = Форма1.ЭлементыУправления.Добавить(Ф.Надпись());
Надпись14.Положение = Ф.Точка(Надпись13.Лево + 20, Надпись13.Низ + 10);
Надпись14.Размер = Ф.Размер(250, 25); 
Надпись14.Текст = "" + ВертикальнаяПрокрутка1.Значение;
Надпись14.Шрифт = Ф.Шрифт(, 12, ); 

Надпись16 = Форма1.ЭлементыУправления.Добавить(Ф.Надпись());
Надпись16.Положение = Ф.Точка(ВертикальнаяПрокрутка1.Право + 20, Надпись14.Низ + 30);
Надпись16.Размер = Ф.Размер(Надпись13.Ширина, 20); 
Надпись16.Текст = "Позиция горизонтальной прокрутки (Min = " + ГоризонтальнаяПрокрутка1.Минимум + ", Max = " + ГоризонтальнаяПрокрутка1.Максимум + "):";

Надпись17 = Форма1.ЭлементыУправления.Добавить(Ф.Надпись());
Надпись17.Положение = Ф.Точка(Надпись13.Лево + 20, Надпись16.Низ + 10);
Надпись17.Размер = Ф.Размер(250, 25); 
Надпись17.Текст = "" + ГоризонтальнаяПрокрутка1.Значение;
Надпись17.Шрифт = Ф.Шрифт(, 12, );

ГоризонтальнаяПрокрутка1.Значение = 60; // задаем после установки управляемых свойств
ВертикальнаяПрокрутка1.Значение = 40;

Надпись14.Текст = "" + ВертикальнаяПрокрутка1.Значение;
Надпись17.Текст = "" + ГоризонтальнаяПрокрутка1.Значение;
Панель14.Высота = ВертикальнаяПрокрутка1.Значение * 3.0;
Панель14.Ширина = ГоризонтальнаяПрокрутка1.Значение * 3.9;

Сообщить(?(
ГоризонтальнаяПрокрутка1.ПриПрокручивании.ИмяМетода = "ГоризонтальнаяПрокрутка1_ПриПрокручивании"
, "", "!!! ") + "ПолосаПрокрутки.ПриПрокручивании (ScrollBar.Scroll) Свойство" + " " + ТекущаяДата());

ПолосаПрокрутки.ПриПрокручивании (ScrollBar.Scroll) Свойство

Использование

Значение

Примечание

Пример

Смотрите также