Имя: Пароль:
1C
1С v8
Получить цвет RGB в диалоге 1С 8.3 (такси)
0 prof-net
 
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
как-то с месяц назад было про цвета