Добавил:
korayakov
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лабы / С++Builder / Laba5 / task2 / main
.cpp//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Main.h"
#include "About.h"
//---------------------------------------------------------------------------
#pragma resource "*.dfm"
TMainForm *MainForm;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent *Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::CreateMDIChild(String Name)
{
TMDIChild *Child;
//--- create a new MDI child window ----
Child = new TMDIChild(Application);
Child->Caption = Name;
if (FileExists (Name))
Child->Memo1->Lines->LoadFromFile(Name);
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::FileNew1Execute(TObject *Sender)
{
CreateMDIChild("NONAME" + IntToStr(MDIChildCount + 1));
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::FileOpen1Execute(TObject *Sender)
{
if (OpenDialog->Execute())
CreateMDIChild(OpenDialog->FileName);
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::HelpAbout1Execute(TObject *Sender)
{
AboutBox->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::FileExit1Execute(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::SetPropertyExecute(TObject *Sender)
{
if (Form1->ShowModal())
{
if (MainForm->MDIChildCount)
{
if (((TMDIChild*) MainForm->MDIChildren[0])->Memo1->Lines->Count < 2)
{
((TMDIChild*) MainForm->MDIChildren[0])->Memo1->Lines->Add("");
((TMDIChild*) MainForm->MDIChildren[0])->Memo1->Lines->Add("");
}
((TMDIChild*) MainForm->MDIChildren[0])->Memo1->Lines->Strings[0]=Form1->Edit1->Text;
((TMDIChild*) MainForm->MDIChildren[0])->Memo1->Lines->Strings[1]=Form1->Edit2->Text;
}
}
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::FileSaveAs1Execute(TObject *Sender)
{
if (SaveDialog1->Execute()) ((TMDIChild*) MainForm->MDIChildren[0])->Memo1->Lines->SaveToFile(SaveDialog1->FileName);
}
//---------------------------------------------------------------------------
Соседние файлы в папке task2