Диалог выбора цвета с возможностью определения составляющих цвета RGB для УФ.

Стандартный типовой диалог выбора цвета предлагает выбор из цветов вида: элемент стиля, web-цвет и ввод числовых значений составляющих цвета RGB, при этом нет гарантии каким способом будет выбрано значение цвета пользователем. Составляющие цвета RGB имеются только в абсолютном виде цвета (при вводе составляющих цвета RGB вручную). Есть ряд задач в которых необходимо хранить и передавать именно составляющие цвета RGB, а не сам цвет как тип, для таких целей может пригодиться  предлагаемый вариант.

Возможности: 

Для быстроты и удобства использования пользователями цвет выбирается мышкой, так же имеется возможность (при необходимости) скопировать значения цвета в HEX и RGB кодировке в буфер обмена. Диалог выбора цвета реализован на управляемых формах, без использования ВК, обработка самодостаточная (в ней присутствует все необходимое для работы).

Возвращаемое значение: тип цвет в абсолютном виде, который можно разложить на составляющие RGB.

 

 P.S.

Пример подстановки текущего изменяемого цвета в диалог выбора цвета при его открытии:

//Процедуры и функции
&НаСервере
Функция ПолучитьЦветHEX(Знач Красный = 0, Знач Зеленый = 0, Знач Синий = 0) Экспорт

    ЦветHEX = "";

    ЦифрыHEX = "0123456789abcdef";

    КрасныйHEX = "";

    Если Красный <= 0 Тогда

        КрасныйHEX = "00";

    Иначе

        Пока Красный > 0 Цикл

            КрасныйHEX = Сред(ЦифрыHEX, Красный % 16 + 1, 1) + КрасныйHEX;

            Красный = Цел(Красный / 16) ;

        КонецЦикла;

    КонецЕсли;

    ЗеленыйHEX = "";

    Если Зеленый <= 0 Тогда

        ЗеленыйHEX = "00";

    Иначе

        Пока Зеленый > 0 Цикл

            ЗеленыйHEX = Сред(ЦифрыHEX, Зеленый % 16 + 1, 1) + ЗеленыйHEX;

            Зеленый = Цел(Зеленый / 16) ;

        КонецЦикла;

    КонецЕсли;

    СинийHEX = "";

    Если Синий <= 0 Тогда

        СинийHEX = "00";

    Иначе

        Пока Синий > 0 Цикл

            СинийHEX = Сред(ЦифрыHEX, Синий % 16 + 1, 1) + СинийHEX;

            Синий = Цел(Синий / 16) ;

        КонецЦикла;

    КонецЕсли;

    ЦветHEX = "#" + ?(СтрДлина(КрасныйHEX) = 1, "0" + КрасныйHEX, КрасныйHEX) + ?(СтрДлина(ЗеленыйHEX) = 1, "0" + ЗеленыйHEX, ЗеленыйHEX) + ?(СтрДлина(СинийHEX) = 1, "0" + СинийHEX, СинийHEX);

    Возврат ЦветHEX;

КонецФункции

//Обработчики событий
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

    ТекстДиалогаВыбораЦвета  = РеквизитФормыВЗначение("Объект").ПолучитьМакет("ТекстДиалогаВыбораЦвета").ПолучитьТекст();

    ТекущийЦвет = Неопределено;

    Параметры.Свойство("ТекущийЦвет", ТекущийЦвет);

    Если Не ТекущийЦвет = Неопределено Тогда

        Объект.ВыбранныйЦвет = ТекущийЦвет;

        Красный     = ТекущийЦвет.Красный;
        Зеленый     = ТекущийЦвет.Зеленый;
        Синий       = ТекущийЦвет.Синий;

        ТекстДиалогаВыбораЦвета = СтрЗаменить(ТекстДиалогаВыбораЦвета, "name=’color’ value=’#000000’", "name=’color’ value=’" + ПолучитьЦветHEX(Красный, Зеленый, Синий) + "’");
        ТекстДиалогаВыбораЦвета = СтрЗаменить(ТекстДиалогаВыбораЦвета, "name=’colorR’ value=’0’", "name=’colorR’ value=’" + Строка(Красный) + "’");
        ТекстДиалогаВыбораЦвета = СтрЗаменить(ТекстДиалогаВыбораЦвета, "name=’colorG’ value=’0’", "name=’colorG’ value=’" + Строка(Зеленый) + "’");
        ТекстДиалогаВыбораЦвета = СтрЗаменить(ТекстДиалогаВыбораЦвета, "name=’colorB’ value=’0’", "name=’colorB’ value=’" + Строка(Синий) + "’");

    КонецЕсли;

    Объект.ДиалогВыбораЦвета = ТекстДиалогаВыбораЦвета;

КонецПроцедуры

//Обработчики команд
&НаКлиенте
Процедура ДиалогВыбораЦветаПриНажатии(Элемент, ДанныеСобытия, СтандартнаяОбработка)

    СоставляющиеВыбранногоЦвета = Элемент.Документ;

    Если СоставляющиеВыбранногоЦвета = Неопределено Тогда Возврат; КонецЕсли;

    colorR      = СоставляющиеВыбранногоЦвета.getElementById("colorR");
    colorG      = СоставляющиеВыбранногоЦвета.getElementById("colorG");
    colorB      = СоставляющиеВыбранногоЦвета.getElementById("colorB");

    Красный     = ?(colorR = Неопределено, 0, colorR.Value);
    Зеленый     = ?(colorG = Неопределено, 0, colorG.Value);
    Синий       = ?(colorB = Неопределено, 0, colorB.Value);

    Объект.ВыбранныйЦвет = Новый Цвет(Красный, Зеленый, Синий);

КонецПроцедуры

&НаКлиенте
Процедура КомандаОК(Команда)

    Закрыть(Объект.ВыбранныйЦвет);

КонецПроцедуры

&НаКлиенте
Процедура КомандаОтмена(Команда)

    Закрыть(Неопределено);

КонецПроцедуры

 

Пример вызова диалога выбора цвета:

//Процедуры и функции

&НаКлиенте
Процедура УстановитьНовыйЦветКлиент(Элемент, СтандартнаяОбработка)

    Элемент_Имя     = Элемент.Имя;

    ТекущийЦвет     = Объект[Элемент_Имя];

    ТекПараметры    = Новый Структура("ТекущийЦвет", ТекущийЦвет);

    ВыбранныйЦвет   = ОткрытьФормуМодально("Обработка.ИмяОбработки.Форма.ФормаДиалогаВыбораЦвета", ТекПараметры, ЭтаФорма);

    Если Не ВыбранныйЦвет = Неопределено Тогда

        Объект[Элемент_Имя] = ВыбранныйЦвет;

    КонецЕсли;

    СтандартнаяОбработка = Ложь;

КонецПроцедуры

//Обработчики событий
&НаКлиенте
Процедура ИзменяемыйЦветНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)

    УстановитьНовыйЦветКлиент(Элемент, СтандартнаяОбработка);

КонецПроцедуры