Задание. 1. Выберите в меню Пуск – Программы - CodeGear RAD Studio 2009 - C++Builder 2009

1. Выберите в меню Пуск – Программы - CodeGear RAD Studio 2009 - C++Builder 2009

2. Создание новое приложение (File – New – VCL Forms Application)

a. Проектирование интерфейса приложения

а). Измените свойства компонента RichEdit1:
Align – alClient, BorderStyle – bsNone, ScrollBars – ssVertical, WordWrap – true.

б). Измените свойство Name для команд выбора в меню (см. рисунок), например, для команды Файл – Открыть измените свойство Name на imOpen.

в). Создайте новую форму (File – New – Form С++ Builder). Сохраните модуль формы под именем about.cpp.

г). Включите модуль about.cpp в модуль Unit1.cpp, для этого добавьте после строчки #include " Unit1.h" строку #include " about.h"

b. Программирование приложения

а). Перед конструктором формы добавьте описание переменной для задания имени файла:

AnsiString aFileName;.

б). Напишите программу для открытия файла:

void __fastcall TForm1:: imOpenClick(TObject *Sender)

{

OpenDialog1-> FileName=" *.txt";

if (OpenDialog1-> Execute())

{RichEdit1-> Lines-> LoadFromFile(OpenDialog1-> FileName);

Form1-> Caption=" MEdit - " +OpenDialog1-> FileName;

aFileName=OpenDialog1-> FileName; }

}

в). Напишите программу для сохранения данных в файле:

void __fastcall TForm1:: imSaveClick(TObject *Sender)

{

if (aFileName==" ")

{

if (SaveDialog1-> Execute())

aFileName=SaveDialog1-> FileName;

}

RichEdit1-> Lines-> SaveToFile(aFileName);

Form1-> Caption=" MEdit - " +aFileName;

}

г). Задайте начальные значения для программы, для этого в конструктор формы внесите:

__fastcall TForm1:: TForm1(TComponent* Owner)

: TForm(Owner)

{

aFileName=" ";

SpeedButton1-> OnClick = imOpenClick;

SpeedButton2-> OnClick = imSaveClick;

}

д). Самостоятельно добавьте в меню команду Сохранить как и напишите процедуру.

е). Самостоятельно напишите программу для выбора в меню Файл команды Выход.

ж). Напишите программу для выбора в меню Параметры команды Панель инструментов.

void __fastcall TForm1:: imToolBarClick(TObject *Sender)

{

ToolBar1-> Visible =! ToolBar1-> Visible;

imToolBar -> Checked =! imToolBar-> Checked;

}

з). Напишите процедуру для выбора команды О программе:

void __fastcall TForm1:: AboutClick(TObject *Sender)

{

TAboutForm *AboutForm;

AboutForm=new TAboutForm (this);

AboutForm-> ShowModal();