Налаштування виконавчого коду до команд підменю “хлоратор”.

Крок 1. У верхній частині Form1 натискаємо на компоненті MainMenu і на пункті “Апарати” та у підменю обираємо команду “Хлоратор” і потім обираємо підпункт “Конструкція”. У вікні редактора коду, що відкриється додаємо у шаблон функції Design1Click наступний текст:

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

void __fastcall TForm1::Design1Click(TObject *Sender)

{

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

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

Form3->ShowModal();

}

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

Крок 2. У верхній частині Form1 натискаємо кнопкой мишки на MainMenu іна назві “Апарати” та у підменю обираємо команду “Хлоратор” і потім обираємо підпункт “Опис процесу”. У вікні редактора коду, що відкриється додаємо у шаблон функції Process1Click наступний текст:

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

void __fastcall TForm1:: Process1Click(TObject *Sender)

{

Form2->RichEdit1->Lines->LoadFromFile("Data/Device1/Process.rtf");

Form2->Caption="Опис процесу в хлораторі";

Form2->ShowModal();

}

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

Крок 3. У верхній частині Form1 натискаємо на значку MainMenu і на назві “Апарати” та у підменю обираємо команду “Хлоратор” і обираємо підпункт “Параметри”. У вікні редактора коду, що відкриється додаємо у шаблон функції Characteristic1Click наступний текст:

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

void __fastcall TForm1::Characteristic1Click(TObject *Sender)

{

Form4->Caption="Параметри хлоратора";

Form4->ShowModal();

}

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

Налаштування виконавчого коду до команд підменю “Абсорбер”.

Крок 1. У верхній частині Form1 натискаємо кнопкою мишки на MainMenu і на назві “Апарати” та у підменю обираємо команду “Абсорбер” і підпункт “Конструкція”. У вікні редактора коду, яке відкриється додаємо у шаблон функції Design2Click наступний текст:

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

void __fastcall TForm1::Design2Click(TObject *Sender)

{

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

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

Form3->ShowModal();

}

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

Крок 2. У верхній частині Form1 натискаємо на MainMenu і вибіраємо назву “Апарати” та у підменю обираємо команду “Абсорбер” і підпункт “Опис процесу”. У вікні редакторі коду, що відкриється додаємо у шаблон функції Process2Click наступний текст:

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

void __fastcall TForm1::Process2Click(TObject *Sender)

{

Form2->RichEdit1->Lines->LoadFromFile("Data/Device2/Process.rtf");

Form2->Caption="Опис процесу в абсорбері";

Form2->ShowModal();

}

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

Крок 3. У верхній частині Form1 натискаємо кнопкою мишки на MainMenu і на назві “Апарати” та у підменю обираємо команду “Абсорбер” і підпункт “Параметри”. У вікні редактора коду, що відкриється додаємо у шаблон функції Characteristic2Click наступний текст:

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

void __fastcall TForm1::Characteristic2Click(TObject *Sender)

{

Form5->Caption="Параметри абсорбера";

Form5->ShowModal();

}

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

Налаштування виконавчого коду до команд

Підменю “Розріджувач лугу”.

Крок 1. У верхній частині Form1 натискаємо кнопкою мишки на MainMenu і на назві “Апарати” та у підменю обираємо команду “Розріджувач лугу” і підпункт “Конструкція”. У вікні редактора коду, що відкриється додаємо у шаблон функції Design3Click наступний текст:

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

void __fastcall TForm1::Design3Click(TObject *Sender)

{

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

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

Form3->ShowModal();

}

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

Крок 2. У верхній частині Form1 натискаємо кнопкою мишки на MainMenu і на назві “Апарати” та у підменю обираємо команду “Розріджувач лугу” і підпункт “Опис процесу”. У вікні редактора коду, що відкриється додаємо у шаблон функції Process3Click наступний текст:

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

void __fastcall TForm1::Process3Click(TObject *Sender)

{

Form2->RichEdit1->Lines->LoadFromFile("Data/Device3/Process.rtf");

Form2->Caption="Опис процесу в розріджувачі лугу";

Form2->ShowModal();

}

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

Крок 3. У верхній частині Form1 натискаємо кнопкою мишки на MainMenu і на назві “Апарати” та у підменю обираємо команду “Розріджувач лугу”, в якому обираємо підпункт “Параметри”. У вікні редактора коду додаємо у шаблон функції Characteristic3Click наступний текст:

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

void __fastcall TForm1::Characteristic3Click(TObject *Sender)

{

Form6->Caption="Параметри розріджувача лугу";

Form6->ShowModal();

}

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

Відповідно до налаштувань функцій, описаних вище у пункті 5.2, блок-схема алгоритму з виконаня команд і підкоманд у меню “Апарати” буде мати блоки і структуру, показані на рис. 5-3.