3. Завдання

1. Змінити інтерфейс програми: шрифти, колір екрана й літер.

Підказка. Можливо, необхідно в коді відкорегувати кількість пробілів.

2. Зробити так, щоб коли курсор миші перебуває в полі ListBox1, з'являлася підказка про те, що треба зробити.

Підказка. Скористайтеся властивостями Hint (текст повідомлення), Showhint ( чи показувати повідомлення) компонента ListBox1.

3. Внести зміни в програму, щоб для кольору й формату RGB використовувались два окремих компоненти Label.

4. Як зміниться програма, якщо вихідні дані про таблицю кольорів будуть задані в масиві?

Контрольні запитання

1. Яке призначення компоненту ListBox?

2. Де і як використовується вбудований редактор для введення інформації?

3. Які властивості та особливості використання оператора Case?

4. Чому для збереження проекту необхідно зберігати файли з розширенням?

5. Що означає властивість Items?

6. Що означає властивість OnKeyPress?

7. Як змінюється шрифт, колір екрану і літер?

8. Що означає властивість Hint компонента ListBox1?

9. Що означає властивість Showhint компонента ListBox1?

10. Які особливості використання масивів?

Практична робота № 5. Тема: Розробка проекту "словник"

1. Постановка завдання

Розробити програму, за допомогою якої користувач міг би скласти словник нових термінів. При необхідності в цей словник можна вносити зміни, доповнювати або скорочувати його. При виборі терміна на контрольній панелі з'являється його номер і загальна кількість слів у словнику.

Рис. 1 Рис. 2

Пояснення: новими в цій програмі є комбінований список ComboBox на сторінці палітри компонентів Standard, що поєднує рядок уведення c компонентом ListBox, вимикач CheckBox на сторінці палітри компонентів Standard, а також функція MessageDlg.

2. План розробки програми

1. Відкрити новий проект.

2. Розмістити у формі компонента відповідно до Рис. 2.

3. Зберегти проект з ім'ям, наприклад, Pr4.pas й Pr4.dpr.

4. Запустити програму, потім закрити вікно проекту кнопкою Вихід.

5. Виконати наступні дії:

Виділений компонент	Вікно інспектора об'єктів	Ім'я властивості	Дія
BitBtn1	Properties	Caption	&Вихід
		Kind	bkClose
ComboBox1	Propeties	Text	Вставити пробіл
		Items	Двічі клацнувши мишею, відкрити String list editor. Увести кілька термінів, зберегти їх у файлі glostext.txt, попередньо переконавшись, що обрано потрібну директорію (див. практичну роботу №4 п. 7).

6. Запустити програму, клацнути на стрілці компонента ComboBox1, вибрати зі списку, що відкрився, будь-який термін, а потім переконатися, що текст, що набираєте в рядку уведення, у список не вноситься. Після цього закрити проект кнопкою Вихід.

7. Виконати наступні дії:

Виділений компонент	Вікно інспектора об'єктів	Ім'я властивості	Дія
Button1	Propeties	Caption	Додати
	Events	OnClick	ComboBox1.Items.Add (ComboBox1.Text); if ComboBox1.ItemIndex = -1 then ComboBox1.Text := ' '; Останній оператор очищає рядок уведення після того, як текст із нього попадає в список.

8. Запустити програму й переконатися, що набрані в рядку уведення слова після натискання кнопки Додати додаються в список ComboBox1.

9. Виконати наступні дії:

Виділений компонент	Вікно інспектора об'єктів	Ім'я властивості	Дія
Button2	Propeties	Caption	Видалити
	Events	OnClick	if MessageDlg('Ви дійсно хочете видалити запис?', mtWarning, [mbYes, mbNo], 0) = mrYes then ComboBox1.Items.Delete(ComboBox1.ItemIndex);

Пояснення. Дана умова означає, що при натисканні кнопки Видалити з'явиться діалогове вікно з питанням 'Ви дійсно хочете видалити запис?' із двома кнопками Yes й No. Тільки при натисканні кнопки Yes попередньо обраний термін буде вилучений зі списку.

MessageDlg є функцією із чотирма аргументами:

1. Повідомлення, яке потрібно відобразити, в одинарних лапках.

2. Тип діалогового вікна - константи: mtWarning, mtError, mtInformation, mtConformation, що визначають спеціальну піктограму й заголовок діалогового вікна.

3. Список констант у квадратних дужках, що визначають присутні у вікні кнопки. Можливі значення - mbYes, mbNo, mbCancel, mbHelp.

4. Число, з яким асоційована тема довідки. Воно відмінно від нуля, якщо у вікні присутнє кнопка mbHelp, а програма має пов'язаний з нею файл довідки Windows.

Функція MessageDlg повертає константу, що визначає натиснуту користувачем кнопку.

10. Якщо запустити програму, додати в список й (або) видалити кілька рядків, закрити її, а потім знову запустити, помітимо, що внесені зміни не збереглися. Це пов'язане з тим, що в ComboBox завантажується первісний список.

11. Виконати наступні дії:

Виділений компонент	Вікно інспектора об'єктів	Ім'я властивості	Дія
Button4	Propeties	Caption	Зберегти
	Events	OnClick	ComboBox1.Items.SaveToFile (‘glostext.txt’);
Form1	Events	OnCreate	ComboBox1.Items.LoadFromFile (‘glostext.txt’);

Пояснення. Тепер при створенні форми в список ComboBox1 завантажується вміст файлу ‘glostext.txt’, а змінений список запам'ятовується в ньому при натисканні кнопки Зберегти.

12. Виконати наступні дії:

Виділений компонент	Вікно інспектора об'єктів	Ім'я властивості	Дія
Button3	Propeties	Caption	Редагувати
ComboBox1	Events	OnClick	Num := ComboBox1.ItemIndex; Попередньо описати в розділі Var целочисленную змінну num.
Button3	Events	OnClick	ComboBox1.Items.Delete (num); ComboBox1.Items.Add (ComboBox1.Text); if ComboBox1.ItemIndex = -1 then ComboBox1.Text := ' ';

Пояснення.

1. Для виправлення помилок, замічених у рядках списку, виділену рядок треба видалити зі списку, а виправлений рядок (тобто вміст рядка уведення) додати в список.

2. Нова змінна num необхідна для збереження номера обраного рядка. При внесенні змін обраним рядком стає рядок уведення, для якої ItemIndex = -1.

13. Для кнопок Додати, Редагувати, Видалити для збереження внесених змін необхідно додати:

Виділений компонент	Вікно інспектора об'єктів	Ім'я властивості	Дія
	Events	OnClick	ComboBox1.Items.SaveToFile (‘glostext.txt’);

14. Запустити програму й переконатися, якщо при виборі рядка, виправивши його, а потім натиснути кнопку Редагувати, то змінений рядок потрапить у кінець списку.

15. Передбачити режим роботи зі списком, що допускає тільки читання.

Пояснення.

Комбіновані списки бувають 3 типів:

• прості (simple) - список завжди відкритий;

• що розкриваються (drop down) - список згорнуть;

• незмінні (drop down list) - список згорнуть і можливий тільки вибір елемента зі списку.

Виділений компонент	Вікно інспектора об'єктів	Ім'я властивості	Дія
CheckBox1	Propeties	Caption	Тільки читання
	Events	OnClick	if CheckBox1.Checked = False then ComboBox1.Style := csDropDown else ComboBox1.Style := csDropDownList; Властивість Checked в обраного вимикача має значення True, а у вихідному стані - значення False.

16. У режимі Тільки читання, зробити недоступної кнопку Додати:

Виділений компонент	Вікно інспектора об'єктів	Ім'я властивості	Дія
CheckBox1	Events	OnClick	if CheckBox1.Checked = false then Button1.Enabled := true else Button1.Enabled := false;

Аналогічно зробити недоступними кнопки Редагувати, Видалити, Зберегти.

17. Зберегти проект, запустити й протестувати його.