СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

1. "Учебное пособие". Изд.: РИУ – РГТК "Тантал", г. Москва 2000.

2. Текстовый редактор. Примеры. Назначение и основные возможности[Электронный ресурс]: - режим доступа: https://studfiles.net/preview/5135383/page:13/.-(Дата обращения: 30.03.2018).

3. Текстовый редактор Блокнот[Электронный ресурс]: - режим доступа:http://www.winpedia.ru/content/view/582/49//.-(Дата обращения: 29.03.2018).

4. Основные функции текстового редактора MS Word[Электронный ресурс]: - режим доступа:http://256.ru/computer/word7.php.-(Дата обращения: 31.03.2018).

5. Содержание. Введение Описание предметной области Понятие текстового редактора [Электронный ресурс]: - режим доступа:http://docplayer.ru/60000379-Soderzhanie-vvedenie-opisanie-predmetnoy-oblasti-ponyatie-tekstovogo-redaktora-6.html.-(Дата обращения: 27.03.2018).

6. Описание предметной области[Электронный ресурс]: - режим доступа:http://pandia.ru/text/77/246/75733.php-(Дата обращения: 26.03.2018).

ПРИЛОЖЕНИЕ А

Листинг классаunitTxt.redaktor

unitTxt.redaktor;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, Menus, ToolWin, ComCtrls, ImgList, StdCtrls, StdActns,

ActnList;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

OpenDialog1: TOpenDialog;

SaveDialog1: TSaveDialog;

RichEdit1: TRichEdit;

FontDialog1: TFontDialog;

N10: TMenuItem;

N8: TMenuItem;

N7: TMenuItem;

N9: TMenuItem;

N11: TMenuItem;

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedureFormClose(Sender: TObject; var Action: TCloseAction);

procedure N11Click(Sender: TObject);

procedure N9Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

ПРИЛОЖЕНИЕ Б

ЛистингклассаTForm1.FormClose

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

ifmessagedlg('Закрытьприложение?', mtConfirmation, [mbYes, mbNo], 0)

= mrYes then

Action :=caFree

else

Action :=caNone;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

showmessage('Текстовый редактор "TxT 1.0"//                                  ТР(текстовый редактор) — самостоятельная компьютерная программа, предназначенная для создания и изменения текстовых данных // Разработан студентом группы А-16 Ковалевым А.И ');

end;

procedure TForm1.N11Click(Sender: TObject);

begin

richedit1.Undo;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

if OpenDialog1.Execute then

RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);

end;

procedure TForm1.N5Click(Sender: TObject);

begin

if SaveDialog1.Execute then

RichEdit1.Lines.savetoFile(SaveDialog1.FileName);

end;

procedure TForm1.N6Click(Sender: TObject);

begin

if FontDialog1.Execute then

RichEdit1.SelAttributes.Assign(FontDialog1.Font);

RichEdit1.SetFocus;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

RichEdit1.Lines.Clear

end;

procedure TForm1.N8Click(Sender: TObject);

begin

form1.close

end;

procedure TForm1.N9Click(Sender: TObject);

begin

richedit1.SelectAll;

end;

end.