Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015

Опубликуйте свой материал в официальном Печатном сборнике методических разработок проекта «Инфоурок»

(с присвоением ISBN)

Выберите любой материал на Вашем учительском сайте или загрузите новый

Оформите заявку на публикацию в сборник(займет не более 3 минут)

+

Получите свой экземпляр сборника и свидетельство о публикации в нем

Инфоурок / Информатика / Другие методич. материалы / Задание на урок "Использование компонента ScrolBar. Delphi"
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 24 мая.

Подать заявку на курс
  • Информатика

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

библиотека
материалов


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

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



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

Выберите специальность, которую Вы хотите получить:

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

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ

Похожие материалы

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