Розділ 4 створення додаткових форм
1 Форми «Про автора» та «Завдання»
Для забезпечення інформаційної частини проекту, а саме надання інформації про автора роботи та для ознайомлення з постановкою завдання, додамо, послідовно ще дві форми.
Почнемо з форми, яка відображає авторство проекту. Для цього в С++Builder виконаємо команду File / New Form. У діалоговому вікні NewItems на закладці Forms виберемо форму, яка називається AboutBox, і настинемо OК. На цій формі змінимо, при необхідності, компоненти Label, які відображатимуть інформацію про авторство, тему і керівника роботи. Зовнішній вигляд форми:
Після внесення змін необхідно приєднати створену форму до першого модуля і створити програмний код для пункту меню «Про автора»:
void __fastcall TForm1::AvtorClick(TObject *Sender)
{
AboutBox->ShowModal();
}
В даному варіанті виклику допоміжної форми вона стає «модальною». Це означає, що завершення роботи з формою здійснюється при натисканні кнопки OК і при цьому жодного події для цієї кнопки визначати не потрібно.
Для виведення інформації про постановку математичної задачі створимо ще одну допоміжну форму, на яку встановимо такі компоненти:
MainMenu (закладка Standart) – для створення меню на новій формі;
RichEdit (закладка Win32) – для перегляду даних, записаних у текстовому редакторі Word у форматі RTF. Цей компонент є основним вікном для редагування користувачем текстових файлів. Атрибути форматування задаються властивістю SelAttributes. Якщо у вікні виділено фрагмент тексту, то властивість SelAttributes визначає формат саме цього фрагмента. А якщо виділеного тексту немає (ніякий фрагмент не виділено), то властивість SelAttributes визначає фрагмент того тексту, який буде вводитися, починаючи з поточної позиції курсору;
OpenDialog, SaveDialog (закладка Dialogs) – компоненти для відкриття і збереження файлу після його коригування;
FontDialog (закладка Dialogs) – для зміни стилю та розміру шрифту при форматуванні даних у RichEdit.
Компоненти OpenDialog, SaveDialog, FontDialog є невидимими, тому їх можна встановлювати у будь-якому місці на формі. Зовнішній вигляд форми після встановлення:
void __fastcall Tform6::view_zadanClick(TObject *Sender) // Перегляд завдення
{
char * ffname ;
OpenDialog1->Filter="Doc files(*.rtf)|*.rtf";
if (OpenDialog1->Execute()) ffname=OpenDialog1->FileName.c_str();
RichEdit1->Lines->LoadFromFile(ffname);
Form6->Caption = "Файл называется - " + AnsiString(ffname);
RichEdit1->Modified = false;
}
//-------------------------------------------------------------
void __fastcall Tform6::Font_StyleClick(TObject *Sender) // Зберегти зміни
{
FontDialog1->Execute();
RichEdit1->SelAttributes->Assign(FontDialog1->Font);
}
//-------------------------------------------------------------
void __fastcall TForm6::Savе_modClick(TObject *Sender) // Змінити шрифт і стиль
{
char * ffname ;
SaveDialog1->Filter="Doc files(*.rtf)|*.rtf"; // застосувати для зберігання фільтр
// для відбору файлів з типом rtf
if ( SaveDialog1->Execute() )
RichEdit1->Lines->SaveToFile(SaveDialog1->FileName);
RichEdit1->Modified = false;
}
//-------------------------------------------------------------
void __fastcall TForm7::ExitClick(TObject *Sender) // Вихід
{ int r;
if ( RichEdit1->Modified ) // якщо текст було змінено,
{ r = MessageDlg("Текст було змінено.\nЗберегти зміни?",
mtWarning, TMsgDlgButtons() << mbYes << mbNo,0);
if (r == mrYes) // користувач клацнув на кнопці Yes
Sav_modClick(Sender);
}
RichEdit1->Clear();
Close();
}