Изучение принципа работы текстового редактора

Цель работы — понять основы работы простейшего текстового редактора.

Теория

Текстовый редактор — компьютерная программа, предназначенная для создания и изменения текстовых файлов, а также их просмотра на экране, вывода на печать, поиска фрагментов текста и т. п.

Различают два типа текстовых редакторов.

Первый тип ориентирован на работу с последовательностью символов в текстовых файлах. Такие редакторы обеспечивают расширенную функциональность — подсветку синтаксиса, сортировку строк, шаблоны, конвертацию кодировок, показ кодов символов и т. п. Иногда их называют редакторами кода, так как основное их предназначение — написание исходных кодов компьютерных программ.

Второй тип текстовых редакторов имеет расширенные функции форматирования текста, внедрения в него графики и формул, таблиц и объектов. Такие редакторы часто называют текстовыми процессорами и предназначены они для создания различного рода документов, от личных писем до официальных бумаг. Классический пример — Microsoft Word.

Задание

Приведенная ниже программа представляет собой текстовый редактор. Разберитесь в основных принципах ее работы. Опишите используемые функции, операторы, компоненты библиотеки VCL, обработчики событий. Объясните, для чего они нужны в данной программе.

#include.

#pragma hdrstop.

#include «lab15_task1.h» .

#pragma package (smart_init).

#pragma resource «*.dfm» .

TForm1 *Form1;

AnsiString FileName;

__fastcall TForm1: TForm1(TComponent* Owner).

: TForm (Owner).

{.

FileName = «Безымянный» ;

Form1->Caption = «Текстовый редактор — «+ FileName;

ComboBox1->Items->Assign (Screen->Fonts);

}.

void __fastcall TForm1: N8Click (TObject *Sender).

{.

Form1->Close ();

}.

void __fastcall TForm1: N6Click (TObject *Sender).

{.

if (OpenDialog1->Execute ()).

{.

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

FileName = OpenDialog1->FileName;

Form1->Caption = «Текстовый редактор — «+.

OpenDialog1->FileName;

}.

}.

void __fastcall TForm1: N7Click (TObject *Sender).

{.

if (RichEdit1->Modified).

{.

if (SaveDialog1->Execute ()).

{.

RichEdit1->Lines->SaveToFile (SaveDialog1->FileName);

RichEdit1->Modified = false;

}.

}.

}.

void __fastcall TForm1: N5Click (TObject *Sender).

{.

if (RichEdit1->Lines->Count > 0).

{.

int answer;

answer = MessageBox (0," Сохранить содержимое.

окна?" ," Сохранить?", MB_YESNOCANCEL);

if (answer==IDYES).

{.

N7Click (Sender);

RichEdit1->Clear ();

}.

else if (answer==IDNO).

{.

RichEdit1->Clear ();

}.

}.

}.

void __fastcall TForm1: N9Click (TObject *Sender).

{.

if (FileName == «Безымянный.txt»).

{.

N7Click (Sender);

}.

else.

{.

RichEdit1->Lines->SaveToFile (FileName);

}.

}.

void __fastcall TForm1: N10Click (TObject *Sender).

{.

PrinterSetupDialog1->Execute ();

}.

void __fastcall TForm1: N11Click (TObject *Sender).

{.

if (PrintDialog1->Execute ()).

{.

RichEdit1->Print (OpenDialog1->FileName);

}.

}.

void __fastcall TForm1: N12Click (TObject *Sender).

{.

RichEdit1->CutToClipboard ();

}.

void __fastcall TForm1: N13Click (TObject *Sender).

{.

RichEdit1->CopyToClipboard ();

}.

void __fastcall TForm1: N14Click (TObject *Sender).

{.

RichEdit1->PasteFromClipboard ();

}.

void __fastcall TForm1: N16Click (TObject *Sender).

{.

if (N16->Checked).

{.

RichEdit1->WordWrap = false;

N16->Checked = false;

}.

else.

{.

RichEdit1->WordWrap = true;

N16->Checked = true;

}.

}.

void __fastcall TForm1: N15Click (TObject *Sender).

{.

if (FontDialog1->Execute ()).

{.

RichEdit1->Font = FontDialog1->Font;

}.

}.

void __fastcall TForm1: N17Click (TObject *Sender).

{.

RichEdit1->Clear ();

}.

void __fastcall TForm1: N19Click (TObject *Sender).

{.

RichEdit1->Undo ();

}.

void __fastcall TForm1: N20Click (TObject *Sender).

{.

N19Click (Sender);

}.

void __fastcall TForm1: N21Click (TObject *Sender).

{.

N12Click (Sender);

}.

void __fastcall TForm1: N22Click (TObject *Sender).

{.

N13Click (Sender);

}.

void __fastcall TForm1: N23Click (TObject *Sender).

{.

N14Click (Sender);

}.

void __fastcall TForm1: N24Click (TObject *Sender).

{.

N17Click (Sender);

}.

void __fastcall TForm1: N31Click (TObject *Sender).

{.

RichEdit1->SelectAll ();

}.

void __fastcall TForm1: N32Click (TObject *Sender).

{.

N31Click (Sender);

}.

void __fastcall TForm1: ComboBox1Change (TObject *Sender).

{.

RichEdit1->SelAttributes->Name = ComboBox1->Text;

}.

void __fastcall TForm1: ComboBox2Change (TObject *Sender).

{.

RichEdit1->SelAttributes->Size = StrToInt (ComboBox2->Text);

}.

void __fastcall TForm1: N33Click (TObject *Sender).

{.

MessageBox (NULL, «Лабораторная работа № 17 «, «О программе…», MB_OK | MB_ICONINFORMATION);

}.

void __fastcall TForm1: ToolButton1Click (TObject *Sender).

{.

N9Click (Sender);

}.

void __fastcall TForm1: ToolButton3Click (TObject *Sender).

{.

N5Click (Sender);

}.

void __fastcall TForm1: ToolButton2Click (TObject *Sender).

{.

N6Click (Sender);

}.

void __fastcall TForm1: N34Click (TObject *Sender).

{.

RichEdit1->Paragraph->Alignment = taLeftJustify;

N34->Checked = true;

N35->Checked = false;

N36->Checked = false;

}.

void __fastcall TForm1: N35Click (TObject *Sender).

{.

RichEdit1->Paragraph->Alignment = taCenter;

N34->Checked = false;

N35->Checked = true;

N36->Checked = false;

}.

void __fastcall TForm1: N36Click (TObject *Sender).

{.

RichEdit1->Paragraph->Alignment = taRightJustify;

N34->Checked = false;

N35->Checked = false;

N36->Checked = true;

}.

void __fastcall TForm1: ToolButton4Click (TObject *Sender).

{.

N34Click (Sender);

}.

void __fastcall TForm1: ToolButton6Click (TObject *Sender).

{.

N35Click (Sender);

}.

void __fastcall TForm1: ToolButton7Click (TObject *Sender).

{.

N36Click (Sender);

}.

void __fastcall TForm1: ToolButton10Click (TObject *Sender).

{.

N10Click (Sender);

}.