Домашнє завдання:
У стандартному діалозі SaveDialog1, який використовувався у завданні 1, залишилося не заповненим поле Тип файлів (властивість Filter компоненти SaveDialog1). Заповніть його самостійно, аналогічно до того, як це було зроблено для діалогу OpenDialog1.
Підправте програмні проекти 1-го завдання таким чином, щоб у заголовку форми завжди відображалася назва програми (значення константи ProgramName), а через дефіс — ім’я файлу, який опрацьовується. Під час набору нового тексту (зразу після завантаження програми чи після виконання команди ’New’) у заголовку форми має відображатися назва програми, а через дефіс — повідомлення ’New file’.
2-е завдання
На нову форму помістіть наступні компоненти: поле Memo1 так, щоб воно займало всю клієнтську область вікна (властивість Align повинна мати значення alClient, а властивість ScrollBars — ssBoth), діалоги OpenDialog1 та SaveDialog1, компоненту формування меню MainMenu1.
Розташування останніх трьох компонент на формі не має значення, оскільки під час виконання програми їх піктограми є невидимими.
Формувати меню форми зручно за допомогою відповідного конструктора. Для цього розкриємо діалогове вікно для властивості Items компоненти MainMenu1. Це буде вікно конструктора меню. У ньому потрібно мишею виділяти курсорну рамку, де має бути розташований пункт меню (опція) чи команда певного пункту (підопція), а у вікні інспектора об’єктів справа від властивості Caption вказувати назву пункту чи команди. Сформуйте структуру меню як показано нижче.
У вікні редактора коду для файлу Unit1.h сформується наступний текст:
class TForm1 : public TForm
{
__published: // IDE-managed Components
TMemo *Memo1;
TOpenDialog *OpenDialog1;
TSaveDialog *SaveDialog1;
TMainMenu *MainMenu1;
TMenuItem *File1;
TMenuItem *About1;
TMenuItem *New1;
TMenuItem *LoadFile1;
TMenuItem *SaveFile1;
TMenuItem *Saveas1;
TMenuItem *Quit1;
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
У цьому модулі для класу TForm1 будуть сформовані об’єкти класу TMenuItem, які відповідатимуть опціям і під опціям меню форми. Для того, щоб опції чи підопції виконували відповідні команди, потрібно для кожної з них запрограмувати подію OnClick. Зробіть це самостійно. Тексти аналогічних методів можна запозичити із програмного проекту для попереднього завдання.
Пункт меню About повинен вивести вікно з повідомленням про авторські права:
void __fastcall TForm1::About1Click(TObject *Sender)
{
ShowMessage("Copyright by Лукасевич Тарас,"
"student of TDTU, Ukraine, 2006");
}
Процедура ShowMessage виводить на екран інформаційне вікно з текстом повідомлення та кнопкою Ok.
Під опцію Quit можна реалізувати таким методом:
void __fastcall TForm1::Quit1Click(TObject *Sender)
{
Close();
}
Завершіть розробку проекту та протестуйте його.