Пытаюсь вывести интервал с другим цветом, но цвет остается прежним в цикле:
Значение = ЭлементыФормы.ДиаграммаГанта1.ПолучитьЗначение(Точка, Серия);
           Интервал = Значение.Добавить();
           //Интервал.Расшифровка = ""+Стр.Номенклатура.Код+","+Стр.Цвет.Код;
           Интервал.Расшифровка = Новый Структура("ТолькоПечать,Номенклатура,Цвет,План,Передано,Заявка,ДляКонтрагента,КПередаче",Ложь,Стр.Номенклатура,Стр.Цвет,Стр.Штук,Стр.Передано,Стр.Заявка,Стр.ДляКонтрагента,Стр.КПередаче);
           Интервал.Текст       = "Запланировано: "+Строка(Стр.Штук)+" шт."+Символы.ПС + "Осталось собрать: "+Строка(Стр.Штук - Стр.Передано - Стр.КПередаче)+" шт.";
           Интервал.Начало      = Стр.Заявка.ДатаНачала;
           Интервал.Конец       = Стр.Заявка.ДатаКонца;
           Интервал.Цвет        = Новый Цвет(255,0,0);
           ДлиннаПлана = Стр.Заявка.ДатаКонца - Стр.Заявка.ДатаНачала;
           Если Не Стр.Передано = 0 Тогда
           Интервал = Значение.Добавить();
           Интервал.Расшифровка = Новый Структура("ТолькоПечать,Номенклатура,Цвет,План,Передано",Истина,Стр.Номенклатура,Стр.Цвет,Стр.Штук,Стр.Передано);
           Интервал.Текст       = "Передано на склад: "+Строка(Стр.Передано)+" шт.";
           Интервал.Начало      = Стр.Заявка.ДатаНачала;
           ДлиннаНаПередано     = Цел((ДлиннаПлана * Стр.Передано)/Стр.Штук);
           КонецПередано        = Стр.Заявка.ДатаНачала + ДлиннаНаПередано;
           Интервал.Конец       = КонецПередано;
           Интервал.Цвет        = Новый Цвет(0,255,0);
           КонецЕсли;    

           Если Не Стр.КПередаче = 0 Тогда
           Интервал = Значение.Добавить();
           Интервал.Расшифровка = Новый Структура("ТолькоПечать,Номенклатура,Цвет,План,Передано",Истина,Стр.Номенклатура,Стр.Цвет,Стр.Штук,Стр.Передано);
           Интервал.Текст       = "К передаче на склад: "+Строка(Стр.КПередаче)+" шт.";
           Интервал.Начало      = КонецПередано;
           ДлиннаКПередаче      = Цел((ДлиннаПлана * Стр.КПередаче)/Стр.Штук);
           КонецКПередаче       = КонецПередано + ДлиннаКПередаче;
           Интервал.Конец       = КонецКПередаче;
           Интервал.Цвет        = Новый Цвет(255,0,255);
           КонецЕсли;