7. Змініть колір фону форми.

Для цього у вікні властивостей форми Object Inspector у рядку Color виберіть значення кольору фону двома способами:

• викличте вікно вибору кольору подвійним клацанням мишею на поточному значенні властивості Color. Виберіть один із базових кольорів (Basic colors) або встановіть свій власний (Define Custom Colors) колір. Підтвердіть вибір (Ок).

• за допомогою випадаючого меню поекспериментуйте з різними значеннями властивості Color. Задайте початкове значення кольору — clBtnFace.

8. Виконайте програму ще раз (див. Пункт 3).

9. Вставте у форму об’єкт Panel.

Два рази клацніть мишею на піктограмі Panel на закладці Standard палітри компонентів головного вікна Delphi. Якщо об'єкт Panel невиокремлений, активізуйте його і у вікні Object Inspector задайте наступні значення властивостей:

Align - alBottom,

Caption - пуста стрічка,

Height – 70,

BorderStyle – bsSingle.

Зауваження. У вікні Object Inspector відображається список властивостей лише активного на даний момент об'єкта.

10. Вставте у форму об’єкт GroupBox, що розташований на закладці Standard.

Активізуйте його і у вікні Object Inspector задайте наступні значення властивостей:

Align: alLeft,

Caption: Анкета студента,

Width: 295,

Color: clCream

Font:

Name: Times New Roman Cyr;

Font style: Bold;

Size: 16;

Color: clPurple.

11. По черзі вставте на об’єкт GroupBox текстові поля (об'єкт типу Label), що міститимуть біографічні дані (прізвище, ім’я, по-батькові, дата народження, група, адреса проживання, e-mail, назва навчального закладу, факультет, форма навчання, стипендія тощо).

Два рази клацніть мишею на піктограмі Label на закладці Standard палітри компонентів головного вікна Delphi. У вікні Object Inspector змініть значення властивостей кожного текстового поля на такі:

Align: alTop;

Caption відповідний текст з власної біографії;

Font:

Font : Times New Roman Cyr;

Font style: Bold;

Size : 14;

Color : clBlack.

WordWrap: True

Приклад розташування об’єктів наведено на рис. 1.

12. Вставте у форму об'єкт типу Image (зображення).

Для цього клацніть один раз лівою клавішею миші на піктограмі Image закладки Additional (додаткові) палітри компонентів і, наприклад, у верхньому правому куті форми обведіть контур для майбутнього зображення. Змінювати розміри об'єкта можна методом їх "розтягування" за маркери (чорні габаритні квадратики). За замовчуванням цей об'єкт має стандартну назву Image1 (значення властивості Name), яку можна змінити на власний розсуд. Задайте значення властивостей об’єкта Align: alClient.

Рис. 1. Орієнтовне розташування об’єктів на формі

13. Вставте свою портретну фотографію за допомогою властивості Picture (ілюстрація) об'єкта Image.

Для цього виокремте об'єкт Image1 і активізуйте рядок Picture у вікні Object Inspector. Клацнувши на кнопці , викличте діалогове вікно вибору малюнка Picture Editor. Клацніть на кнопці Load (завантажити) і у вікні Load picture зазначте шлях до файлу з фотографією. Якщо такого Файлу немає, скористайтесь будь-якою фотографією з бібліотеки 16color, яка за замовчуванням знаходиться у папці C:\ Program Files \ Borland \ Delphi 7 \ Demos \ Websnap \ Images. Виберіть будь-який файл => Open. Підтвердіть свій вибір у вікні Picture Editor натисканням на клавішу Ок. Задайте властивість Stretch для об'єкта Image1 як True.

14. Вставте свою художню фотографію у форму поверх існуючої, скориставшись ще одним об'єктом типу Image.

Вважатимемо, що цей об'єкт має назву Image2.

Зауваження. Під час накладання об'єктів може виникнути потреба використати команди Send To Back (переслати назад) чи Bring To Front (перенести наперед), які є в їх контекстових меню Control.

15. Поекспериментуйте з властивістю Visible (видимість) обох зображень, кожного разу виконуючи програму (див. пункт 3).

Після цього встановіть значення властивості Visible у False для обох зображень.

16. Вставте на панель кнопки для відображення фотографій (два об'єкти типу Button з назвами Button1 і Button2).

Піктограма об'єкта типу Button (кнопка) знаходиться на закладці Standard палітри компонентів головного вікна Delphi. У властивості Caption задайте підписи для кнопок: "Портретна фотографія" та "Художня фотографія" відповідно. Виберіть, на ваш розсуд, розмір та тип шрифту підписів.

На рис. 2 зображено орієнтовний інтерфейс програми.

Рис. 2. Орієнтовний інтерфейс програми

17. 3апрограмуйте кнопку "Портретна фотографія" так, щоб після її натискання у формі з'являлась портретна фотографія.

Для програмування кнопки Button1 необхідно два рази клацнути на ній лівою клавішею миші. У результаті активізується вікно тексту програми з заготовкою процедури Button1Click, яка опрацьовуватиме подію клацання на кнопці Button1:

procedure TForm1.Button1Click(Sender: TObject);

begin

end;

У заготовку необхідно вставити текст програми реакції на цю подію. Процедура матиме такий вигляд:

procedure TForm1.Button1Click(Sender: TObject);

begin

Imagel.Visible:=True; {Портретна фотографія стає видимою}

Image2.Visible:=False; {Художня фотографія стає невидимою}

end;

18. Запрограмуйте кнопку «Художня фотографія» відповідно до її призначення (див. пункт 17).

Текст програми для цієї кнопки матиме вигляд:

procedure TForm1.Button2Click(Sender: TObject);

begin

Imagel.Visible:= False; {Портретна фотографія стає невидимою}

Image2.Visible:= True; {Художня фотографія стає видимою}

end;

Щоб створити таку процедуру швидко можна скопіювати дві команди присвоєння з попередньої процедури у нову і поміняти вирази справа.

19. Виконайте програму і впевніться, що кнопки виконують свої функції. Закрийте вікно програми «Анкета студента».

20. Збережіть створену програму у своїй власній папці.

Виберіть елемент головного меню Fіle => Save Аll (Зберегти Все) або натисніть кнопку Save All на панелі інструментів.

21. Вставте у форму третю фотографію і ще одну кнопку з відповідним підписом, яка її відображатиме.

22. Поміняйте підписи для кнопок на такі "Змінити фотографію" та "Забрати фотографію", перепрограмувавши кнопки відповідно до нового призначення. Запишіть фрагменти зміненого програмного коду у звіт. Виконайте програму і переконайтесь у правильності її роботи.

У тексті процедур, що описують роботу кнопок можна скористатись командами вигляду:

if Image1.Visible = True Then …. {якщо видимість = True }

23. Поміняйте сценарій роботи програми пункту 22 на наступний:

• відразу після запуску програми фотографій не видно, є дві кнопки "Портретна фотографія" і "Забрати фотографію" , доступною є лише перша кнопка;

• після клацання на кнопці "Портретна фотографія" у формі з'являється портретне фото, підпис на першій кнопці змінюється на "Художня фотографія", стає доступною кнопка "Забрати фотографію";

• після клацання на кнопці "Художня фотографія" фотографія у формі змінюється на художню, а підпис на цій кнопці змінюється на "Третя фотографія";

• після клацання на кнопці "Третя фотографія" фотографія у формі змінюється на третю, а підпис на цій кнопці змінюється на "Портретна фотографія";

• після клацання на кнопці "Забрати фотографію" фотографія зникає і ця кнопка стає недоступною.

Запишіть фрагменти програмного коду у звіт. Виконайте програму і переконайтесь у правильності її роботи.

Підказка. У тексті процедур, які описують роботу кнопок, можна скористатися командами, що змінюють властивості кнопок Caption (підпис), Visible (видимість), Enabled (доступність).

24. В умовах пункту 23 після клацання на кнопці "Забрати фотографію" ця кнопка стає не лише недоступною, але і невидимою.

25. Змініть програмний код розв'язування пункту 24 так, щоб після вимкнення фотографій напис на першій кнопці завжди відповідав фотографії, яка повинна з'явитися після її натискання.

26. Виходячи з умови пункту 25, добийтеся того, щоб послідовність перемикання фотографій не порушувалася внаслідок їх вимкнення, а також додайте текстовий підпис з назвою фотографії, видимою у поточний момент.

27. Створіть ехе-файл програми.

Виконайте команду головного меню Project => Build All Projects (Сконструювати все).

28. Закрийте Delphi, виконайте створену програму і поексперементуйте з побудованими кнопками.

Запустіть ехе-файл програми зі своєї власної папки.