Приклад № 2 з розробки графічного

↑

▷ Содержание

⇐ ПредыдущаяСтр 14 из 15Следующая ⇒

меню команд до прикладної програми С++

Розглянемо методику розробки і програмування другого варіанту графічного меню комад у програмі С++ з контрольної роботи № 4, щоб показати, як можно змінювати вигляд різноманітних графічних меню команд та яки дії користувача і розроблені матеріали до прикладної програми залишаються стандартними, коли структура графічного меню команд буде віповідати рис. 8-2 та рис. 2-2.

Програма С++ повинна мати графічне меню команд у іншому вигляді і працювати за таким варіантом обробки рисунків кнопок з назвами команд. У лівій частині Form1 будут розташовані 4 компоненти Image — Image19, Image20, Image21 та Image22. В них програма С++ буде завантажувати рисунки кнопок до графічного меню. В залежності від того, яке підменю основного графічного меню визначено користувачем, тоді у ці компоненти відповідно розміщуватимуться інши рисунки кнопок. Залежність рисунков кнопок до команд графічного меню програми докладно показана у таблицях № 8-1 та № 8-2. Переміщення по підкомандам меню програми здійснюється за допомогою натискання лівої кнопкі маніпулятора “мишка”. Компонента Image22 слугує для виходу з самої прикладної програми, або повернення у попередній підпункт меню. В основі дії 2 варіанта програми С++ лежить використання двох змінних — ur та sh. Змінна sh використовується для запобігання мерехтіння зображення на екрані при багаторазовому звертанні до підменю “Схема” з меню команд “Технологія”. Змінна ur допомогає зробити можливим використання лише 4 компонент Image за рахунок присвоєння цій змінній різних значень в залежності від поточного підпункту меню команд програми С++ та перевірки цих значень при допомозі умовних операторів. Відповідні значення змінної ur показані під таблицями № 8-1 та № 8-2. Усі необхідні рисунки з кнопками і відповідними написами для графічного меню команд прикладної програми С++ створюються у програмі графічного редактора. Для створення графічного меню команд у прикладній програмі С++ потрібно в середовищи С++ Builder виконувати таки наступні кроки і дії.

Крок 1. Створюємо новий проект для програми С++ з контрольної роботи № 4. Виконуємо команду File/New/Application для створення чистої форми Form1. Переходимо у вікно інспектора об’єктів та у полі Caption задаємо назву прикладної програми: “Мнемосхема технологічного процесу виробництва хлорметанів”. Виконуємо команду File/Save та задаємо назву проекту і файлам (*.cpp) з розробляємої програми.

Таблиця № 8-1. Залежності до основного графічного меню команд.

Таблиця № 8-2. Залежності до графічного підменю “Апарати”.

Крок 2. Встановлюємо на Form1 компоненту Image з сторінки Additional у бібліотеці компонентів та маркерною рамкою визначаємо розмір бажаного поля для розміщення мнемосхеми технологічного процесу, як основного фону прикладної програми С++. Якщо потрібно розмір форми можна також змінити.

Крок 3. Встановлюємо на Form1 компоненту Label з сторінки Additional у бібліотеці компонентів та розміщуємо його у лівий нижній край форми.

Крок 4. Натискаємо лівою кнопкою миші на формі по полю Image1 та у віуні інспектора об’єктів у полі Picture натискаємо на значок з трьома крапками. Кнопкою Load вказуємо шлях розташування рисунка мнемосхеми хімічного виробництва (хлорметанів) у форматі (*.bmp) та натискаємо “ Открыть ” у вікні Picture Editor і далі натискаємо “ ОК ”. Правою кнопкою мишки натискаємо на поле Image1 та виконуємо команду Control/send to back.

Крок 5. На рисунку мнемосхеми, що завантажився у поле Image1, за допомогою компоненти Image з сторінки Additional створюємо окремі поля навколо кожного з апаратів на мнемосхемі (Image2…..Image18), аналогічно як показано на рис. 4.2-1.

Крок 6. На Form1 відповідно до рис. 8-2 розміщуємо компоненти Image19, Image20, Image21 і Image22 з сторінки Additional бібліотеки і Panel1 з сторінки Standard для подальшого завантаження у них рисунків кнопок, які будуть складати графічне меню прикладної програми С++.

Компонентам Image19, Image20, Image21 і Image22 у вікні інспектора об’єктів задаємо значення до розмірив: у полі Width «185» і у полі Height «105». Компоненті Panel1 у вікні інспектора об’єктів задаємо розміри: у полі Width «185» і у полі Height «49».

Крок 7. Задаємо у Label1 відображення підказки з назви апарату при переміщенні маніпулятора “мишка” по мнемосхеме, завантаженої у Image1.

Натискаємо мишкою на Image1 і у вікні інспектора об’єктів обираємо Events та у полі OnMouseMove подвійним натисканням мишки переходимо до вікна редактора коду, де у функцію Image1MouseMove додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{

Label1->Caption=("");

}

//---------------------------------------------------------------------------

Далі натискаємо на Image2 і у вікні інспектора об’єктів обираємо вкладку Events та у полі OnMouseMove подвійним натисканням лівої кнопки мишки переходимо до вікна редактора коду і у функцію Image2MouseMove додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image2MouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{

Label1->Caption= ("3 - Змішувач");

}

//---------------------------------------------------------------------------

Також натискаємо на Image3 і у вікні інспектора об’єктів обираємо вкладку Events та у полі OnMouseMove подвійним натисканням мишки переходимо до вікна редактора коду, де у функцію Image3MouseMove додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image3MouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{

Label1->Caption= ("4 - Хлоратор");

}

//---------------------------------------------------------------------------

Далі натискаємо на Image4 і у вікні інспектора об’єктів обираємо вкладку Events та у полі OnMouseMove подвійним натисканням мишки переходимо до вікна редактора коду, де у функцію Image4MouseMove додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image4MouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{

Label1->Caption= ("1 - Змішувач");

}

//---------------------------------------------------------------------------

Натискаємо на Image5 і у вікні інспектора об’єктів обираємо вкладку

Рис. 8-2. Схема розміщення на Form1 компонент Image19,

Image20, Image21, Image22 та Label2.

Events та у полі OnMouseMove подвійним натисканням кнопки мишки

переходимо до вікна редактора коду, де у функцію Image5MouseMove додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image5MouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{

Label1->Caption= ("2 - Підігрівник");

}

//---------------------------------------------------------------------------

Натискаємо на Image6 і у вікні інспектора об’єктів обираємо вкладку Events та у полі OnMouseMove подвійним натисканням мишки переходимо до вікна редактора коду, де у шаблон функції Image6MouseMove додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image6MouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{

Label1->Caption= ("1 - Сажовловлювач");

}

//---------------------------------------------------------------------------

Натискаємо на Image7 і у вікні інспектора об’єктів обираємо вкладку Events та у полі OnMouseMove подвійним натисканням мишки переходимо до вікна редактора коду, де у шаблон функції Image7MouseMove додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image7MouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{

Label1->Caption= ("16 - Сепаратор");

}

//---------------------------------------------------------------------------

Натискаємо на Image8 і у вікні інспектора об’єктів обираємо вкладку Events та у полі OnMouseMove подвійним натисканням мишки переходимо до вікна редактора коду, де у шаблон функції Image8MouseMove додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image8MouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{

Label1->Caption= ("10 – Графітовий холодильник");

}

//---------------------------------------------------------------------------

Натискаємо на Image9 і у вікні інспектора об’єктів обираємо вкладку Events та у полі OnMouseMove подвійним натисканням мишки переходимо до вікна редактора коду, де у шаблон функції Image9MouseMove додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image9MouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{

Label1->Caption= ("7 – Абсорбер");

}

//---------------------------------------------------------------------------

Натискаємо на Image10 і у вікні інспектора об’єктів обираємо вкладку Events та у полі OnMouseMove подвійним натисканням мишки переходимо до вікна редактора коду, де у шаблон функції Image10MouseMove додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image10MouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{

Label1->Caption= ("8 – Абсорбер");

}

//---------------------------------------------------------------------------

Натискаємо на Image11 і у вікні інспектора об’єктів обираємо вкладку Events та у полі OnMouseMove подвійним натисканням мишки переходимо до вікна редактора коду, де у шаблон функції Image11MouseMove додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image11MouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{

Label1->Caption= ("9 – Розріджувач лугу");

}

//---------------------------------------------------------------------------

Натискаємо на Image12 і у вікні інспектора об’єктів обираємо вкладку Events та у полі OnMouseMove подвійним натисканням мишки переходимо до вікна редактора коду, де у шаблон функції Image12MouseMove додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image12MouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{

Label1->Caption= ("11 – Збірник концентрованої соляної кислоти");

}

//---------------------------------------------------------------------------

Натискаємо на Image13 і у вікні інспектора об’єктів обираємо вкладку Events та у полі OnMouseMove подвійним натисканням мишки переходимо до вікна редактора коду де у шаблон функції Image13MouseMove додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image13MouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{

Label1->Caption= ("12 – Компресор");

}

//---------------------------------------------------------------------------

Натискаємо на Image14 і у вікні інспектора об’єктів обираємо вкладку Events та у полі OnMouseMove подвійним натисканням мишки переходимо до вікна редактора коду, де шаблон функції Image14MouseMove додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image14MouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{

Label1->Caption= ("15 – Фільтр");

}

//---------------------------------------------------------------------------

Натискаємо на Image15 і у вікні інспектора об’єктів обираємо вкладку Events та у полі OnMouseMove подвійним натисканням мишки переходимо до вікна редактора коду, де у шаблон функції Image15MouseMove додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image15MouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{

Label1->Caption= ("14 – Конденсатор");

}

//---------------------------------------------------------------------------

Натискаємо на Image16 і у вікні інспектора об’єктів обираємо вкладку Events та у полі OnMouseMove подвійним натисканням мишки переходимо до вікна редактора коду, де у шаблон функції Image16MouseMove додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image16MouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{

Label1->Caption= ("15 – Осушувачі");

}

//---------------------------------------------------------------------------

Натискаємо на Image17 і у вікні інспектора об’єктів обираємо вкладку Events та у полі OnMouseMove подвійним натисканням мишки переходимо до вікна редактора коду, де у шаблон функції Image17MouseMove додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image17MouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{

Label1->Caption= ("17 – Розріджувач лугу");

}

//---------------------------------------------------------------------------

Натискаємо на Image18 і у вікні інспектора об’єктів обираємо вкладку Events та у полі OnMouseMove подвійним натисканням мишки переходимо до вікна редактора коду, де у шаблон функції Image18MouseMove додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image18MouseMove(TObject *Sender, TShiftState Shift,

int X, int Y)

{

Label1->Caption= ("6 – Повітряний холодильник");

}

//---------------------------------------------------------------------------

Крок 7. Натискаємо лівою кнопкою мишки на формі по полю Image1 та у вікні інспектора об’єктів у полі Picture натискаємо на значок з трьома крапками. Кнопкою Clear видаляємо малюнок фону та натискаємо “ ОК ”.

Крок 8. Задаємо для Image1 завантаження рисунка мнемосхеми та рисунків кнопок до команд графічного меню у Image19, Image20, Image2 1 і Image22, яки з’являются на екрані при старті прикладної програми С++.

На вільному просторі форми Form1 натискаємо лівою кнопкою мишки. У вікні інспектора об’єктів обираємо Events та подвійним натисканням мишки у полі OnCreate переходимо до вікна редактора коду прикладної програми. Далі у функцію FormCreate необхідно додати оператори для завантаження фону в Image1 та рисунків кнопок з командами до графічного меню у Image19 ……..…. Image39. Також необхідно зробити невидимими поля Image2 …… Image18 та активізувати інший візуальний курсор мишки на полях Image19, Image20, Image21 і Image22:

//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)

{

Image19->Picture->LoadFromFile("Data/Icons/Технологія_1.bmp");

Image20->Picture->LoadFromFile("Data/Icons/Апарати_1.bmp");

Image21->Picture->LoadFromFile("Data/Icons/Інформація_1.bmp");

Image22->Picture->LoadFromFile("Data/Icons/Вихід_1.bmp");

Image1->Picture->LoadFromFile("Data/Main/Background.bmp");

Image2->Visible = false;

Image3->Visible = false;

Image4->Visible = false;

Image5->Visible = false;

Image6->Visible = false;

Image7->Visible = false;

Image8->Visible = false;

Image9->Visible = false;

Image10->Visible = false;

Image11->Visible = false;

Image12->Visible = false;

Image13->Visible = false;

Image14->Visible = false;

Image15->Visible = false;

Image16->Visible = false;

Image17->Visible = false;

Image18->Visible = false;

Image19->Cursor = crHandPoint;

Image20->Cursor = crHandPoint;

Image21->Cursor = crHandPoint;

Image22->Cursor = crHandPoint;

}

//---------------------------------------------------------------------------

Крок 9. Переходимо на форму Form1 і натискаємо на Image3. У вікні інспектора об’єктів у полі Cursor обираємо crHandPoint і вкладку Events та у полі OnClick подвійним натисканням мишки переходимо до редактора коду, де у шаблон функції Image3Click додаємо текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image3Click(TObject *Sender)

{

Form3->Caption="Конструкція хлоратора";

Form3->Image1->Picture->LoadFromFile("Data/Device1/Device.bmp");

Form3->ShowModal();

}

//---------------------------------------------------------------------------

Крок 10. Переходимо на форму Form1 і натискаємо на Image9. У вікні інспектора об’єктів у полі Cursor обираємо crHandPoint і вкладку Events та у полі OnClick подвійним натисканням кнопки мишки переходимо до вікна редактора коду, де у функцію Image9Click додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image9Click(TObject *Sender)

{

Form3->Caption="Конструкція абсорбера";

Form3->Image1->Picture->LoadFromFile("Data/Device2/Device.bmp");

Form3->ShowModal();

}

//---------------------------------------------------------------------------

Крок 11. Переходимо на форму Form1 і натискаємо на Image10. У вікні інспектора об’єктів у полі Cursor обираємо crHandPoint і вкладку Events та у полі OnClick подвійним натисканням кнопки мишки переходимо до вікна редактора коду, де у шаблон функції Image10Click додаємо текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image10Click(TObject *Sender)

{

Form3->Caption="Конструкція абсорбера";

Form3->Image1->Picture->LoadFromFile("Data/Device2/Device.bmp");

Form3->ShowModal();

}

//---------------------------------------------------------------------------

Крок 12. Переходимо на форму Form1 та натискаємо на Image11. У вікні інспектора об’єктів у полі Cursor обираємо crHandPoint і вкладку Events та у полі OnClick подвійним натисканням кнопки мишки переходимо до вікна редактора коду, де у шаблон функції Image11Click додаємо текст:

//---------------------------------------------------------------------------

void __fastcall TForm1::Image11Click(TObject *Sender)

{

Form3->Caption="Конструкція розріджувача лугу";

Form3->Image1->Picture->LoadFromFile("Data/Device3/Device.bmp");

Form3->ShowModal();

}

//---------------------------------------------------------------------------

Тепер при натисканні на компонентах Image, яки розташовані у вікні на місцях назв апаратів: “Хлоратор”, “Абсорбер” i “Розріджувач лугу” буде відкриватися форма Form3 з окремим рисунком схеми відповідного апарату.

Папка “Data” знаходиться у папці з файлами проекту прикладної програми. Файл “Background.bmp” є основним фоновим рисунком у вікні прикладної програми С++ з контрольної роботи № 4 (варіант графічного меню № 2). Файли з папки “Data/Icons” є рисунками кнопок до команд графічного меню програми. Файли з індексом 1 відповідають пасивному стану кнопок у меню команд, а файли з індексом 2 відповідають активному стану кнопки. Далі створюємо додаткові форми, які знадобляться для відображення інформації при виконанні підкоманд графічного меню команд.

Створення і налаштування форми Form2.

Крок 1. Виконуємо команду File/New/Form для створення нової чистої форми Form2. Встановлюємо на Form2 компоненту RichEdit з сторінки Win32 у бібліотеці компонентів. Натискаємо на новостворену компоненту RichEdit1 та у полі Align інспектора об’єктів обираємо a lClient. Таким чином RichEdit1 буде розтягуватись на екрані до розмірів форми Form2.

Створення і налаштування форми Form3.

Крок 1. Виконуємо команду File/New/Form для створення нової чистої форми Form3. Через дерево об’єктів обираємо Form3 та у полі AutoSize інспектора об’ктів обираємо true. Встановлюємо на Form3 компоненту Image з сторінки Additional у бібліотеці компонентів. Натискаємо на полі новоствореної компоненти Image1 і у полі Width вікна інспектора об’єктів вводимо розмір «385», а у полі Height вводимо розмір «497».

Створення і налаштування форми Form4.

Крок 1. Виконуємо команду File/New/Form для створення нової чистої форми Form4. Встановлюємо на полі Form4 компоненту Chart з сторінки Additional у бібліотеці компонентів.

Крок 2. Натискаємо правою кнопкою мишки на полі новоствореної компоненти Chart1 та обираємо Edit Chart. Далі переходимо на вкладку Chart/Series, натискаємо Add, обираємо Fast Line та натискаємо “ ОК ”. Переходимо у вкладку Chart/Titles та у полі вводу набираємо для параметру назву “ Температура ”. Переходимо у вкладку Chart/Legend та знімаємо галочку з пункту Visible. Натискаємо Close та виходимо з меню Edit Chart.

Крок 3. Встановлюємо на нолі Form4 компоненту Chart з сторінки Additional у бібліотеці компонентів.

Крок 4. Натискаємо правою кнопкою мишки на полі новоствореної компоненти Chart2 та обираємо Edit Chart. Далі переходимо на вкладку Chart/Series, натискаємо Add, обираємо Fast Line та натискаємо “ ОК ”. Переходимо у вкладку Chart/Titles та у полі вводу набираємо для параметру назву “ Витрата сировини ”. Переходимо у вкладку Chart/Legend та знімаємо галочку з пункту Visible. Натискаємо Close та виходимо з меню Edit Chart.

Крок 5. У дереві об’єктів обираємо Form4. У вікні інспектора об’єктів обираємо вкладку Events та у полі OnCreate подвійним натисканням кнопки мишки переходимо до вікна редактора коду і у функцію FormCreate додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm4::FormCreate(TObject *Sender)

{

for (int i=0; i<=10; i++)

{

Series1->AddXY(i+cos(i),13*i*i,"",clRed);

Series2->AddXY(12*i*i+25, i*i+15*i,"",clRed);

}

}

//---------------------------------------------------------------------------

Створення і налаштування форми Form5.

Крок 1. Виконуємо команду File/New/Form для створення нової чистої форми Form5. Встановлюємо на полі Form5 компоненту Chart з сторінки Additional у бібліотеці компонентів.

Крок 2. Натискаємо правою кнопкою мишки на полі новоствореної компоненти Chart1 та обираємо Edit Chart. Далі переходимо на вкладку Chart/Series, натискаємо Add, обираємо Fast Line та натискаємо “ ОК ”. Переходимо у вкладку Chart/Titles та у полі вводу набираємо для параметру назву “ Температура ”. Переходимо у вкладку Chart/Legend та знімаємо галочку з пункту Visible. Натискаємо Close та виходимо з меню Edit Chart.

Крок 3. Встановлюємо на полі Form5 компоненту Chart з сторінки Additional у бібліотеці компонентів.

Крок 4. Натискаємо правою кнопкою мишки на полі новоствореної компоненти Chart2 та обираємо Edit Chart. Далі переходимо на вкладку Chart/Series, натискаємо Add, обираємо Fast Line та натискаємо “ ОК ”. Переходимо у вкладку Chart/Titles та у полі вводу набираємо для параметру “ Витрата сировини ”. Переходимо у вкладку Chart/Legend та знімаємо галочку з пункту Visible. Натискаємо Close та виходимо з меню Edit Chart.

Крок 5. У дереві об’єктів обираємо Form5. У вікні інспектора об’єктів обираємо вкладку Events та у полі OnCreate подвійним натисканням мишки переходимо до вікна редактора коду, де у шаблон функції FormCreate додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm5::FormCreate(TObject *Sender)

{

for (int i=0; i<=10; i++)

{

Series1->AddXY(i+sin(i),13*i*i,"",clRed);

Series2->AddXY(14*i+25*i*sin(i), cos(i)*i*i*i+15*i,"",clRed);

}

}

//---------------------------------------------------------------------------

Створення і налаштування форми Form6.

Крок 1. Виконуємо команду File/New/Form для створення нової чистої форми Form6. Встановлюємо на Form6 компоненту Chart з сторінки Additional у бібліотеці компонентів.

Крок 2. Натискаємо правою кнопкою мишки на полі новоствореної компоненти Chart1 та обираємо Edit Chart. Далі переходимо на вкладку Chart/Series, натискаємо Add, обираємо Fast Line та натискаємо “ ОК ”. Переходимо у вкладку Chart/Titles та у полі вводу набираємо для параметру назву “ Температура ”. Переходимо у вкладку Chart/Legend та знімаємо галочку з пункту Visible. Натискаємо Close та виходимо з меню Edit Chart.

Крок 3. Встановлюємо на полі Form6 компоненту Chart з сторінки Additional у бібліотеці компонентів.

Крок 4. Натискаємо правою кнопкою мишки на полі новоствореної компоненти Chart2 та обираємо Edit Chart. Далі переходимо на вкладку Chart/Series, натискаємо Add, обираємо Fast Line та натискаємо “ ОК ”. Переходимо у вкладку Chart/Titles та у полі вводу набираємо для параметру “ Витрата сировини ”. Переходимо на вкладку Chart/Legend та знімаємо галочку з пункту Visible. Натискаємо Close та виходимо з меню Edit Chart.

Крок 5. У дереві об’єктів обираємо Form6 і у вікні інспектора об’єктів обираємо вкладку Events та у полі OnCreate подвійним натисканням мишки переходимо до вікна редактора коду, де у функцію FormCreate додаємо наступний текст:

//---------------------------------------------------------------------------

void __fastcall TForm6::FormCreate(TObject *Sender)

{

for (int i=0; i<=10; i++)

{

Series1->AddXY(i+tan(i),13*i*i,"",clRed);

Series2->AddXY(13*i+25*tan(i), exp(i)*i*i+15*i,"",clRed);

}

}

//---------------------------------------------------------------------------

Створення і налаштування форми AboutBox.

Крок 1. Виконуємо команду File/New/Other та обираємо там Aboutbox для створення нової форми AboutBox. Через дерево об’єктів обираємо форму AboutBox та у полі Caption інспектора об’ктів вводимо “Про програму”.

Крок 2. Через дерево об’єктів обираємо Copyright та у полі Caption інспектора об’ктів вводимо “ Розробив _ПІБ ”.

Крок 3. Через дерево об’єктів обираємо Label1 та у полі Caption інспектора об’ктів вводимо “ Група _№ групи ”.

Крок 4. Через дерево об’єктів обираємо ProductName та у інспекторі об’ктів в полі Caption вводимо “ Контрольна робота ”.

Крок 5. Через дерево об’єктів обираємо Version і у вікні інспектора об’ктів в полі Caption вводимо “ Версія 2.0” та у вікні редактора коду з верху додамо наступний текст:

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

#include "Unit4.h"

#include "Unit5.h"

#include "Unit6.h"

#include "Unit7.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

//--------- Об’ява допоміжних змінних -------------------------------------

int ur=0;

int sh=0;

Це дає змогу викликати на виконання Form2, Form3, Form4, Form5, Form6 i Form7 знаходячись на формі Form1. Також ми введемо ряд змінних, які допоможуть нам реалізувати роботу графічного меню та уникнення певних проблем (запобігання мерехтіння зображень і т.п.).

Познавательные статьи:



Коммуникативные барьеры и пути их преодоления

Рынок недвижимости. Сущность недвижимости

Решение задач с использованием генеалогического метода

История происхождения и развития детской игры