Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Другие методич. материалы / Задание на урок "Использование компонента ScrolBar. Delphi"

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



Осталось всего 2 дня приёма заявок на
Международный конкурс "Мириады открытий"
(конкурс сразу по 24 предметам за один оргвзнос)


  • Информатика

Поделитесь материалом с коллегами:


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


hello_html_5813f964.pnghello_html_5ee8dd31.gif

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

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

  1. Иhello_html_m5d5dc5bd.gifhello_html_31a6a1c3.gifзменить имена для скроллингов на

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

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

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

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

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


procedure TForm1.S1Change(Sender: TObject);

begin

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

ScrollBar


Label4

label1, label2, label3

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

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





57 вебинаров для учителей на разные темы
ПЕРЕЙТИ к бесплатному просмотру
(заказ свидетельства о просмотре - только до 11 декабря)


Автор
Дата добавления 16.09.2015
Раздел Информатика
Подраздел Другие методич. материалы
Просмотров108
Номер материала ДA-048000
Получить свидетельство о публикации
Похожие материалы

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