Программное изменение фона кнопок

[nmtn]

Доброго времени суток.
Есть группа с кнопками на форме внешней обработки. Можно ли сделать так, что бы кнопки меняли цвет при нажатии на них?

[oleg-x]

Доброго времени суток.
Есть группа с кнопками на форме внешней обработки. Можно ли сделать так, что бы кнопки меняли цвет при нажатии на них?

Можно

[nmtn]

Доброго времени суток.
Есть группа с кнопками на форме внешней обработки. Можно ли сделать так, что бы кнопки меняли цвет при нажатии на них?

Можно

Не подскажите как лучше сделать: через цикл или условием?

[oleg-x]

Через событие при нажатие на кнопку.

[Golickoff]

Когда-то меня тоже заинтересовал подобный вопрос...

Код Выделить Развернуть

Для А = 0 По 255 Цикл //Красный -> Жёлтый
ЭтаФорма.Элементы.Чпоньк.ЦветФона = Новый Цвет(255,А,0);
ОбновитьОтображениеДанных();
В = ТекущаяУниверсальнаяДатаВМиллисекундах();
Пока (ТекущаяУниверсальнаяДатаВМиллисекундах() - В) < 35 Цикл
КонецЦикла;
КонецЦикла;
Для А = 0 По 255 Цикл //Жёлтый -> Зелёный
ЭтаФорма.Элементы.Чпоньк.ЦветФона = Новый Цвет(255-А,255,0);
ОбновитьОтображениеДанных();
В = ТекущаяУниверсальнаяДатаВМиллисекундах();
Пока (ТекущаяУниверсальнаяДатаВМиллисекундах() - В) < 35 Цикл
КонецЦикла;
КонецЦикла;
Для А = 0 По 255 Цикл //Зелёный -> Голубой
ЭтаФорма.Элементы.Чпоньк.ЦветФона = Новый Цвет(0,255,А);
ОбновитьОтображениеДанных();
В = ТекущаяУниверсальнаяДатаВМиллисекундах();
Пока (ТекущаяУниверсальнаяДатаВМиллисекундах() - В) < 35 Цикл
КонецЦикла;
КонецЦикла;
Для А = 0 По 255 Цикл //Голубой -> Синий
ЭтаФорма.Элементы.Чпоньк.ЦветФона = Новый Цвет(0,255-А,255);
ОбновитьОтображениеДанных();
В = ТекущаяУниверсальнаяДатаВМиллисекундах();
Пока (ТекущаяУниверсальнаяДатаВМиллисекундах() - В) < 35 Цикл
КонецЦикла;
КонецЦикла;
Для А = 0 По 255 Цикл //Синий -> Фиолетовый
ЭтаФорма.Элементы.Чпоньк.ЦветФона = Новый Цвет(А,0,255);
ОбновитьОтображениеДанных();
В = ТекущаяУниверсальнаяДатаВМиллисекундах();
Пока (ТекущаяУниверсальнаяДатаВМиллисекундах() - В) < 35 Цикл
КонецЦикла;
КонецЦикла;
Для А = 0 По 255 Цикл //Фиолетовый -> Красный
ЭтаФорма.Элементы.Чпоньк.ЦветФона = Новый Цвет(255,0,255-А);
ОбновитьОтображениеДанных();
В = ТекущаяУниверсальнаяДатаВМиллисекундах();
Пока (ТекущаяУниверсальнаяДатаВМиллисекундах() - В) < 35 Цикл
КонецЦикла;
КонецЦикла;