ПанельВкладок.ИндексВыбранногоИзменен (TabControl.SelectedIndexChanged) Свойство

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

Перем Ф, ПанельВкладок1;

Процедура ПанельВкладок1_ИндексВыбранногоИзменен() Экспорт
	Сообщить("ПанельВкладок1.ИндексВыбранного = " + ПанельВкладок1.ИндексВыбранного);
КонецПроцедуры

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

ПанельВкладок1 = Ф.ПанельВкладок();
ПанельВкладок1.Родитель = Форма1;
ПанельВкладок1.Ширина = 250;
ПанельВкладок1.ИндексВыбранногоИзменен = Ф.Действие(ЭтотОбъект, "ПанельВкладок1_ИндексВыбранногоИзменен");
Вкладки1 = ПанельВкладок1.Вкладки;

Вкладка1 = Вкладки1.Добавить(Ф.Вкладка("Вкладка1"));
Вкладка2 = Вкладки1.Добавить(Ф.Вкладка("Вкладка2"));
Вкладка3 = Вкладки1.Добавить(Ф.Вкладка("Вкладка3"));

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

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

Перем Ф, ПанельВкладок1, ИндексВыбранного;

Процедура ПанельВкладок1_ИндексВыбранногоИзменен() Экспорт
	// Сообщить("ПанельВкладок1.ИндексВыбранного = " + ПанельВкладок1.ИндексВыбранного);
	ИндексВыбранного = ПанельВкладок1.ИндексВыбранного;
КонецПроцедуры

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

ПанельВкладок1 = Ф.ПанельВкладок();
ПанельВкладок1.Родитель = Форма1;
ПанельВкладок1.Ширина = 250;
ПанельВкладок1.ИндексВыбранногоИзменен = Ф.Действие(ЭтотОбъект, "ПанельВкладок1_ИндексВыбранногоИзменен");
Вкладки1 = ПанельВкладок1.Вкладки;

Если Ф.ПлатформаWin Тогда
	Вкладка1 = Вкладки1.Добавить(Ф.Вкладка("Вкладка1"));
	Вкладка2 = Вкладки1.Добавить(Ф.Вкладка("Вкладка2"));
	Вкладка3 = Вкладки1.Добавить(Ф.Вкладка("Вкладка3"));

	Курсор1 = Ф.Курсор();
	Точка1 = Форма1.Положение;
	Курсор1.Позиция = Ф.Точка(Точка1.Икс + 125, Точка1.Игрек + 45);

	Ф.НажатьКнопкуМыши(Ф.ФлагиМыши.ЛеваяВниз + Ф.ФлагиМыши.ЛеваяВверх);

	Сообщить(?(ИндексВыбранного = 1, "", "!!! ") + "ПанельВкладок.ИндексВыбранногоИзменен (TabControl.SelectedIndexChanged) Свойство" + " " + ТекущаяДата());
Иначе
	ИндексВыбранного = -2;
	Ф.ВызватьСобытие(ПанельВкладок1, "ИндексВыбранногоИзменен");

	Сообщить(?(ИндексВыбранного = -1, "", "!!! ") + "ПанельВкладок.ИндексВыбранногоИзменен (TabControl.SelectedIndexChanged) Свойство" + " " + ТекущаяДата());
КонецЕсли;