From 80f6a32ed65e10896c42f55eb170034f87ac5bae Mon Sep 17 00:00:00 2001 From: Anton Ivanov Date: Sat, 4 Feb 2017 18:17:46 +0300 Subject: [PATCH] =?UTF-8?q?=D0=94=D0=BE=D0=B1=D0=B0=D0=B2=D0=B8=D0=BB=20?= =?UTF-8?q?=D1=80=D0=B5=D0=BA=D0=B2=D0=B8=D0=B7=D0=B8=D1=82=20=D0=B2=20?= =?UTF-8?q?=D0=B7=D0=B0=D0=B4=D0=B0=D1=87=D1=83:=20"=D0=98=D0=B7=D0=BC?= =?UTF-8?q?=D0=B5=D0=BD=D0=B5=D0=BD=20=D1=86=D0=B2=D0=B5=D1=82=20=D0=BF?= =?UTF-8?q?=D0=BE=20=D1=83=D0=BC=D0=BE=D0=BB=D1=87=D0=B0=D0=BD=D0=B8=D1=8E?= =?UTF-8?q?"?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/cf/Catalogs/узЗадачи.xml | 39 +++++++++++++++++++ .../узЗадачи/Forms/ФормаЭлемента/Ext/Form.xml | 3 ++ .../Forms/ФормаЭлемента/Ext/Form/Module.bsl | 22 ++++++++++- 3 files changed, 63 insertions(+), 1 deletion(-) diff --git a/src/cf/Catalogs/узЗадачи.xml b/src/cf/Catalogs/узЗадачи.xml index 620a8e255..6956d409f 100644 --- a/src/cf/Catalogs/узЗадачи.xml +++ b/src/cf/Catalogs/узЗадачи.xml @@ -1330,6 +1330,45 @@ Use + + + ИзмененЦветПоУмолчанию + + + ru + Изменен цвет по умолчанию + + + + + xs:boolean + + false + + + + false + + false + false + + + false + + DontCheck + Items + + + Auto + Auto + + + Auto + ForItem + DontIndex + Use + + ЧасыПлан diff --git a/src/cf/Catalogs/узЗадачи/Forms/ФормаЭлемента/Ext/Form.xml b/src/cf/Catalogs/узЗадачи/Forms/ФормаЭлемента/Ext/Form.xml index a70982cea..f6b7e8959 100644 --- a/src/cf/Catalogs/узЗадачи/Forms/ФормаЭлемента/Ext/Form.xml +++ b/src/cf/Catalogs/узЗадачи/Forms/ФормаЭлемента/Ext/Form.xml @@ -804,6 +804,9 @@ ЦветЗадачиНаФорме + + ЦветЗадачиНаФормеПриИзменении + diff --git a/src/cf/Catalogs/узЗадачи/Forms/ФормаЭлемента/Ext/Form/Module.bsl b/src/cf/Catalogs/узЗадачи/Forms/ФормаЭлемента/Ext/Form/Module.bsl index 92f1f6ce6..2c50b9749 100644 --- a/src/cf/Catalogs/узЗадачи/Forms/ФормаЭлемента/Ext/Form/Module.bsl +++ b/src/cf/Catalogs/узЗадачи/Forms/ФормаЭлемента/Ext/Form/Module.bsl @@ -773,4 +773,24 @@ КомандаMDДобавитьШаблон(ТекстMD); КонецПроцедуры -#КонецОбласти \ No newline at end of file + +#КонецОбласти + +&НаКлиенте +Процедура ЦветЗадачиНаФормеПриИзменении(Элемент) + + Объект.ИзмененЦветПоУмолчанию = ПолучитьИзмененЦветПоУмолчаниюНаКлиенте(); + +КонецПроцедуры + +&НаКлиенте +Функция ПолучитьИзмененЦветПоУмолчаниюНаКлиенте() + ИзмененЦветПоУмолчанию = Ложь; + + ЦветПоУмолчанию = Новый Цвет(0,0,0); + Если ЦветЗадачиНаФорме <> ЦветПоУмолчанию Тогда + ИзмененЦветПоУмолчанию = Истина; + Конецесли; + + Возврат ИзмененЦветПоУмолчанию; +КонецФункции