Основные понятия и элементы языка 5 страница

4. ефективно використовувати властивості компонентів
при роботі з проектами у середовищі програмування Delphi;

5. створювати, редагувати, виконувати тестування та
налагодження програм (проектів) опрацювання подій
у середовищі візуального програмування Delphi.

Порядок оформлення звіту:

Звіт повинен складатися з наступних частин:

1. Тема роботи.

2. Мета роботи.

3. Хід роботи.

4. Висновки до роботи.

Практична робота №27

Робота з файлами записів у середовищі Delphi.

Мета: Навчитися користуватися основними елементами інтерфейсу середовища програ­му­вання Delphi для створення, редагуван­ня, налагодження та виконання програм (проектів) для роботи з файлами записів.

Теоретичні відомості:

Об’єкт (компонент) PageControl призначений для створення багатосто­рін­ко­во­го блокноту як нової форми „Tabbed Notebook Dialog” (об’єкт PagesDlg) коман­дою File Þ New … Þ закладка Forms Þ Tabbed Pages Þ Ok. Після її створення не­­потрібну форму „Form1” у разі необхідності можна знищити за допомогою кноп­ки Remove unit вікна менеджера проекту (Project Manager). Виклик вікна менед­жера проекту здійснюється командою View Þ Project Manager. Під час прак­­тичної роботи активізацію об’єктів PageControl i PagesDlg зручно здійс­ню­ва­ти за допомогою випадаючого списку компонентів вікна інспектора об’єктів. Влас­ти­вості об’єкта PagesDlg збігаються з властивостями звичайної форми Form. Розглянемо нові властивості блокнота PageControl:

Властивості окремої сторінки блокнота (об’єкта TabSheet) стандартні.

Об’єкт ComboBox використовують для створення випадаючого списку. Цей об’єкт (компонент) володіє такими новими властивостями:

Стандартні діалоги відкривання (об’єкт (компонент) OpenDialog) та збере­жен­ня файлів (об’єкт SaveDialog), – це невидимі на формі об’єкти, при­зна­чені для створення ста­н­дартних вікон Windows: „Open File” та „Save File as” – у момент виклику їх з про­грамного коду проекту командою OpenDialog1.Execute чи SaveDia­log1.Exe­cu­te. Ім’я вибраного файлу повертається у програму властивістю FileName цих об’єктів.

Практична робота №27 була створена на основі практичної роботи (№5) книги Глинський Я. М., Анохін В. Є., Ряжська В. А. Паскаль. Turbo Pascal i Delphi. Навчальний посібник. – Львів: СПД Глинський, 2007. – 119-127 с.

Порядок виконання роботи:

1. Завантажте середовище візуального програмування Delphi.

Запуск Delphi виконують клацанням на піктограмі Delphi (1 раз ЛКМ) або за допомогою каскадного меню Start – Programs – Borland Delphi 7 – Delphi 7

2. Відкрийте нову форму з багатосторінковим блокнотом.

Команда основного меню Delphi: File Þ New … Þ закладка Forms Þ Tabbed Pages Þ Ok.

3. Виокремте та вилучіть (Delete) невидиму панель з кнопками
Ok, Cancel i Help у нижній частині відкритої форми.

4. Змініть заголовок форми з „Tabbed Notebook Dialog”
на „Телефонний довідник” та змініть стиль межі вікна.

Для цього спочатку у вікні Object Inspector у списку компонентів поточної форми виберіть об’єкт PagesDlg (вікно форми з багатосторінковим блокнотом). Лише після цього можна змінити його заголовок та стиль: властивості Caption та BorderStyle (Sizeable – здатний змінювати розмір).

5. Виокремте (клацнувши всередині сторінки мишею)
та знищіть (Delete) третю сторінку блокнота TabSheet3.

Потрібно робити це уважно, щоб не знищити весь багатосторінковий блокнот – об’єкт PageControl1. У разі необхідності можна відмовитись від неправильної дії командою Edit Þ Undelete. Додати нову сторінку до блокнота можна командою New Page контекст­но­го меню об’єкта PageControl (блокнот) чи TabSheet (сторінка блокнота).

6. Замініть заголовки першої та другої сторінок блокнота на „Список всіх записів” та „Редагування та пошук записів” відповідно.

Властивість Caption для наступних об’єктів: TabSheet1 і TabSheet2.

7. Заповніть обидві сторінки форми візуальними об’єктами (компонентами).

TabSheet1: компонент StringGrid1 (сторінка Additional палітри компонентів середовища Delphi). TabSheet2: компоненти – Button1, Button2, Button3, Button4 (сторінка Standard па­літ­ри компонентів середовища Delphi); Edit1, Edit2, Edit3, Edit4, Edit5 (сторінка Standard палітри компонентів середовища Delphi); ComboBox1 (піктограма ComboBox на сторінці Standard палітри компо­нен­тів середовища Delphi); Label1, Label2, Label3, Label4, Label5, Label6, Label7 (сторінка Standard палітри компо­нен­тів середовища Delphi); GroupBox1 (сторінка Standard палітри компо­нен­тів середовища Delphi). Задайте наступні власти­вості компонентів: – Button1 – Caption („Попередній”); – Button2 – Caption („Знайти”); – Button3 – Caption („Стерти”); – Button4 – Caption („Наступний”); – ComboBox1 – Style (csDropDownList (випадаючий список)); – GroupBox1 – Caption („Знайдено запис”); – StringGrid1 – ColCount (4); StringGrid1 – FixedCols (0); – StringGrid1 – RowCount (100); – StringGrid1 – FixedRows (1); – StringGrid1 – Options Þ goEditing (True); – Label1 – Caption („Виберіть прізвище зі списку:”); – Label2 – Caption („або”); – Label3 – Caption („Введіть прізвище:”); – Label4 – Caption („Прізвище”); – Label5 – Caption („Ім’я”); – Label6 – Caption („Адреса”); – Label7 – Caption („Телефон”). Очистіть поля властивості Text об’єк­тів Edit1, Edit2, Edit3, Edit4, Edit5 та ComboBox1.

8. Збережіть створену на даний момент форму у своїй папці.

Для цього виберіть команду головного меню File – Save All (Збе­регти Все) або натисніть на кнопку Save All панелі інстру­ментів. У першому рядку вікна, яке з’явиться (Save Unit1 As) під заголовком Save in: (Зберегти в:), за допомогою випадаючо­го меню виберіть ім’я ро­­бо­чого диска, після чого знайдіть і відкрийте свою власну папку. Задайте назву для фай­лу тек­с­ту програми, попередньо знищивши запропоновану комп’ютером назву Unit1.pas, PRGRM27.pas Þ Save. У наступному вікні Save Project1 As дайте назву файлові про­екту, стерши запропоновану комп’ютером назву Project1.dpr, PRJCT27.dpr Þ Save. У подальшому періодично, зокрема перед черговими запусками проекту на виконання, зберігайте файли програми (File – Save All).

9. За допомогою миші задайте ширину стовпців таблиці.

Для цього мишею пересуньте межу між двома стовпцями у першому (сірому) рядку таблиці StringGrid1. Не допускайте появи горизонтальної смуги прокручування у таблиці.

10. Додайте до форми головне меню і введіть назви його команд.

Для цього використайте компонент MainMenu із сторінки Standard палітри компонентів Delphi. Роз­та­шуй­те піктограму в довільному місці форми. Виберіть об’єкт MainMenu1 і двічі клацніть на значен­ні його властивості Items. Ін­ший шлях – двічі клацніть на само­му об’єкті. У вікні, яке відкриється, виби­райте мишею рамку команди і записуйте назву ко­манди, як значення властивості Caption у вікні Object Inspector. Задайте три пунк­ти го­лов­­но­го меню: Файл (Прочитати з файлу, Записати у файл; Кінець), Редагувати (Впорядкувати за алфавітом: А _ Я, Я _ А; Зберегти зміни у списку записів) та Про програму. Для того, щоб провести лінію-розділювач між командами меню „Записати у файл” і „Кінець”, створіть між ними додатковий пункт із заголовком „–”. Підменю „А _ Я” та „ Я _ А” команди „Впорядкувати за алфавітом” створюють за допомогою комбінації клавіш Ctrl + <стрілка вправо> або використовують контекстне меню Create Submenu цієї команди. Знищення непотрібної команди здійснюють клавішею Delete.

11. Створіть вікно форми „Про програму”.

Додайте до проекту нове вікно форми типу About box (File Þ New ... Þ закладка Forms Þ AboutBox Þ Ok). Змініть тексти та заголовок форми, вказавши своє прізвище, назву та версію програми, дату створення. Змініть зображення у вікні на власний розсуд, змінивши властивість Picture об’єкта ProgramIcon.

12. Запрограмуйте команду „Про програму” головного меню вікна „Телефонний довідник” так, щоб у момент її виконання на екрані з’являлося щойно спроектоване вікно.

У заготовку процедури обробки цієї команди введіть рядок: AboutBox.Show. Це – виклик методу Show (показати) об’єкта AboutBox.

13. Запрограмуйте кнопку „Ok” вікна „Про програму”.

Для цього поверніться до форми „Про програму” (вікно форми „Про програму” знахо­ди­ться під іншими вікнами Delphi) і у програмному коді кнопки Ok (процедурі OkButtonClick) введіть команду закриття активної форми: Close.

14. Вилучіть непотрібну порожню форму Form1 з проекту.

Для цього викличте менеджер проекту командою View Þ Project Manager. Виокремте рядок зі значенням Form1 у полі Form та натисніть клавішу Delete. Нe зберігайте цю форму (No). Закрийте вікно менеджера проекту.

15. Запрограмуйте команду Файл Þ Кінець головної форми.

16. Збережіть роботу та запустіть проект на виконання.

Виконайте команду головного меню File – Save All або натисніть на кно­п­ку Save All панелі інстру­ментів. Запустити програму на виконання можна декілько­ма способами: виконати команду Run – Run головного меню; клацнути на кнопці Run панелі інструментів; натис­ну­ти на функціо­нальну клавішу F9. Переконайтеся у пра­ви­ль­но­сті роботи закладок, ком­бі­но­ваного списку, наявності можливості редагувати поля таб­лиці та переміщатися по них за допомогою смуги прокручування. Викличте вікно „Про програму” та закрийте його клавішею Ok. Закінчіть роботу командою Файл Þ Кінець.

17. Опишіть глобальні змінні та типи даних програми: тип запису телефонного довідника (info), файл записів (F), змінну типу info (r)
та цілу змінну кількості записів (N).

Для цього перед розділом реалізації implementation додайте такий програмний код:

info=record {Тип запису}

prizv, imja : string [20];

adresa : string [l00];

tel : string [15];

end;

var PagesDlg : TPagesDlg; {Цей рядок вже є в заготовці модуля}

F : file of info; {Файл записів}

r : info; {Один запис}

N : integer; {Кількість записів}

18. Додайте до форми два об’єкта – стандартні діалоги Windows
для відкривання та збереження файлів.

Кнопки OpenDialog та SaveDialog знаходяться на сторінці Dialogs панелі компонентів середовища Delphi. Розташуйте ці об’єкти у правому верхньому куті форми.

19. Запрограмуйте процедури відкривання та збереження файлів
(команди головного меню „Прочитати з файлу” та „Записати у файл”).

procedure TPagesDlg.N3Click(Sender: TObject);

{Тут N3 – номер команди „Прочитати з файлу”, може бути інший номер}

var і : integer;

begin

if OpenDialog1.Execute then begin

{Запуск стандартного діалога „Open file” на виконання}

AssignFile(F, OpenDialog1.FileName);

{F – назва вибраного діалогом файлу (властивість FileName об’єкта OpenDialog1)}

Reset(F); N:=0; {Читаємо від початку файлу}

while not eof(F) do {Зчитуємо всі записи з файлу}

begin

Read(F, r); {У змінну r зчитуємо поточний запис}

StringGrid1.Cells[0, N+l]:=r.prizv; {Прізвище – в перший стовпець таблиці}

StringGrid1.Cells[1, N+l]:=r.imja; {Ім’я – в другий стовпець таблиці}

StringGrid1.Cells[2, N+l]:=r.adresa; {Aдресa – у третій стовпець таблиці}

StringGrid1.Cells[3, N+l]:=r.tel; {Телефон – у четвертий стовпець таблиці}

N:=N+1; end; {Збільшуємо загальну кількість записів N}

CloseFile(F); {Закриваємо файл}

NewEdit(ComboBox1); {Процедура заповнення полів редагування другої сторінки форми}

NewComboBox; {Процедура заповнення комбінованого списку другої сторінки форми}

end; end;

procedure TPagesDlg.N4Click(Sender: TObject);

{Тут N4 – номер команди „Записати у файл”, може бути інший номер}

var і : integer;

begin

if SaveDialog1.Execute then begin

AssignFile(F, SaveDialog1, FileName); Rewrite(F); i:=1;

while StringGrid1.Cells[3, i] < > ’ ’ do begin

r.prizv:=StringGrid1.Cells[0, i];

r.imja:=StringGrid1.Cells[l, i];

r.adresa:=StringGrid1.Cells[2,i];

r.tel:=StringGrid1.Cells[3,i];

Write(F, r); i:=i+1; end;

CloseFile(F);

end; end;

20. Напишіть процедуру створення форми.

Для цього у вікні інспектора об’єктів активізуйте об’єкт PagesDlg (вікно форми з бага­то­сторінковим блокнотом) і двічі клацніть у рядку OnCreate (момент ство­рення) закла­д­ки Events для цього об’єкта. Сформуйте наступний програмний код процедури створення головної форми програми:

procedure TPagesDlg.FormCreate(Sender: TObject);

begin

StringGrid1.Cells[0, 0]:=’Прізвище’; {Заповнюємо заголовок таблиці}

StringGrid1.Cells[1, 0]:=’Ім’я’;

StringGrid1.Cells[2, 0]:=’Адреса’;

StringGrid1.Cells[3, 0]:=’Телефон’;

ComboBox1.Items.Add(’ ’); {Створюємо порожній рядок у комбінованому списку}

ComboBox1.Itemlndex:=0; {Активізуємо цей рядок на випадок створ. нового довідника}

end;

21. Напишіть процедуру заповнення полів редагування NewEdit.

Виклик цієї процедури здійснюється у момент зміни активного рядка у комбінованому спи­с­ку. Тому для ініціалізації заготовки цієї про­цедури потрібно активізувати на закладці Events вікна Object Inspector об’єкта ComboBox1 рядок OnChange (момент заміни), і у пра­вому стовпці вказати назву процедури реакції на цю подію: NewEdit. Двічі клацніть ми­шею на введеній назві і заповніть заготовку цієї процедури наступним чином:

procedure TPagesDlg. NewEdit(Sender: TObject);

var i : integer;

begin

i:=ComboBox1.ItemIndex+1; {і – номер рядка даних у таблиці}

if і > 0 then begin {Для значущих позицій комбінованого списку}

{копіюємо дані і-го запису з першої сторінки форми у відповідні поля на другій сторінці }

Edit1.Text:=StringGrid1.Cells[0, i];

Edit2.Text:=StringGrid1.Cells[l, i];

Edit3.Text:=StringGrid1.Cells[2, i];

Edit4.Text:=StringGrid1.Cells[3, i];

end; end;

22. Збережіть виконану на даний момент роботу у своїй папці.

Для цього виконайте команду: File – Save All.

23. Напишіть процедуру заповнення комбінованого списку NewComboBox.

Спочатку до опису типу класу (об’єкта) TPagesDlg (багатосторінкової форми) в розділі interface потрібно додати декларацію:

type

TPagesDlg=class(TForm); {Цей запис уже є в заготовці модуля}

... ... ... ... ... ... ...

procedure NewComboBox; {Необхідно дописати}

... ... ... ... ... ... ...

В розділ implementation додайте опис процедури:

procedure TPagesDlg.NewComboBox;

var i, j : integer;

begin

j:=ComboBox1.ItemIndex; {Запам'ятовуємо активну позицію комбінованого списку}

ComboBox1.Clear; {Очищуємо комбінований список}

for i:=l to N do {Для всіх N записів}

ComboBox1.Items.Add(StringGrid1.Cells[0, i]);

{В оновлений комбінований список додаємо всі прізвища з першого стовпця таблиці}

ComboBox1.ItemIndex:=j; {Переходимо на позицію j}

end;

24. Збережіть роботу, запустіть програму, заповніть таблицю даними
та переконайтесь у тому, що програма правильно працює.

25. Запрограмуйте команду головного меню
„Зберегти зміни у списку записів”.

procedure TPagesDlg.N6Click(Sender: TObject);

{Тут N6 – номер команди „Записати у файл”, може бути інший}

var i : integer;

begin

i:=ComboBox1.ItemIndex+1; {Визначаємо номер активного запису}

if PageControl1.ActivePage=TabSheet2 then

begin {Якщо активна друга сторінка, то вносимо зміни в першу}

StringGrid1.Cells[0, i]:=Edit1.Text;

StringGrid1.Cells[1, i]:=Edit2.Text;

StringGrid1.Cells[2, i]:=Edit3.Text;

StrmgGrid1.Cells[3, i]:=Edit4.Text; end;

else NewEdit(ComboBox1); {інакше – вносимо зміни в другу сторінку}

NewComboBox; {В обох випадках оновлюємо комбінований список}

end;

26. Запрограмуйте кнопку переходу на попередній запис „Попередній”.

procedure TPagesDlg.Button1Click(Sender: TObject);

begin

if ComboBox1.ItemIndex=0 then

ComboBox1.ItemIndex:=N–1 {Зациклюємо список}

else ComboBox1.ItemIndex:=ComboBox1.ItemIndex–1;

{В середині списку показник зменшується на одиницю}

NewEdit(ComboBox1); {Оновлюємо панель „Знайдено запис” (GroupBox1)}

end;

27. Аналогічно запрограмуйте кнопку переходу на наступний запис.

procedure TPagesDlg.Button4Click(Sender: TObject);

begin

if ComboBox1.ItemIndex=N–1 then

ComboBox1.ItemIndex:=0 {Зациклюємо список}

else ComboBox1.ItemIndex:=ComboBox1.ItemIndex+1;

{В середині списку показник збільшується на одиницю}

NewEdit(ComboBox1); {Оновлюємо панель „Знайдено запис” (GroupBox1)}

end;

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

Для цього виберіть команду головного меню File – Save All (Збе­регти Все) або натисніть на кнопку Save All панелі інстру­ментів. Виконайте команду Run – Run головного меню. Зчитайте з диска файл телефонного довідника, виберіть довільне прізвище у комбінова­но­му списку і змініть його у полі редагування „Прізвище”. Переконайтесь у тому, що синхронні зміни відбуваються і у комбінованому списку. Збережіть зміни і використайте кнопки „Попередній” та „Наступний” для переміщення по записах, переконайтесь у заци­к­ленні списку. Знищіть один із записів кнопкою „Стерти” (Clear), збережіть зміни і перейдіть на першу сторінку. Відредагуйте дані у таблиці, збережіть довідник у файлі на диску, огляньте вікно „Про програму”. Завершіть роботу з програмою.

29. Створіть exe – файл програми.

Виконайте команду головного меню Project – Build All.

30. Вийдіть із середовища Delphi та запустіть створену програму.

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

31. Продемонструйте створений проект викладачеві.

32. Закрийте всі відкриті вікна. Завершіть роботу. Здайте звіт.

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

1. Яким чином можна виконати компіляцію проекту в Delphi ?

2. Як можна запустити проект на виконання у середовищі Delphi ?

3. Які основні інструменти має середовище програмування Delphi ?

4. Що представляє собою палітра компонентів середовища Delphi?

5. Що представляє собою редактор коду програми середовища Delphi ?

6. Що представляє собою наступний об’єкт середовища Delphi: Label ?

7. Що представляє собою наступний об’єкт середовища Delphi: StringGrid ?

8. Що представляє собою наступний об’єкт середовища Delphi: ComboBox ?

9. Що представляє собою наступний об’єкт середовища Delphi: PageControl ?

10. Що представляє собою наступний об’єкт середовища Delphi: CheckBox ?

11. Що представляє собою наступний об’єкт середовища Delphi: GroupBox ?

12. Що представляє собою наступний об’єкт середовища Delphi: OpenDialog ?

13. Що представляє собою наступний об’єкт середовища Delphi: SaveDialog ?

14. Що представляє собою наступний об’єкт середовища Delphi: AboutBox ?

15. Які властивості має наступний об’єкт середовища Delphi: PageControl ?

16. Які властивості має наступний об’єкт середовища Delphi: StringGrid ?

17. Які властивості має наступний об’єкт середовища Delphi: Form ?

18. Які властивості має наступний об’єкт середовища Delphi: ComboBox ?

19. Яким чином відбувається робота з об’єктами (компонентами) у Delphi ?

20. Як можна змінювати властивості об’єктів (компонентів) у Delphi ?

21. Яким чином можна реалізувати цикли у мові Object Pascal ?

22. Яким чином відбувається опрацювання подій у середовищі Delphi ?

23. Які стандартні події виникають під час роботи у середовищі Delphi ?

24. Яким чином можна працювати з файлами записів у середовищі Delphi ?

Студенти повинні знати:

1. загальну характеристику середовища візуального програмування Delphi;

2. основні принципи роботи у середовищі візуального програмування Delphi;

3. призначення основних елементів інтерфейсу середовища
програмування Delphi та особливості їх використання;

4. загальну характеристику компонентів середовища Delphi;

5. основні принципи побудови програм для роботи з файлами записів;

6. оператори, операції, типи даних та стандартні
процедури і функції мови програмування Object Pascal;

7. стандартні події і властивості компонентів середовища Delphi,
їх призначення та основні принципи використання.

Студенти повинні вміти:

1. працювати у середовищі візуального програмування Delphi;

2. ефективно використовувати основні інструменти середовища
програмування для роботи у Delphi з проектами та компонентами;

3. здійснювати вибір необхідних компонентів для побудови проекту;

4. ефективно використовувати властивості компонентів
при роботі з проектами у середовищі програмування Delphi;

5. створювати, редагувати, виконувати тестування та
налагодження програм (проектів) для роботи з файлами записів
у середовищі візуального програмування Delphi.

Порядок оформлення звіту:

Звіт повинен складатися з наступних частин:

1. Тема роботи.

2. Мета роботи.

3. Хід роботи.

4. Висновки до роботи.

Практична робота №28

Створення навчальної програми у середовищі Delphi.

Мета: Навчитися користуватися основними елементами інтерфейсу середовища програ­му­вання Delphi для створення, редагуван­ня, налагодження та виконання навчальних програм (проектів).

Теоретичні відомості:

Геометрична фігура – об’єкт Shape (піктограма знаходиться на сторінці Additional палітри компонентів середовища Delphi). Компонент призначений для зображення елементарних геометричних фігур і має такі властивості:

Об’єкт (компонент) SpinEdit – спарена кнопка з полем редагування, при­зна­че­ний для введення та корекції цілочислового значення деякої величини під час роботи програми. Піктограма цього об’єкта знахо­ди­ть­ся на сторінці Samples па­літри компонентів Delphi. Цей об’єкт (компонент) володіє такими властивостями:

Об’єкт (компонент) Gauge – індикатор стану – використовують для наочної демонстрації стану виконання деякого процесу. Піктограма цього об’єкта знахо­ди­ть­ся на сторінці Samples па­літри компонентів середовища Delphi (компонент ProgressBar – сторінка Win). Розглянемо деякі властивості об’єкта Gauge:

Об’єкт (компонент) Timer використовують для повторення фрагменту коду програми з певною періодичністю. Відповідний фрагмент розташовують у тілі процедури опрацювання події OnTimer таймера. Періодичність вмикання таймера у мілісекундах задають властивістю Interval. Піктограма цього об’єкта знахо­ди­ть­ся на сторінці System палітри компонентів середовища Delphi.

Об’єкт MediaPlayer – мультимедійний програвач, призначений для програ­ван­ня відео- та аудіофайлів. Піктограма цього об’єкта знахо­ди­ть­ся на сторінці System па­літри компонентів Delphi. Керування програвачем може здійс­ню­ватися як за допомогою традиційних кнопок (Play, Pause, Stop, Next) на етапі ви­ко­нання про­гра­ми, так і з програмного коду шляхом виконання методів цього об’єк­та (MediaPlayer1.FileName:=’повне ім’я відео- чи аудіофайлу’; MediaPlayer1.Open; MediaPlayer1.Play).

Практична робота №28 була створена на основі практичної роботи (№6) книги Глинський Я. М., Анохін В. Є., Ряжська В. А. Паскаль. Turbo Pascal i Delphi. Навчальний посібник. – Львів: СПД Глинський, 2007. – 128-139 с.

Порядок виконання роботи:

1. Завантажте середовище візуального програмування Delphi.

Запуск Delphi виконують клацанням на піктограмі Delphi (1 раз ЛКМ) або за допомогою каскадного меню Start – Programs – Borland Delphi 7 – Delphi 7

2. Змініть заголовок форми з „Form1” на „Англійська мова – тестування”.

Властивість Caption форми (Form1).

3. Відмовтеся від усіх системних кнопок форми.

Для цього задайте значення False в усіх позиціях властивості BorderIcons: biSystemMenu, biMinimize, biMaximize, biHelp.

4. Розташуйте на формі наступні об’єкти: Label1, Label2, Label3, Label4, Timer1, Timer2, MediaPlayer1, Gauge1, SpinEdit1, BitBtn1, BitBtn2, Shape1, Shape2, Shape3, Image1, Image2, Image3 та задайте їх властивості.

Для цього використайте відповідні піктограми (Label, Timer, MediaPlayer, Gauge, BitBtn, SpinEdit, Shape, Image) із сторінок Standard, Additional, System, Samples палітри компонен-тів Delphi. За­дай­те наступні значення властивостей цих об’єктів: – компо­нент Timer1: Interval – 500; – компонент Timer2: Interval – 100; – компонент MediaPlayer1: Visible – False; – компонент Gauge1: BackColor – clInfoBk, Color – clBtnFace, Font – MS Sans Serif Bold 14 Yellow, ForeColor – clGreen, Kind – gkHorizontalBar, MaxValue – 100, MinValue – 0, Progress – 100; – компонент SpinEdit1: EditorEnabled – False, MaxValue – 10, MinValue – 1, Value – 5; – компонент BitBtn1: Glyph – С: \ Program Files \ Borland \ Delphi \ Images \ Buttons \ *.bmp, Caption – „Готово”; – компонент BitBtn2: Glyph – С: \ Program Files \ Borland \ Delphi \ Images \ Buttons \ *.bmp, Caption – „Вихід”; – компоненти Shape1, Shape2, Shape3: Brush – Color – clInfoBk, Shape – stRoundRect; – компоненти Image1, Image2, Image3: Stretch – True; – компоненти Label2, Label3, Label4: Font – Color – Olive, Font – Size – 16; – компонент Label1: Caption – „Обо­в’я­зково натисніть на кнопку Готово після розміщення малюнків !!!”, Font – Color – Red, Font – Size – 10. Розміри фігур повинні бути більшими, ніж розміри малюнків, оскільки останні слід розташовувати обов’язково всередині фігур. Якщо під час накладання ма­люн­ка на фігуру малюнок зникає, перемістіть його на передній план командою його контекстного меню Bring To Front.