Задание на урок 'Использование компонента ScrolBar. Delphi'

Delphi. Функция RGB, компонент Scroolling

1. На форме разместить 3 объекта ScrollBar

и 4 объекта Label и сделать поясняющие надписи (по образцу)

2. Изменить имена для скроллингов на

S1, S2, S3 (для краткости написания)

3. Для всех скроллингов значение свойства max установить равным 255

4. Объявить глобальные переменные r,g,b

5. На событие Change для первого склоллинга написать процедуру, которая присваивает объекту label1 и переменной R значение положения ползунка на скролллинге и устанавливает цвет label4

с помощью функции RGB:

procedure TForm1.S1Change(Sender: TObject);

begin

label1.Caption:=IntToStr(S1.position);

ScrollBar

Label4

label1, label2, label3r:=S1.position;

label4.Color:=RGB(R,G,B);

end;

6. Написать аналогичные процедуры для второго и третьего скроллингов.

procedure TForm1.S2Change(Sender: TObject);

begin

label2.Caption:=IntToStr(S2.position);

g:=S2.position;

label4.Color:=RGB(R,G,B);

end;

procedure TForm1.S3Change(Sender: TObject);

begin

label3.Caption:=IntToStr(S3.position);

b:=S3.position;

label4.Color:=RGB(R,G,B);

end;

7. Проверяем работу:

Установите ползунки в значение равное 0 - компонент Label4 окрасится в черный цвет.

Установите ползунки в значение равное 255 - компонент Label4 окрасится в белый цвет

Промежуточные положения ползунков дадут широкий спектр цветов, таким образом из трех базовых цветов получаем всю гамму цветов.