ПриПрокручиванииАрг.НовоеЗначение (ScrollEventArgs.NewValue) Свойство

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

Перем Ф;

Процедура ГоризонтальнаяПрокрутка1_ПриПрокручивании() Экспорт
	ПриПрокручиванииАрг1 = Ф.ПриПрокручиванииАрг();
	Сообщить("ПриПрокручиванииАрг1.НовоеЗначение = " + ПриПрокручиванииАрг1.НовоеЗначение);
	Сообщить("ПриПрокручиванииАрг1.Ориентация = " + ПриПрокручиванииАрг1.Ориентация);
	Сообщить("ПриПрокручиванииАрг1.СтароеЗначение = " + ПриПрокручиванииАрг1.СтароеЗначение);
	Сообщить("ПриПрокручиванииАрг1.ТипСобытия = " + ПриПрокручиванииАрг1.ТипСобытия);
	Сообщить("==============================================================");
КонецПроцедуры

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

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

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

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

Перем Ф;

Процедура ГоризонтальнаяПрокрутка1_ПриПрокручивании() Экспорт
	ПриПрокручиванииАрг1 = Ф.ПриПрокручиванииАрг();
	// Сообщить("ПриПрокручиванииАрг1.НовоеЗначение = " + ПриПрокручиванииАрг1.НовоеЗначение);
	// Сообщить("ПриПрокручиванииАрг1.Ориентация = " + ПриПрокручиванииАрг1.Ориентация);
	// Сообщить("ПриПрокручиванииАрг1.СтароеЗначение = " + ПриПрокручиванииАрг1.СтароеЗначение);
	// Сообщить("ПриПрокручиванииАрг1.ТипСобытия = " + ПриПрокручиванииАрг1.ТипСобытия);
	// Сообщить("==============================================================");
КонецПроцедуры

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

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

Сообщить(?(
Истина
, "", "!!! ") + "ПриПрокручиванииАрг.НовоеЗначение (ScrollEventArgs.NewValue) Свойство" + " " + ТекущаяДата());