Практическая работа №7 Разработка проекта цвета в формате rgb Постановка задачи

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

Новым в этой работе являются: 

• полос прокрутки ScrollBar для ввода данных,

• компонента Panel,

• функций преобразования значений цветовых составляющих – TColorRef.

Задание

Подсказка

1

Поместить на форму кнопку выхода из программы. 

2

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

Поместить в событие при создании формы (OnCreate для Form1) обработку значений позиции ScrollBar1, ScrollBar2 и ScrollBar3.

3

Внесите изменения так, чтобы выводились на экран значение кода цвета ни только в десятичной системе счисления, но и в шестнадцатеричной системе счисления.

Добавить объект Label4. Поместить в событие по изменению полосы прокрутки ScrollBar (RedBar) дополнительную строку, изменяющую свойство нового компонента Label4:

Label4.Caption:=Format('0x%x', [RedBar.Position]);

Или можно воспользоваться функцией IntToHex.

После запуска программы появляется изображение аналогичное рисунку. Пользователь, перемещаясь с помощью клавиш-стрелок по левому списку "Физических величин", выбирает любое слово, нажав клавишу Enter.

Новым в этой работе является: 

• взаимодействие двух списков ListBox на основе свойств Items и ItemIndex,

• создание многострочных надписей в компоненте Label.

Задание

Подсказка

1

Списки ListBox1 и ListBox2 сделать поочередно доступными после нажатия клавиши Enter.

В Object Inspector свойству Enabled компонента ListBox2 придать значение False, а в процедуру KeyPressed, относящуюся к ListBox1, включить строки:

ListBox2.Enabled := True; ListBox1.Enabled := False; Form1.ActiveControl := ListBox2;

2

Выполнить проект так, чтобы при правильном выборе названия физической величины слово в левом списке исчезало. 

В процедуру KeyPressed, относящуюся к ListBox2, там, где обрабатывается правильный ответ, включить:

ListBox1.Items.Delete(Num1); ListBox1.Items.Insert(Num1, ‘’); 

3

Расширить количество физических величин до 10. Внести необходимые изменения в программу.