Получить цвет RGB в диалоге 1С 8.3 (такси)

1С v8

29.11.14

✎

17:16

Здравствуйте
Никак не могу разобратьс :(

В форме создаю диалог выбора цвета,  и выбраный цвет записываю в реквизит как строку. Но потом работать с названием этого цвета у меня не очень получается. Хочу получить цвет в виде RGB, но в передоваемом параметре “Результат” – красный, синий, зеленый имеют знгачение “-1”

&НаКлиенте
Процедура ВыборЦветаФона(Команда) Экспорт
    ДиалогВыбораЦвета = Новый ДиалогВыбораЦвета;
    Оповещение = Новый ОписаниеОповещения("ВыборЦветаЗавершение", ЭтотОбъект);
    ДиалогВыбораЦвета.Показать(Оповещение);
КонецПроцедуры

&НаКлиенте
Процедура ВыборЦветаЗавершение(Результат, ДополнительныеПараметры) Экспорт
    Если НЕ Результат = Неопределено Тогда
        Элементы.Наименование.ЦветФона = Результат;
        Объект.ЦветФона = Результат;
    КонецЕсли;
КонецПроцедуры

1 prof-net

30.11.14

✎

00:11

Помогли решить на другом форуме... немного странным образом, но работает

Функция ПолучитьАбсолютныйЦвет(ИсходныйЦвет) Экспорт

    Если ИсходныйЦвет.Вид = ВидЦвета.Абсолютный Тогда
        Возврат ИсходныйЦвет;
    КонецЕсли;

    ТабДок = Новый ТабличныйДокумент;
    ТабДок.Область("R1C1").ЦветФона = ИсходныйЦвет;
    ТабДок.Записать("ПреобразованиеЦвета.mxl", ТипФайлаТабличногоДокумента.MXL7);
    ТабДок.Прочитать("ПреобразованиеЦвета.mxl");

    АЦвет = ТабДок.Область("R1C1").ЦветФона;

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

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

2 Chameleon1980

30.11.14

✎

03:01

как-то с месяц назад было про цвета