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

Раздел Информатика
Класс 10 класс
Тип Другие методич. материалы
Автор
Дата
Формат doc
Изображения Есть
For-Teacher.ru - все для учителя
Поделитесь с коллегами:

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


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

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

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

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

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

  1. ДЗадание на урок Использование компонента ScrolBar. DelphiЗадание на урок Использование компонента ScrolBar. Delphiля всех скроллингов значение свойства max установить равным 255

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

  3. НЗадание на урок Использование компонента ScrolBar. DelphiЗадание на урок Использование компонента ScrolBar. DelphiЗадание на урок Использование компонента ScrolBar. Delphiа событие 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;


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

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;


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

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

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

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


© 2010-2022