Практична робота № 7. Тема: Розробка проекту "Кольори у форматі rgb"
Постановка задачі
Розробити програму, за допомогою якої користувач міг би побачити залежно від значень насиченості червоні, зелені й синього результуючі кольори.
Рис. 1 Рис. 2
Пояснення: новим у цій програмі буде використання:
Смуг прокручування ScrollBar (сторінка палітри компонентів Standard) як уведення даних,
Функцій перетворення значень колірних складових – tColorRef.
План розробки програми
Відкрити новий проект.
Розмістити у формі компоненти відповідно до Рис. 2.
Смуга прокручування ScrollBar може бути горизонтальною (за замовчуванням) або вертикальною. Це визначається властивістю Kind. У нашому випадку використовується вертикальна смуга прокручування.
Зберегти проект під ім'ям, наприклад, Pr6.pas й Pr6.dpr
Виконати наступні дії:
Виділений компонент |
Вікно інспектора об'єктів |
Ім'я властивості |
Дія |
ScrollBar1 |
Propeties |
Name |
Замінити на RedBar |
|
|
Max |
255 діапазон цілих значень (максимальне) - кількість градацій компонент RGB |
|
|
Position |
122 початкове значення |
Аналогічно задайте значення для ScrollBar2 й ScrollBar3, привласнивши їм імена GreenBar й BlueBar.
Для всіх компонентів форми властивості Caption дайте значення ' '.
Виконати наступні дії:
Виділений компонент |
Вікно інспектора об'єктів |
Ім'я властивості |
Дія |
RedBar (див. п. 5 -ScrollBar1) |
Events |
OnChange |
Panel1.Color := TColorRef(RGB(RedBar.Position,0,0)); Label.Caption := IntToStr(RedBar.Position); Panel4.Color := TcolorRef(RGB (RedBar.Position, GreenBar.Position, BlueBar.Position)); |
Аналогічно задайте значення для ScrollBar2 й ScrollBar3, простежте за правильністю запису параметрів у функції RGB й IntToStr.
Пояснення.
Залежно від пересування повзунка ScrollBar1, будуть мінятися кольори Panel1, виводитися числове значення коду на місці Label і мінятися кольори Panel4.
Зберегти проект остаточно, запустити й протестувати його.
3. Завдання
Вставте кнопку виходу із програми.
Передбачите, щоб при запуску програми були встановлені початкові кольори панелей залежно від вихідних значень повзунків.
Підказка. Помістити в подію при створенні форми (OnCreate для Form1) обробку значень позиції ScrollBar1, ScrollBar2 й ScrollBar3.
Внесіть зміни так, щоб виводилися на екран значення коду кольору не тільки в десятковій системі числення, але й у шістнадцятковій системі числення.
Контрольні питання
Для чого використовується смуга прокручування ScrollBar? Яка характеристика цього компоненту змінюється властивістю Kind?
Чому необхідно зберігати файли з розширенням .dpr та .pas?
Як реалізувати початкове виведення різних кольорів на відповідних панелях?
Як реалізувати можливість виходу із проекту після натискання на відповідну кнопку?
Яка операція переводить числа у шістнадцяткову систему числення?