|
0
prof-net
29.11.14
✎
17:16
|
Здравствуйте
Никак не могу разобратьс :(
В форме создаю диалог выбора цвета, и выбраный цвет записываю в реквизит как строку. Но потом работать с названием этого цвета у меня не очень получается. Хочу получить цвет в виде RGB, но в передоваемом параметре “Результат” – красный, синий, зеленый имеют знгачение “-1”
&НаКлиенте
Процедура ВыборЦветаФона(Команда) Экспорт
ДиалогВыбораЦвета = Новый ДиалогВыбораЦвета;
Оповещение = Новый ОписаниеОповещения("ВыборЦветаЗавершение", ЭтотОбъект);
ДиалогВыбораЦвета.Показать(Оповещение);
КонецПроцедуры
&НаКлиенте
Процедура ВыборЦветаЗавершение(Результат, ДополнительныеПараметры) Экспорт
Если НЕ Результат = Неопределено Тогда
Элементы.Наименование.ЦветФона = Результат;
Объект.ЦветФона = Результат;
КонецЕсли;
КонецПроцедуры
|
|
|
1
prof-net
30.11.14
✎
00:11
|
Помогли решить на другом форуме... немного странным образом, но работает
Функция ПолучитьАбсолютныйЦвет(ИсходныйЦвет) Экспорт
Если ИсходныйЦвет.Вид = ВидЦвета.Абсолютный Тогда
Возврат ИсходныйЦвет;
КонецЕсли;
ТабДок = Новый ТабличныйДокумент;
ТабДок.Область("R1C1").ЦветФона = ИсходныйЦвет;
ТабДок.Записать("ПреобразованиеЦвета.mxl", ТипФайлаТабличногоДокумента.MXL7);
ТабДок.Прочитать("ПреобразованиеЦвета.mxl");
АЦвет = ТабДок.Область("R1C1").ЦветФона;
Возврат АЦвет;
КонецФункции
|
|