Создадим приложение «Редактор цвета». Каждый цвет математически описывается как соотношение базовых компонент. В цветовой модели RGB базовыми компонентами считаются следующие цвета: красный, зеленый, синий. Для получения остальных цветов будем смешивать оттенки базовых, которые измеряются от 0 до 255.
На форме расположим три компонента ScrollBar (Sb1, Sb2, Sb3), которые будет регулировать оттенок каждого базового компонента. В свойстве max каждого из компонентов укажите значение 255. Свойство Color метки Label5 будет отображать полученный цвет.
Создадим событие изменения значения величины для первого базового компонента (R - красного).
Опишите глобальные переменные a, b, с, которые будут содержать текущее значение числовой величины каждого из регуляторов.
procedure TForm1.Sb1Change(Sender: TObject);
Begin
a:=sb1.position;
label5.color:= rgb(a,c,b);
edit1.text:=inttostr(a);
end;
Аналогично создаются события для двух других компонентов ScrollBar.
