АргументыСобытия.БылоТактов (EventArgs.OldTicks) Свойство

Копировать

Перем ТФ, ПолеДаты1, Таймер1;

Процедура ПриОткрытии() Экспорт
	ПолеДаты1.ПозицияКурсора = 7;
	ТФ.Верхний.Текст = "Измените значение лет, месяцев, дней";
	Таймер1.Начать();
КонецПроцедуры

Процедура ПолеДаты1_ДатаИзменена() Экспорт
	АргументыСобытия = ТФ.АргументыСобытия;
	Текст = "Формат даты = " + АргументыСобытия.ФорматДаты + "
	|Было лет = " + АргументыСобытия.БылоГод + "
	|Стало лет = " + АргументыСобытия.СталоГод + "
	|Было месяцев = " + АргументыСобытия.БылоМесяц + "
	|Стало месяцев = " + АргументыСобытия.СталоМесяц + "
	|Было дней = " + АргументыСобытия.БылоДень + "
	|Стало дней = " + АргументыСобытия.СталоДень + "
	|Было тактов = " + АргументыСобытия.БылоТактов + "
	|Стало тактов = " + АргументыСобытия.СталоТактов;
	ТФ.Уведомление().Показать(Текст, -1);
КонецПроцедуры

Процедура Таймер1_ПриСрабатыванииТаймера() Экспорт
	ТФ.ОтправитьКлавиши("9", Ложь, Ложь, Ложь);
	ПолеДаты1.ПозицияКурсора = 7;
	Таймер1.Остановить();
КонецПроцедуры

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

ПолеДаты1 = ТФ.Верхний.Добавить(ТФ.ПолеДаты(ТекущаяДата(), , 5));
ПолеДаты1.ДатаИзменена = ТФ.Действие(ЭтотОбъект, "ПолеДаты1_ДатаИзменена");

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

ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии");

ТФ.Запуск();

Копировать

Перем ТФ, ПолеДаты1, Таймер1, АргументыСобытия;

Процедура ПриОткрытии() Экспорт
	ПолеДаты1.ПозицияКурсора = 7;
	ТФ.Верхний.Текст = "Измените значение лет, месяцев, дней";
	Таймер1.Начать();
КонецПроцедуры

Процедура ПолеДаты1_ДатаИзменена() Экспорт
	АргументыСобытия = ТФ.АргументыСобытия;
	Текст = "Формат даты = " + АргументыСобытия.ФорматДаты + "
	|Было лет = " + АргументыСобытия.БылоГод + "
	|Стало лет = " + АргументыСобытия.СталоГод + "
	|Было месяцев = " + АргументыСобытия.БылоМесяц + "
	|Стало месяцев = " + АргументыСобытия.СталоМесяц + "
	|Было дней = " + АргументыСобытия.БылоДень + "
	|Стало дней = " + АргументыСобытия.СталоДень + "
	|Было тактов = " + АргументыСобытия.БылоТактов + "
	|Стало тактов = " + АргументыСобытия.СталоТактов;
	ТФ.Уведомление().Показать(Текст, -1);
КонецПроцедуры

Процедура Таймер1_ПриСрабатыванииТаймера() Экспорт
	ТФ.ОтправитьКлавиши("9", Ложь, Ложь, Ложь);
	ПолеДаты1.ПозицияКурсора = 7;
	ТФ.Завершить();
КонецПроцедуры

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

ПолеДаты1 = ТФ.Верхний.Добавить(ТФ.ПолеДаты(ТекущаяДата(), , 5));
ПолеДаты1.ДатаИзменена = ТФ.Действие(ЭтотОбъект, "ПолеДаты1_ДатаИзменена");

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

ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии");
ТФ.Запуск();

Сообщить(?(
Лев("" + АргументыСобытия.СталоГод, 1) = "9"
, "", "!!! ") + "АргументыСобытия.БылоТактов (EventArgs.OldTicks) Свойство" + " " + ТекущаяДата() + Символы.ПС);