OneScriptForms.FindCenter Method

Синтаксис

НайтиЦентр(<Объект>)

Параметры

Объект (обязательный): Тип: Произвольный.; Элемент управления, центр которого необходимо получить.

Возвращаемое значение

Тип: Точка (Point).

Описание

Возвращает объект Точка (Point) соответствующий центру переданного в параметре объекта.

Примечание

Важно: Точка быдет иметь экранные координаты.

Пример

Позиция = Ф.НайтиЦентр(Кнопка4);

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

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

Перем Ф, Форма1, МышьАрг1_Игрек, Форма1Нажата, Панель1Нажата, Кнопка2Нажата;
Перем Панель2Нажата, Кнопка3Нажата, Панель3Нажата, Кнопка4Нажата, Кнопка1Нажата;

Функция Форма1_ПриНажатииКнопкиМыши() Экспорт
	МышьАрг1 = Ф.АргументыСобытия;
	МышьАрг1_Игрек = МышьАрг1.Игрек;
	Сообщить("Форма1_ПриНажатииКнопкиМыши");
	Сообщить("МышьАрг1.Игрек = " + МышьАрг1.Игрек);
	Сообщить("МышьАрг1.Икс = " + МышьАрг1.Икс);
	Сообщить("МышьАрг1.Кнопка = " + МышьАрг1.Кнопка);
	Сообщить("МышьАрг1.Нажатия = " + МышьАрг1.Нажатия);
	Сообщить("===============================");
	Форма1Нажата = Истина;
	Ф.ОкноСообщений().Показать("Форма1_ПриНажатииКнопкиМыши", "", Ф.КнопкиОкнаСообщений.ОКОтмена, Ф.ЗначокОкнаСообщений.Восклицание);
КонецФункции

Функция Кнопка1_ПриНажатииКнопкиМыши() Экспорт
	МышьАрг1 = Ф.АргументыСобытия;
	МышьАрг1_Игрек = МышьАрг1.Игрек;
	Сообщить("Кнопка1_ПриНажатииКнопкиМыши");
	Сообщить("МышьАрг1.Игрек = " + МышьАрг1.Игрек);
	Сообщить("МышьАрг1.Икс = " + МышьАрг1.Икс);
	Сообщить("МышьАрг1.Кнопка = " + МышьАрг1.Кнопка);
	Сообщить("МышьАрг1.Нажатия = " + МышьАрг1.Нажатия);
	Сообщить("===============================");
	Кнопка1Нажата = Истина;
	Ф.ОкноСообщений().Показать("Кнопка1_ПриНажатииКнопкиМыши", "", Ф.КнопкиОкнаСообщений.ОКОтмена, Ф.ЗначокОкнаСообщений.Восклицание);
КонецФункции

Функция Панель1_ПриНажатииКнопкиМыши() Экспорт
	МышьАрг1 = Ф.АргументыСобытия;
	МышьАрг1_Игрек = МышьАрг1.Игрек;
	Сообщить("Панель1_ПриНажатииКнопкиМыши");
	Сообщить("МышьАрг1.Игрек = " + МышьАрг1.Игрек);
	Сообщить("МышьАрг1.Икс = " + МышьАрг1.Икс);
	Сообщить("МышьАрг1.Кнопка = " + МышьАрг1.Кнопка);
	Сообщить("МышьАрг1.Нажатия = " + МышьАрг1.Нажатия);
	Сообщить("===============================");
	Панель1Нажата = Истина;
	Ф.ОкноСообщений().Показать("Панель1_ПриНажатииКнопкиМыши", "", Ф.КнопкиОкнаСообщений.ОКОтмена, Ф.ЗначокОкнаСообщений.Восклицание);
КонецФункции

Функция Кнопка2_ПриНажатииКнопкиМыши() Экспорт
	МышьАрг1 = Ф.АргументыСобытия;
	МышьАрг1_Игрек = МышьАрг1.Игрек;
	Сообщить("Кнопка2_ПриНажатииКнопкиМыши");
	Сообщить("МышьАрг1.Игрек = " + МышьАрг1.Игрек);
	Сообщить("МышьАрг1.Икс = " + МышьАрг1.Икс);
	Сообщить("МышьАрг1.Кнопка = " + МышьАрг1.Кнопка);
	Сообщить("МышьАрг1.Нажатия = " + МышьАрг1.Нажатия);
	Сообщить("===============================");
	Кнопка2Нажата = Истина;
	Ф.ОкноСообщений().Показать("Кнопка2_ПриНажатииКнопкиМыши", "", Ф.КнопкиОкнаСообщений.ОКОтмена, Ф.ЗначокОкнаСообщений.Восклицание);
КонецФункции

Функция Панель2_ПриНажатииКнопкиМыши() Экспорт
	МышьАрг1 = Ф.АргументыСобытия;
	МышьАрг1_Игрек = МышьАрг1.Игрек;
	Сообщить("Панель2_ПриНажатииКнопкиМыши");
	Сообщить("МышьАрг1.Игрек = " + МышьАрг1.Игрек);
	Сообщить("МышьАрг1.Икс = " + МышьАрг1.Икс);
	Сообщить("МышьАрг1.Кнопка = " + МышьАрг1.Кнопка);
	Сообщить("МышьАрг1.Нажатия = " + МышьАрг1.Нажатия);
	Сообщить("===============================");
	Панель2Нажата = Истина;
	Ф.ОкноСообщений().Показать("Панель2_ПриНажатииКнопкиМыши", "", Ф.КнопкиОкнаСообщений.ОКОтмена, Ф.ЗначокОкнаСообщений.Восклицание);
КонецФункции

Функция Кнопка3_ПриНажатииКнопкиМыши() Экспорт
	МышьАрг1 = Ф.АргументыСобытия;
	МышьАрг1_Игрек = МышьАрг1.Игрек;
	Сообщить("Кнопка3_ПриНажатииКнопкиМыши");
	Сообщить("МышьАрг1.Игрек = " + МышьАрг1.Игрек);
	Сообщить("МышьАрг1.Икс = " + МышьАрг1.Икс);
	Сообщить("МышьАрг1.Кнопка = " + МышьАрг1.Кнопка);
	Сообщить("МышьАрг1.Нажатия = " + МышьАрг1.Нажатия);
	Сообщить("===============================");
	Кнопка3Нажата = Истина;
	Ф.ОкноСообщений().Показать("Кнопка3_ПриНажатииКнопкиМыши", "", Ф.КнопкиОкнаСообщений.ОКОтмена, Ф.ЗначокОкнаСообщений.Восклицание);
КонецФункции

Функция Панель3_ПриНажатииКнопкиМыши() Экспорт
	МышьАрг1 = Ф.АргументыСобытия;
	МышьАрг1_Игрек = МышьАрг1.Игрек;
	Сообщить("Панель3_ПриНажатииКнопкиМыши");
	Сообщить("МышьАрг1.Игрек = " + МышьАрг1.Игрек);
	Сообщить("МышьАрг1.Икс = " + МышьАрг1.Икс);
	Сообщить("МышьАрг1.Кнопка = " + МышьАрг1.Кнопка);
	Сообщить("МышьАрг1.Нажатия = " + МышьАрг1.Нажатия);
	Сообщить("===============================");
	Панель3Нажата = Истина;
	Ф.ОкноСообщений().Показать("Панель3_ПриНажатииКнопкиМыши", "", Ф.КнопкиОкнаСообщений.ОКОтмена, Ф.ЗначокОкнаСообщений.Восклицание);
КонецФункции

Функция Кнопка4_ПриНажатииКнопкиМыши() Экспорт
	МышьАрг1 = Ф.АргументыСобытия;
	МышьАрг1_Игрек = МышьАрг1.Игрек;
	Сообщить("Кнопка4_ПриНажатииКнопкиМыши");
	Сообщить("МышьАрг1.Игрек = " + МышьАрг1.Игрек);
	Сообщить("МышьАрг1.Икс = " + МышьАрг1.Икс);
	Сообщить("МышьАрг1.Кнопка = " + МышьАрг1.Кнопка);
	Сообщить("МышьАрг1.Нажатия = " + МышьАрг1.Нажатия);
	Сообщить("===============================");
	Кнопка4Нажата = Истина;
	Ф.ОкноСообщений().Показать("Кнопка4_ПриНажатииКнопкиМыши", "", Ф.КнопкиОкнаСообщений.ОКОтмена, Ф.ЗначокОкнаСообщений.Восклицание);
КонецФункции

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

Кнопка1 = Форма1.ЭлементыУправления.Добавить(Ф.Кнопка());
Кнопка1.Границы = Ф.Прямоугольник(100, 20, 75, 25);
Кнопка1.ПриНажатииКнопкиМыши = Ф.Действие(ЭтотОбъект, "Кнопка1_ПриНажатииКнопкиМыши");

Панель1 = Ф.Панель();
Панель1.Родитель = Форма1;
Панель1.ЦветФона = Ф.Цвет("Розовый");
Панель1.Границы = Ф.Прямоугольник(50, 50, 500, 200);
Панель1.СтильГраницы = Ф.СтильГраницы.Трехмерная;
Панель1.ПриНажатииКнопкиМыши = Ф.Действие(ЭтотОбъект, "Панель1_ПриНажатииКнопкиМыши");

Кнопка2 = Панель1.ЭлементыУправления.Добавить(Ф.Кнопка());
Кнопка2.Границы = Ф.Прямоугольник(150, 10, 75, 25);
Кнопка2.ПриНажатииКнопкиМыши = Ф.Действие(ЭтотОбъект, "Кнопка2_ПриНажатииКнопкиМыши");

Панель2 = Ф.Панель();
Панель2.Родитель = Панель1;
Панель2.ЦветФона = Ф.Цвет("Голубой");
Панель2.Границы = Ф.Прямоугольник(10, 40, 300, 150);
Панель2.СтильГраницы = Ф.СтильГраницы.Трехмерная;
Панель2.ПриНажатииКнопкиМыши = Ф.Действие(ЭтотОбъект, "Панель2_ПриНажатииКнопкиМыши");

Кнопка3 = Панель2.ЭлементыУправления.Добавить(Ф.Кнопка());
Кнопка3.Границы = Ф.Прямоугольник(10, 10, 75, 25);
Кнопка3.ПриНажатииКнопкиМыши = Ф.Действие(ЭтотОбъект, "Кнопка3_ПриНажатииКнопкиМыши");

Панель3 = Ф.Панель();
Панель3.Родитель = Панель2;
Панель3.ЦветФона = Ф.Цвет("БледноЗеленый");
Панель3.Границы = Ф.Прямоугольник(10, 40, 150, 100);
Панель3.СтильГраницы = Ф.СтильГраницы.Трехмерная;
Панель3.ПриНажатииКнопкиМыши = Ф.Действие(ЭтотОбъект, "Панель3_ПриНажатииКнопкиМыши");

Кнопка4 = Панель3.ЭлементыУправления.Добавить(Ф.Кнопка());
Кнопка4.Границы = Ф.Прямоугольник(30, 10, 75, 25);
Кнопка4.ПриНажатииКнопкиМыши = Ф.Действие(ЭтотОбъект, "Кнопка4_ПриНажатииКнопкиМыши");

Форма1Нажата = Ложь;
Кнопка1Нажата = Ложь;
Панель1Нажата = Ложь;
Кнопка2Нажата = Ложь;
Панель2Нажата = Ложь;
Кнопка3Нажата = Ложь;
Панель3Нажата = Ложь;
Кнопка4Нажата = Ложь;

Позиция = Ф.НайтиЦентр(Форма1);
Ф.Курсор().Позиция = Позиция;
Словарь0 = Ф.Словарь();
Словарь0.Добавить("Кнопка", (Ф.ФлагиМыши.ЛеваяВниз + Ф.ФлагиМыши.ЛеваяВверх));
Словарь0.Добавить("Нажатия", 1);
Словарь0.Добавить("Икс", Позиция.Икс);
Словарь0.Добавить("Игрек", Позиция.Игрек);
Ф.ВызватьСобытие(Форма1, "ПриНажатииКнопкиМыши", Словарь0);

Позиция = Ф.НайтиЦентр(Кнопка1);
Ф.Курсор().Позиция = Позиция;
Словарь1 = Ф.Словарь();
Словарь1.Добавить("Кнопка", (Ф.ФлагиМыши.ЛеваяВниз + Ф.ФлагиМыши.ЛеваяВверх));
Словарь1.Добавить("Нажатия", 1);
Словарь1.Добавить("Икс", Позиция.Икс);
Словарь1.Добавить("Игрек", Позиция.Игрек);
Ф.ВызватьСобытие(Кнопка1, "ПриНажатииКнопкиМыши", Словарь1);

Позиция = Ф.НайтиЦентр(Панель1);
Ф.Курсор().Позиция = Позиция;
Словарь2 = Ф.Словарь();
Словарь2.Добавить("Кнопка", (Ф.ФлагиМыши.ЛеваяВниз + Ф.ФлагиМыши.ЛеваяВверх));
Словарь2.Добавить("Нажатия", 1);
Словарь2.Добавить("Икс", Позиция.Икс);
Словарь2.Добавить("Игрек", Позиция.Игрек);
Ф.ВызватьСобытие(Панель1, "ПриНажатииКнопкиМыши", Словарь2);

Позиция = Ф.НайтиЦентр(Кнопка2);
Ф.Курсор().Позиция = Позиция;
Словарь3 = Ф.Словарь();
Словарь3.Добавить("Кнопка", (Ф.ФлагиМыши.ЛеваяВниз + Ф.ФлагиМыши.ЛеваяВверх));
Словарь3.Добавить("Нажатия", 1);
Словарь3.Добавить("Икс", Позиция.Икс);
Словарь3.Добавить("Игрек", Позиция.Игрек);
Ф.ВызватьСобытие(Кнопка2, "ПриНажатииКнопкиМыши", Словарь3);

Позиция = Ф.НайтиЦентр(Панель2);
Ф.Курсор().Позиция = Позиция;
Словарь4 = Ф.Словарь();
Словарь4.Добавить("Кнопка", (Ф.ФлагиМыши.ЛеваяВниз + Ф.ФлагиМыши.ЛеваяВверх));
Словарь4.Добавить("Нажатия", 1);
Словарь4.Добавить("Икс", Позиция.Икс);
Словарь4.Добавить("Игрек", Позиция.Игрек);
Ф.ВызватьСобытие(Панель2, "ПриНажатииКнопкиМыши", Словарь4);

Позиция = Ф.НайтиЦентр(Кнопка3);
Ф.Курсор().Позиция = Позиция;
Словарь5 = Ф.Словарь();
Словарь5.Добавить("Кнопка", (Ф.ФлагиМыши.ЛеваяВниз + Ф.ФлагиМыши.ЛеваяВверх));
Словарь5.Добавить("Нажатия", 1);
Словарь5.Добавить("Икс", Позиция.Икс);
Словарь5.Добавить("Игрек", Позиция.Игрек);
Ф.ВызватьСобытие(Кнопка3, "ПриНажатииКнопкиМыши", Словарь5);

Позиция = Ф.НайтиЦентр(Панель3);
Ф.Курсор().Позиция = Позиция;
Словарь6 = Ф.Словарь();
Словарь6.Добавить("Кнопка", (Ф.ФлагиМыши.ЛеваяВниз + Ф.ФлагиМыши.ЛеваяВверх));
Словарь6.Добавить("Нажатия", 1);
Словарь6.Добавить("Икс", Позиция.Икс);
Словарь6.Добавить("Игрек", Позиция.Игрек);
Ф.ВызватьСобытие(Панель3, "ПриНажатииКнопкиМыши", Словарь6);

Позиция = Ф.НайтиЦентр(Кнопка4);
Ф.Курсор().Позиция = Позиция;
Словарь1 = Ф.Словарь();
Словарь1.Добавить("Кнопка", (Ф.ФлагиМыши.ЛеваяВниз + Ф.ФлагиМыши.ЛеваяВверх));
Словарь1.Добавить("Нажатия", 1);
Словарь1.Добавить("Икс", Позиция.Икс);
Словарь1.Добавить("Игрек", Позиция.Игрек);
Ф.ВызватьСобытие(Кнопка4, "ПриНажатииКнопкиМыши", Словарь1);

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

Тестовый код

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

Перем Ф, Форма1, МышьАрг1_Игрек, Форма1Нажата, Панель1Нажата, Кнопка2Нажата;
Перем Панель2Нажата, Кнопка3Нажата, Панель3Нажата, Кнопка4Нажата, Кнопка1Нажата;

Функция Форма1_ПриНажатииКнопкиМыши() Экспорт
	МышьАрг1 = Ф.АргументыСобытия;
	МышьАрг1_Игрек = МышьАрг1.Игрек;
	// Сообщить("Форма1_ПриНажатииКнопкиМыши");
	// Сообщить("МышьАрг1.Игрек = " + МышьАрг1.Игрек);
	// Сообщить("МышьАрг1.Икс = " + МышьАрг1.Икс);
	// Сообщить("МышьАрг1.Кнопка = " + МышьАрг1.Кнопка);
	// Сообщить("МышьАрг1.Нажатия = " + МышьАрг1.Нажатия);
	// Сообщить("===============================");
	Форма1Нажата = Истина;
	// Ф.ОкноСообщений().Показать("Форма1_ПриНажатииКнопкиМыши", "", Ф.КнопкиОкнаСообщений.ОКОтмена, Ф.ЗначокОкнаСообщений.Восклицание);
КонецФункции

Функция Кнопка1_ПриНажатииКнопкиМыши() Экспорт
	МышьАрг1 = Ф.АргументыСобытия;
	МышьАрг1_Игрек = МышьАрг1.Игрек;
	// Сообщить("Кнопка1_ПриНажатииКнопкиМыши");
	// Сообщить("МышьАрг1.Игрек = " + МышьАрг1.Игрек);
	// Сообщить("МышьАрг1.Икс = " + МышьАрг1.Икс);
	// Сообщить("МышьАрг1.Кнопка = " + МышьАрг1.Кнопка);
	// Сообщить("МышьАрг1.Нажатия = " + МышьАрг1.Нажатия);
	// Сообщить("===============================");
	Кнопка1Нажата = Истина;
	// Ф.ОкноСообщений().Показать("Кнопка1_ПриНажатииКнопкиМыши", "", Ф.КнопкиОкнаСообщений.ОКОтмена, Ф.ЗначокОкнаСообщений.Восклицание);
КонецФункции

Функция Панель1_ПриНажатииКнопкиМыши() Экспорт
	МышьАрг1 = Ф.АргументыСобытия;
	МышьАрг1_Игрек = МышьАрг1.Игрек;
	// Сообщить("Панель1_ПриНажатииКнопкиМыши");
	// Сообщить("МышьАрг1.Игрек = " + МышьАрг1.Игрек);
	// Сообщить("МышьАрг1.Икс = " + МышьАрг1.Икс);
	// Сообщить("МышьАрг1.Кнопка = " + МышьАрг1.Кнопка);
	// Сообщить("МышьАрг1.Нажатия = " + МышьАрг1.Нажатия);
	// Сообщить("===============================");
	Панель1Нажата = Истина;
	// Ф.ОкноСообщений().Показать("Панель1_ПриНажатииКнопкиМыши", "", Ф.КнопкиОкнаСообщений.ОКОтмена, Ф.ЗначокОкнаСообщений.Восклицание);
КонецФункции

Функция Кнопка2_ПриНажатииКнопкиМыши() Экспорт
	МышьАрг1 = Ф.АргументыСобытия;
	МышьАрг1_Игрек = МышьАрг1.Игрек;
	// Сообщить("Кнопка2_ПриНажатииКнопкиМыши");
	// Сообщить("МышьАрг1.Игрек = " + МышьАрг1.Игрек);
	// Сообщить("МышьАрг1.Икс = " + МышьАрг1.Икс);
	// Сообщить("МышьАрг1.Кнопка = " + МышьАрг1.Кнопка);
	// Сообщить("МышьАрг1.Нажатия = " + МышьАрг1.Нажатия);
	// Сообщить("===============================");
	Кнопка2Нажата = Истина;
	// Ф.ОкноСообщений().Показать("Кнопка2_ПриНажатииКнопкиМыши", "", Ф.КнопкиОкнаСообщений.ОКОтмена, Ф.ЗначокОкнаСообщений.Восклицание);
КонецФункции

Функция Панель2_ПриНажатииКнопкиМыши() Экспорт
	МышьАрг1 = Ф.АргументыСобытия;
	МышьАрг1_Игрек = МышьАрг1.Игрек;
	// Сообщить("Панель2_ПриНажатииКнопкиМыши");
	// Сообщить("МышьАрг1.Игрек = " + МышьАрг1.Игрек);
	// Сообщить("МышьАрг1.Икс = " + МышьАрг1.Икс);
	// Сообщить("МышьАрг1.Кнопка = " + МышьАрг1.Кнопка);
	// Сообщить("МышьАрг1.Нажатия = " + МышьАрг1.Нажатия);
	// Сообщить("===============================");
	Панель2Нажата = Истина;
	// Ф.ОкноСообщений().Показать("Панель2_ПриНажатииКнопкиМыши", "", Ф.КнопкиОкнаСообщений.ОКОтмена, Ф.ЗначокОкнаСообщений.Восклицание);
КонецФункции

Функция Кнопка3_ПриНажатииКнопкиМыши() Экспорт
	МышьАрг1 = Ф.АргументыСобытия;
	МышьАрг1_Игрек = МышьАрг1.Игрек;
	// Сообщить("Кнопка3_ПриНажатииКнопкиМыши");
	// Сообщить("МышьАрг1.Игрек = " + МышьАрг1.Игрек);
	// Сообщить("МышьАрг1.Икс = " + МышьАрг1.Икс);
	// Сообщить("МышьАрг1.Кнопка = " + МышьАрг1.Кнопка);
	// Сообщить("МышьАрг1.Нажатия = " + МышьАрг1.Нажатия);
	// Сообщить("===============================");
	Кнопка3Нажата = Истина;
	// Ф.ОкноСообщений().Показать("Кнопка3_ПриНажатииКнопкиМыши", "", Ф.КнопкиОкнаСообщений.ОКОтмена, Ф.ЗначокОкнаСообщений.Восклицание);
КонецФункции

Функция Панель3_ПриНажатииКнопкиМыши() Экспорт
	МышьАрг1 = Ф.АргументыСобытия;
	МышьАрг1_Игрек = МышьАрг1.Игрек;
	// Сообщить("Панель3_ПриНажатииКнопкиМыши");
	// Сообщить("МышьАрг1.Игрек = " + МышьАрг1.Игрек);
	// Сообщить("МышьАрг1.Икс = " + МышьАрг1.Икс);
	// Сообщить("МышьАрг1.Кнопка = " + МышьАрг1.Кнопка);
	// Сообщить("МышьАрг1.Нажатия = " + МышьАрг1.Нажатия);
	// Сообщить("===============================");
	Панель3Нажата = Истина;
	// Ф.ОкноСообщений().Показать("Панель3_ПриНажатииКнопкиМыши", "", Ф.КнопкиОкнаСообщений.ОКОтмена, Ф.ЗначокОкнаСообщений.Восклицание);
КонецФункции

Функция Кнопка4_ПриНажатииКнопкиМыши() Экспорт
	МышьАрг1 = Ф.АргументыСобытия;
	МышьАрг1_Игрек = МышьАрг1.Игрек;
	// Сообщить("Кнопка4_ПриНажатииКнопкиМыши");
	// Сообщить("МышьАрг1.Игрек = " + МышьАрг1.Игрек);
	// Сообщить("МышьАрг1.Икс = " + МышьАрг1.Икс);
	// Сообщить("МышьАрг1.Кнопка = " + МышьАрг1.Кнопка);
	// Сообщить("МышьАрг1.Нажатия = " + МышьАрг1.Нажатия);
	// Сообщить("===============================");
	Кнопка4Нажата = Истина;
	// Ф.ОкноСообщений().Показать("Кнопка4_ПриНажатииКнопкиМыши", "", Ф.КнопкиОкнаСообщений.ОКОтмена, Ф.ЗначокОкнаСообщений.Восклицание);
КонецФункции

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

Кнопка1 = Форма1.ЭлементыУправления.Добавить(Ф.Кнопка());
Кнопка1.Границы = Ф.Прямоугольник(100, 20, 75, 25);
Кнопка1.ПриНажатииКнопкиМыши = Ф.Действие(ЭтотОбъект, "Кнопка1_ПриНажатииКнопкиМыши");

Панель1 = Ф.Панель();
Панель1.Родитель = Форма1;
Панель1.ЦветФона = Ф.Цвет("Розовый");
Панель1.Границы = Ф.Прямоугольник(50, 50, 500, 200);
Панель1.СтильГраницы = Ф.СтильГраницы.Трехмерная;
Панель1.ПриНажатииКнопкиМыши = Ф.Действие(ЭтотОбъект, "Панель1_ПриНажатииКнопкиМыши");

Кнопка2 = Панель1.ЭлементыУправления.Добавить(Ф.Кнопка());
Кнопка2.Границы = Ф.Прямоугольник(150, 10, 75, 25);
Кнопка2.ПриНажатииКнопкиМыши = Ф.Действие(ЭтотОбъект, "Кнопка2_ПриНажатииКнопкиМыши");

Панель2 = Ф.Панель();
Панель2.Родитель = Панель1;
Панель2.ЦветФона = Ф.Цвет("Голубой");
Панель2.Границы = Ф.Прямоугольник(10, 40, 300, 150);
Панель2.СтильГраницы = Ф.СтильГраницы.Трехмерная;
Панель2.ПриНажатииКнопкиМыши = Ф.Действие(ЭтотОбъект, "Панель2_ПриНажатииКнопкиМыши");

Кнопка3 = Панель2.ЭлементыУправления.Добавить(Ф.Кнопка());
Кнопка3.Границы = Ф.Прямоугольник(10, 10, 75, 25);
Кнопка3.ПриНажатииКнопкиМыши = Ф.Действие(ЭтотОбъект, "Кнопка3_ПриНажатииКнопкиМыши");

Панель3 = Ф.Панель();
Панель3.Родитель = Панель2;
Панель3.ЦветФона = Ф.Цвет("БледноЗеленый");
Панель3.Границы = Ф.Прямоугольник(10, 40, 150, 100);
Панель3.СтильГраницы = Ф.СтильГраницы.Трехмерная;
Панель3.ПриНажатииКнопкиМыши = Ф.Действие(ЭтотОбъект, "Панель3_ПриНажатииКнопкиМыши");

Кнопка4 = Панель3.ЭлементыУправления.Добавить(Ф.Кнопка());
Кнопка4.Границы = Ф.Прямоугольник(30, 10, 75, 25);
Кнопка4.ПриНажатииКнопкиМыши = Ф.Действие(ЭтотОбъект, "Кнопка4_ПриНажатииКнопкиМыши");

Форма1Нажата = Ложь;
Кнопка1Нажата = Ложь;
Панель1Нажата = Ложь;
Кнопка2Нажата = Ложь;
Панель2Нажата = Ложь;
Кнопка3Нажата = Ложь;
Панель3Нажата = Ложь;
Кнопка4Нажата = Ложь;

Позиция = Ф.НайтиЦентр(Форма1);
Ф.Курсор().Позиция = Позиция;
Словарь0 = Ф.Словарь();
Словарь0.Добавить("Кнопка", (Ф.ФлагиМыши.ЛеваяВниз + Ф.ФлагиМыши.ЛеваяВверх));
Словарь0.Добавить("Нажатия", 1);
Словарь0.Добавить("Икс", Позиция.Икс);
Словарь0.Добавить("Игрек", Позиция.Игрек);
Ф.ВызватьСобытие(Форма1, "ПриНажатииКнопкиМыши", Словарь0);

Позиция = Ф.НайтиЦентр(Кнопка1);
Ф.Курсор().Позиция = Позиция;
Словарь1 = Ф.Словарь();
Словарь1.Добавить("Кнопка", (Ф.ФлагиМыши.ЛеваяВниз + Ф.ФлагиМыши.ЛеваяВверх));
Словарь1.Добавить("Нажатия", 1);
Словарь1.Добавить("Икс", Позиция.Икс);
Словарь1.Добавить("Игрек", Позиция.Игрек);
Ф.ВызватьСобытие(Кнопка1, "ПриНажатииКнопкиМыши", Словарь1);

Позиция = Ф.НайтиЦентр(Панель1);
Ф.Курсор().Позиция = Позиция;
Словарь2 = Ф.Словарь();
Словарь2.Добавить("Кнопка", (Ф.ФлагиМыши.ЛеваяВниз + Ф.ФлагиМыши.ЛеваяВверх));
Словарь2.Добавить("Нажатия", 1);
Словарь2.Добавить("Икс", Позиция.Икс);
Словарь2.Добавить("Игрек", Позиция.Игрек);
Ф.ВызватьСобытие(Панель1, "ПриНажатииКнопкиМыши", Словарь2);

Позиция = Ф.НайтиЦентр(Кнопка2);
Ф.Курсор().Позиция = Позиция;
Словарь3 = Ф.Словарь();
Словарь3.Добавить("Кнопка", (Ф.ФлагиМыши.ЛеваяВниз + Ф.ФлагиМыши.ЛеваяВверх));
Словарь3.Добавить("Нажатия", 1);
Словарь3.Добавить("Икс", Позиция.Икс);
Словарь3.Добавить("Игрек", Позиция.Игрек);
Ф.ВызватьСобытие(Кнопка2, "ПриНажатииКнопкиМыши", Словарь3);

Позиция = Ф.НайтиЦентр(Панель2);
Ф.Курсор().Позиция = Позиция;
Словарь4 = Ф.Словарь();
Словарь4.Добавить("Кнопка", (Ф.ФлагиМыши.ЛеваяВниз + Ф.ФлагиМыши.ЛеваяВверх));
Словарь4.Добавить("Нажатия", 1);
Словарь4.Добавить("Икс", Позиция.Икс);
Словарь4.Добавить("Игрек", Позиция.Игрек);
Ф.ВызватьСобытие(Панель2, "ПриНажатииКнопкиМыши", Словарь4);

Позиция = Ф.НайтиЦентр(Кнопка3);
Ф.Курсор().Позиция = Позиция;
Словарь5 = Ф.Словарь();
Словарь5.Добавить("Кнопка", (Ф.ФлагиМыши.ЛеваяВниз + Ф.ФлагиМыши.ЛеваяВверх));
Словарь5.Добавить("Нажатия", 1);
Словарь5.Добавить("Икс", Позиция.Икс);
Словарь5.Добавить("Игрек", Позиция.Игрек);
Ф.ВызватьСобытие(Кнопка3, "ПриНажатииКнопкиМыши", Словарь5);

Позиция = Ф.НайтиЦентр(Панель3);
Ф.Курсор().Позиция = Позиция;
Словарь6 = Ф.Словарь();
Словарь6.Добавить("Кнопка", (Ф.ФлагиМыши.ЛеваяВниз + Ф.ФлагиМыши.ЛеваяВверх));
Словарь6.Добавить("Нажатия", 1);
Словарь6.Добавить("Икс", Позиция.Икс);
Словарь6.Добавить("Игрек", Позиция.Игрек);
Ф.ВызватьСобытие(Панель3, "ПриНажатииКнопкиМыши", Словарь6);

Позиция = Ф.НайтиЦентр(Кнопка4);
Ф.Курсор().Позиция = Позиция;
Словарь1 = Ф.Словарь();
Словарь1.Добавить("Кнопка", (Ф.ФлагиМыши.ЛеваяВниз + Ф.ФлагиМыши.ЛеваяВверх));
Словарь1.Добавить("Нажатия", 1);
Словарь1.Добавить("Икс", Позиция.Икс);
Словарь1.Добавить("Игрек", Позиция.Игрек);
Ф.ВызватьСобытие(Кнопка4, "ПриНажатииКнопкиМыши", Словарь1);

Сообщить(?(
Форма1Нажата и 
Кнопка1Нажата и 
Панель1Нажата и 
Кнопка2Нажата и 
Панель2Нажата и 
Кнопка3Нажата и 
Панель3Нажата и 
Кнопка4Нажата
, "", "!!! ") + "ФормыДляОдноСкрипта.НайтиЦентр (OneScriptForms.FindCenter) Метод" + " " + ТекущаяДата());

ФормыДляОдноСкрипта.НайтиЦентр (OneScriptForms.FindCenter) Метод

Синтаксис

Параметры

Возвращаемое значение

Описание

Примечание

Пример

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