Word на Bildere
.docМинистерство общего и профессионального образования РФ
Санкт-Петербургский Государственный Электротехнический Университет “ЛЭТИ”
Кафедра АПУ
Отчет
По лабораторной работе № 3
«Текстовый редактор»
Выполнили:
Группа: 3832
Факультет ОФ
Проверил:
Литвинов
Санкт-Петербург
2007 г.
//---------------------------------------------------------------------------
#include <vcl\vcl.h>
#pragma hdrstop
#include "Main.h"
#include "Unit1.h"
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma resource "*.dfm"
TMainForm *MainForm;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
: TForm(Owner)
{
}
//----------------------------------------------------------------------------
void __fastcall TMainForm::FormCreate(TObject *Sender)
{
Application->OnHint = ShowHint;
}
//----------------------------------------------------------------------------
void __fastcall TMainForm::ShowHint(TObject *Sender)
{
StatusLine->SimpleText = Application->Hint; // Выводит внизу подсказку
}
//----------------------------------------------------------------------------
void __fastcall TMainForm::FileNew(TObject *Sender)
{ if (Memo1->Modified)
{
int result=Application->MessageBox(" The carrent file has changed.Save?", " Message", MB_YESNOCANCEL |MB_ICONWARNING); // Выводит вопрос сохранить или нет
if(result==IDYES) FileSave(Sender); // Сохранить
if(result==IDCANCEL)return; // если отмена то ничего не делать
}
if(Memo1->Lines->Count>0)Memo1->Clear(); // Очистить поле ввода
SaveDialog->FileName=" "; // сбросить имя файла
}
//----------------------------------------------------------------------------
void __fastcall TMainForm::FileOpen(TObject *Sender)
{ if (Memo1->Modified)
{
int result=Application->MessageBox ( "The carrent file has changed. Save?","Message",MB_YESNOCANCEL
| MB_ICONWARNING);
if(result==IDYES)FileSave(0);
if(result==IDCANCEL)return;
}
OpenDialog->FileName=" ";
if(OpenDialog->Execute()) // Открывает диалог выбора нового файла
{
if(Memo1->Lines->Count>0) // Если количество строк > 0 тогда очищаем
Memo1->Clear();
Memo1->Lines->LoadFromFile(OpenDialog->FileName); // Загружает файл
SaveDialog->FileName=OpenDialog->FileName; // Запоминает имя файла
}
}
//----------------------------------------------------------------------------
void __fastcall TMainForm::FileSave(TObject *Sender)
{
if(SaveDialog->FileName!=" ") // Если имя файла не пустое значение
{ Memo1->Lines->SaveToFile(SaveDialog->FileName); // сохраняем файл с именем FileName
Memo1->Modified=false; // если имя файла нет, то делаем «Сохранить как»
}
else FileSaveAs(Sender);
}
//----------------------------------------------------------------------------
void __fastcall TMainForm::FileSaveAs(TObject *Sender)
{
SaveDialog->Title="Save As";
if (SaveDialog->Execute()) // Вызывает диалог сохранения файла
{Memo1->Lines->SaveToFile(SaveDialog->FileName); // сохраняет
Memo1->Modified=false; // сбрасывает флаг изменений
}
}
//----------------------------------------------------------------------------
void __fastcall TMainForm::FilePrint(TObject *Sender)
{
//if (PrintDialog->Execute())
//---- Add code to print current file ----
}
//----------------------------------------------------------------------------
void __fastcall TMainForm::FilePrintSetup(TObject *Sender)
{
//PrintSetupDialog->Execute();
}
//----------------------------------------------------------------------------
void __fastcall TMainForm::FileExit(TObject *Sender)
{
Application->Terminate(); // Выходит
}
//----------------------------------------------------------------------------
void __fastcall TMainForm::EditUndo(TObject *Sender)
{
SendMessage(Memo1->Handle,WM_UNDO,0,0); // Возврат назад
}
//----------------------------------------------------------------------------
void __fastcall TMainForm::EditCut(TObject *Sender)
{
Memo1->CutToClipboard(); // Вырезает
}
//----------------------------------------------------------------------------
void __fastcall TMainForm::EditCopy(TObject *Sender)
{
Memo1->CopyToClipboard(); // Копирует
}
//----------------------------------------------------------------------------
void __fastcall TMainForm::EditPaste(TObject *Sender)
{
Memo1->PasteFromClipboard(); // Вставляет
//---- Add code to perform Edit Paste ----
}
//----------------------------------------------------------------------------
void __fastcall TMainForm::WindowTile(TObject *Sender)
{
Tile(); // Одна форма около другой
}
//----------------------------------------------------------------------------
void __fastcall TMainForm::WindowCascade(TObject *Sender)
{
Cascade(); // Каскадом
}
//----------------------------------------------------------------------------
void __fastcall TMainForm::WindowArrange(TObject *Sender)
{
ArrangeIcons(); // упорядочивает значки
}
//----------------------------------------------------------------------------
void __fastcall TMainForm::HelpContents(TObject *Sender)
{
Application->HelpCommand(HELP_CONTENTS, 0); // открывает файл помощи ( но его выше надо указать (путь к файлу))
}
//----------------------------------------------------------------------------
void __fastcall TMainForm::HelpSearch(TObject *Sender)
{
Application->HelpCommand(HELP_PARTIALKEY, Longint(""));
}
//----------------------------------------------------------------------------
void __fastcall TMainForm::HelpHowToUse(TObject *Sender)
{
Application->HelpCommand(HELP_HELPONHELP, 0);
}
//----------------------------------------------------------------------------
void __fastcall TMainForm::HelpAbout(TObject *Sender)
{
AboutBox->ShowModal(); // показывает окно About
}
//----------------------------------------------------------------------------