gn="justify"> После Внесення змін звітність, прієднаті створену форму до першого модуля и создать Програмний код для пункту меню В«Про автораВ»: __fastcall TForm1: AvtorClick (TObject * Sender)
{> ShowModal ();
}
У даним варіанті виклику допоміжної форми вона становится В«модальностейВ». Це означає, что Завершення роботи з формою здійснюється при натісканні кнопки ОК и при цьом жодних події для цієї кнопки візначаті НЕ нужно. p align="justify"> Для Виведення ІНФОРМАЦІЇ про постановку математичної задачі створімо ще одну допоміжну форму, на якові встановімо Такі компоненти:
1) MainMenu (закладка Standart) - для создания меню на новій ФОРМІ;
) RichEdit (закладка Win32) - для перегляду даніх, записання у текстовому редакторі Word у форматі RTF. Цею компонент є Основним вікном для Редагування користувачем Текстову файлів. Атрибути форматування задаються властівістю SelAttributes. Если у вікні віділено фрагмент тексту, то властівість SelAttributes візначає формат самє цього фрагмента. А ЯКЩО віділеного тексту немає (ніякий фрагмент НЕ віділено), то властівість SelAttributes візначає фрагмент того тексту, Який буде вводітіся, починаючі з поточної позіції курсору;
) OpenDialog, SaveDialog (закладка Dialogs) - компоненти для Відкриття и Збереження файлу после его коригування;
) FontDialog (закладка Dialogs) - для Зміни стилю та розміру шрифту при форматуванні даніх у RichEdit.
Компоненти OpenDialog, SaveDialog, FontDialog є невидимими, того їх можна встановлюваті у будь-якому місці на ФОРМІ. Зовнішній вигляд форми после встановлення: __fastcall Tform6: view_zadanClick (TObject * Sender)// Перегляд завдення
{* ffname; -> Filter = В«Doc files (*. rtf) | *. rtfВ»; (OpenDialog1-> Execute ()) ffname = OpenDialog1-> FileName.c_str ( ); -> Lines-> LoadFromFile (ffname); -> Caption = "Файл називається -В» + AnsiString (ffname); -> Modified = false;
}
//-__fastcall Tform6: Font_StyleClick (TObject * Sender)// Зберегти Зміни
{-> Execute (); -> SelAttributes-> Assign (FontDialog1-> Font);
}
//-__fastcall TForm6: Savе_modClick (TObject * Sender)// Изменить шрифт и стиль
{* ffname; -> Filter = В«Doc files (*. rtf) | *. rtfВ»;// застосуваті для зберігання фільтр
// для відбору файлів з типом rtf (SaveDialog1-> Execute ()) -> Lines-> SaveToFile (SaveDialog1-> FileName); -> Modified = false;
}
//-__fastcall TForm7: ExitClick (TObject * Sender)// Вихід
{int r; (RichEdit1-> Modified)// Я...
