Открытый Код.
Работает во всех обычных формах.
Тестировалось на релизе платформы 8.3.10.2252.
Перем мВремя экспорт;
Перем НажатиеПауза экспорт;
//------Таймер------
Процедура СтартНажатие(Элемент)
НажатиеПауза = Ложь;
мВремя = Дата(1,1,1,0,0,0);
ПодключитьОбработчикОжидания("ОбновитьВремя",1,Ложь);
ЭлементыФормы.НадписьПотраченоВремени.Заголовок = "";
КонецПроцедуры
Процедура ОбновитьВремя()
мВремя = мВремя + 1;
ЭлементыФормы.НадписьВремя.Заголовок = "" + Формат(мВремя,"ДЛФ=T") + "";
КонецПроцедуры
Процедура ПаузаНажатие(Элемент)
Если НажатиеПауза = Ложь Тогда
НажатиеПауза = НЕ НажатиеПауза;
ОтключитьОбработчикОжидания("ОбновитьВремя");
ИначеЕсли НажатиеПауза = Истина Тогда
ПодключитьОбработчикОжидания("ОбновитьВремя",1,Ложь);
НажатиеПауза = Ложь;
КонецЕсли;
КонецПроцедуры
Процедура СтопНажатие(Элемент)
ОтключитьОбработчикОжидания("ОбновитьВремя");
ЭлементыФормы.НадписьПотраченоВремени.Заголовок =" Потрачено времени на задание " + Формат(мВремя,"ДЛФ=T") + "";
мВремя = Дата(1,1,1,0,0,0);
ЭлементыФормы.НадписьВремя.Заголовок = "" + Формат(мВремя,"ДЛФ=T") + "";
НажатиеПауза = Ложь;
КонецПроцедуры
//------Таймер------
мВремя = Дата(1,1,1,0,0,0);
НажатиеПауза = Ложь;
