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

Копировать

Перем ТФ, ПолеВвода1, Текст;

Процедура ПриОткрытии() Экспорт
	Текст = "Печатайте текст.";
	ТФ.Верхний.Текст = Текст;
КонецПроцедуры

Процедура ТекстИзменен() Экспорт
	АргументыСобытия = ТФ.АргументыСобытия;
	ТФ.Верхний.Текст = Текст + "
	|СтарыйТекст = " + АргументыСобытия.СтарыйТекст + "
	|";
КонецПроцедуры

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

ПолеВвода1 = ТФ.Верхний.Добавить(ТФ.ПолеВвода("", 1, 8, 50));
ПолеВвода1.ТекстИзменен = ТФ.Действие(ЭтотОбъект, "ТекстИзменен");

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

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

Копировать

Перем ТФ, ПолеВвода1, Текст, СтарыйТекст;

Процедура ПриОткрытии() Экспорт
	Текст = "Печатайте текст.";
	ТФ.Верхний.Текст = Текст;
КонецПроцедуры

Процедура ТекстИзменен() Экспорт
	АргументыСобытия = ТФ.АргументыСобытия;
	ТФ.Верхний.Текст = Текст + "
	|СтарыйТекст = " + АргументыСобытия.СтарыйТекст + "
	|";
	СтарыйТекст = АргументыСобытия.СтарыйТекст;
	ТФ.ТаймерНачатьИОстановить(ЭтотОбъект, "ТаймерТик1");
КонецПроцедуры

Процедура ТаймерТик1() Экспорт
	ТФ.Завершить();
КонецПроцедуры

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

ПолеВвода1 = ТФ.Верхний.Добавить(ТФ.ПолеВвода("", 1, 8, 50));
ПолеВвода1.ТекстИзменен = ТФ.Действие(ЭтотОбъект, "ТекстИзменен");

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

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