Помогите пожалуйста. Как поместить Цвет в реквизит и этот цвет отобразить на форме? (Нужно квалификационный уровень в отчёте отображать своим цветом)

Начал делать так:

&НаКлиенте
Процедура ПриОткрытии(Отказ)
   
   Диалог=Новый ДиалогВыбораЦвета;
   Диалог.Выбрать();
   ПомЦвет(Диалог.Цвет);
   //Сообщить(Пров());
   
КонецПроцедуры

Процедура ПомЦвет(Цвет)
   
   Об=РеквизитФормыВЗначение("Объект");
   Об.Цвет=Новый ХранилищеЗначения (Новый Цвет(Цвет));
   ЗначениеВРеквизитФормы(Об, "Объект");

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

Выдаёт ошибку: "Новый ?? Цвет" конструктор не найден.

Об=РеквизитФормыВЗначение("Объект");
   Об.Цвет=Новый ХранилищеЗначения (Новый Цвет(Цвет));
   ЗначениеВРеквизитФормы(Об, "Объект");

зачем это все?

Сделай отдельную, годную настройку Оформления строк в СКД, будь мужиком!

(2). По условию задачи, в справочнике должен быть реквизит Цвет с типом ХранилищеЗначения.

По поводу отображения на форме, можно какой-то текст покрасить в соответствующий цвет (сам себе ответил). Но хотелось бы что-то типа небольшого цветного квадрата или как-то по-другому. Если знаете, подскажите.

ДиалогВыбораЦвета (ColorChooseDialog)
Цвет (Color)
Использование:

Только чтение.
Описание:

Тип: Цвет.
Содержит цвет, устанавливаемый при открытии диалога.
После выбора содержит выбранный цвет.

Доступность:

Тонкий клиент, толстый клиент, внешнее соединение.

т.е. у тебя уже есть Цвет, зачем его еще раз создавать?

(6). Это я только пробовал его в реквизит поместить и не получилось.

Помещай массив из трех чисел rgb.

Облазил весь Инет, как работать с файлами и Хранилищем много инфо, а с цветом - ничего.

Цвет (Color)
Конструктор по умолчанию
Синтаксис:

Новый Цвет()
Описание:

Создает значение цвета, которое будет использоваться как значение по умолчанию (цвет "Авто").
Пример:

Процедура СправочникСписокПриПолученииДанных(Элемент, ОформленияСтрок)
   Если Элемент.ТекущаяСтрока=Неопределено Тогда
       Возврат;
   КонецЕсли;
   
   Для Каждого Офр Из ОформленияСтрок Цикл
       Если Офр.ДанныеСтроки.Важно Тогда
           Офр.ЦветФона = Новый Цвет(197, 255, 185);
       Иначе
           Офр.ЦветФона = Новый Цвет();
       КонецЕсли;
   КонецЦикла;
КонецПроцедуры

(8). Можно так, но в 1С есть же тип Цвет. Чё не получается его поместить в Хранилище?

+(10) и нигде нет такой конструкции как у тебя

(10). У меня ж выдаёт ошибку на "Новый Цвет()". Выходит, что диалог выбора цвета возвращает цвет не в формате (Число, Число, Число).

еще раз спрашиваю - у тебя есть уже Цвет в первой процедуре - зачем ты его пихаешь в конструктор создания цвета?

это как из масла создавать масло

(14). Да, тот код, что я написал, это я попробовал, как всё работает. Выбрать цвет->записать в реквизит->пользоваться цветом из реквизита. А по поводу (13) проверил, действительно диалог выдаёт цвет не в формате (число, число, число), а - название стиля.

Диалог выбора цвета возвращает и R, G, B, вот только при выборе любого цвета выдаёт (-1, -1, -1)???

продолжайте наблюдения

В Инете нашёл с другим диалогом выбора цвета:

Процедура Реквизит1ПриИзменении(Элемент)

   ШелСкрипт=Новый COMОбъект("WScript.Shell");
   ШелСкрипт.RegWrite("HKLM\SOFTWARE\Classes\Licenses\4D553650-6ABE-11cf-8ADB-00AA00C00905\","gfjmrfkfifkmkfffrlmmgmhmnlulkmfmqkqj");
   Диалог=Новый COMОбъект("MSComDlg.CommonDialog");
   Диалог.ShowColor();
   Скрипт=Новый COMОбъект("MSScriptControl.ScriptControl");
   Скрипт.language="javascript";
   Скрипт.AddObject("Диалог",Диалог);
   Цвет = РазложитьRGB(Скрипт.Eval("Диалог.Color"));    

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

Функция  РазложитьRGB(ЗначениеЧислом)

   ЦветRGB = ЗначениеЧислом;
   R = ЦветRGB%256;
   G = (Цел(ЦветRGB/256))%256;
   B = (Цел(ЦветRGB/(256 * 256)))%256;

   Возврат Новый Цвет(R,G,B);

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

давно делал сабж на ПВХ, правда не помню уже что именно сохранял цвет или его представления...

(0)
Об.Цвет=Новый ХранилищеЗначения (Новый Цвет(Цвет));
==>
Об.Цвет=Новый ХранилищеЗначения(Цвет);


Об этом тебе всю тему твердят

1. Реквизит Цвет, строка , 100

2. Реквизит формы Цвет, тип - Цвет

3. Поле формы цвет, путь  данным Форма.Цвет, тип поле ввода.

4.
&НаСервере
Процедура ВосстановитьЦвет()
   
   Если Объект.Цвет="0" Тогда
       Возврат;
   КонецЕсли;
   
   Если НЕ ЗначениеЗаполнено(Объект.Цвет) Тогда
       Возврат;
   КонецЕсли;
   
   Цвет= ЗначениеИзСтрокиВнутр(Объект.Цвет);
 

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

&НаКлиенте
Процедура ПриОткрытии(Отказ)
   ВосстановитьЦвет();
   // Вставить содержимое обработчика.
КонецПроцедуры

5.

&НаСервере
Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
   Объект.Цвет=значениевстрокувнутр(цвет);
   ТекущийОбъект.Цвет=значениевстрокувнутр(цвет);
   
КонецПроцедуры

(22). Спасибо, во многом помогло.

(23) Цвет можно хранить в 16-ом виде, т.е. без хранилища.