Задание на урок "Использование компонента 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);

Label4

label1, label2, label3

ScrollBar

  r:=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  окрасится в белый цвет

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