Таймер.Остановить (Timer.Stop) Метод

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

Перем ДФ, Таймер1, Кнопка1;
Перем Таймер2, Кнопка3;
Перем Блок1, Блок2;

Процедура Форма1_Загружена() Экспорт
	Таймер1.Начать();
	Приостановить(300);
	Таймер2.Начать();
	Сообщить("Форма1_Загружена " + ТекущаяУниверсальнаяДатаВМиллисекундах());
КонецПроцедуры

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

Процедура Кнопка2_Нажатие() Экспорт
	Таймер1.Остановить();
	Сообщить("Кнопка2_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах());
	Блок1.Текст = "Таймер активен = " + Таймер1.Активен;
КонецПроцедуры

Процедура Таймер1_ПриСрабатыванииТаймера() Экспорт
	Сообщить("Таймер1_ПриСрабатыванииТаймера");
	Если Кнопка1.Стиль.Цветфона = ДФ.Цвет.МорскаяРакушка Тогда
		Кнопка1.Стиль.Цветфона = ДФ.Цвет.Красный;
	Иначе
		Кнопка1.Стиль.Цветфона = ДФ.Цвет.МорскаяРакушка;
	КонецЕсли;
	Блок1.Текст = "" + ТекущаяУниверсальнаяДатаВМиллисекундах() + "
	|Таймер активен = " + Таймер1.Активен;
КонецПроцедуры

Процедура Кнопка3_Нажатие() Экспорт
	Таймер2.Начать();
	Сообщить("Кнопка3_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах());
КонецПроцедуры

Процедура Кнопка4_Нажатие() Экспорт
	Таймер2.Остановить();
	Сообщить("Кнопка4_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах());
	Блок2.Текст = "Таймер активен = " + Таймер2.Активен;
КонецПроцедуры

Процедура Таймер2_ПриСрабатыванииТаймера() Экспорт
	Сообщить("Таймер2_ПриСрабатыванииТаймера");
	Если Кнопка3.Стиль.Цветфона = ДФ.Цвет.СветлоСерый Тогда
		Кнопка3.Стиль.Цветфона = ДФ.Цвет.СветлыйЗеленоватоГолубой;
	Иначе
		Кнопка3.Стиль.Цветфона = ДФ.Цвет.СветлоСерый;
	КонецЕсли;
	Блок2.Текст = "" + ТекущаяУниверсальнаяДатаВМиллисекундах() + "
	|Таймер активен = " + Таймер2.Активен;
КонецПроцедуры

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

Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац());
Абзац1.Стиль.Высота = 100;
Абзац1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный);

Кнопка1 = Абзац1.ДобавитьДочерний(ДФ.Кнопка());
Кнопка1.Текст = "Начать";
Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие");

Кнопка2 = Абзац1.ДобавитьДочерний(ДФ.Кнопка());
Кнопка2.Текст = "Остановить";
Кнопка2.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка2_Нажатие");

Блок1 = Абзац1.ДобавитьДочерний(ДФ.Блок());

Таймер1 = ДФ.Таймер();
Таймер1.ПриСрабатыванииТаймера = ДФ.Действие(ЭтотОбъект, "Таймер1_ПриСрабатыванииТаймера");
Таймер1.Интервал = 1000;
Таймер1.Начать();

Абзац2 = Форма1.ДобавитьДочерний(ДФ.Абзац());
Абзац2.Стиль.Высота = 100;
Абзац2.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный);

Кнопка3 = Абзац2.ДобавитьДочерний(ДФ.Кнопка());
Кнопка3.Текст = "Начать";
Кнопка3.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка3_Нажатие");

Кнопка4 = Абзац2.ДобавитьДочерний(ДФ.Кнопка());
Кнопка4.Текст = "Остановить";
Кнопка4.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка4_Нажатие");

Блок2 = Абзац2.ДобавитьДочерний(ДФ.Блок());

Таймер2 = ДФ.Таймер();
Таймер2.ПриСрабатыванииТаймера = ДФ.Действие(ЭтотОбъект, "Таймер2_ПриСрабатыванииТаймера");
Таймер2.Интервал = 1000;
Таймер2.Начать();

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