Разработка текстового редактора в Delphi

1. Описание программы

1.1 Основные характеристики Рассматриваемая программа имеет возможность редактирования текстовых файлов типа TXT и RTF.

Программа представляет собой EXE файл.

Программа умеет открывать и сохранять текстовые файлы, редактировать их, изменять шрифт и размер текста.

Описание функций и клавиш приведено ниже.

1.2 Руководство для пользователя Выполняемый файл называется TextEdit.EXE. После его запуска на экране появляется окно, показанное на Рис. 1.1

Рис. 1.1 — Окно программы, возникающее после запуска Кнопки панели управления

— создание нового документа

— открытие документа

— сохранение документа

— вырезание выделенного текста

— копирование выделенного текста

— вставка текста

— отмена последнего действия

— печать документа

— полужирный шрифт

— курсивный шрифт

— подчеркнутый текст

— равнение текста по левому краю

— равнение текста по центру

— равнение текста по правому краю Работа с документами Создание нового документа

1. В меню файл выберите команду Создать.

2. Начните ввод текста.

3. Чтобы сохранит новый файл, выберите в меню файл команд сохранить как и введите имя в поле Имя файла.

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

· Чтобы сохранить существующий документ под другим именем, выберите команду Сохранит как и введите новое имя в поле Имя файла.

Открытие файла

1. В меню Файл выберите команду Открыть.

2. В открывшемся окне, в поле со списком Папка выберите диск, содержащий документ, который следует открыть.

3. Дважды щелкните папку, содержащую нужный документ.

4. Выберите документ и нажмите кнопку Открыть.

· Если вы не видите нужный документ, попробуйте выбрать другой тип документов в поле со списком Тип файлов

· Чтобы открыть один из недавно открывавшихся документов, выберите его имя в меню Файл.

Работа с текстом Отмена последнего действия В меню Правка выберите команду Отменить.

Удаление текста

1. Выделите текст, который следует удалить.

2. Чтобы переместить текст в другую часть документа, выберите в меню Правка команду Вырезать.

· Чтобы снять выделение, щелкните в любое место в документе.

· Чтобы выделить для удаления весь текст в документе, выберите в меню правка команду Выделить все.

Изменение шрифта, начертания и размера символов

1. Выделите текст, формат которого следует изменить.

2. В меню Формат выберите команду Шрифт. Откроется диалоговое окно.

3. Выберите нужные параметры и нажмите кнопку применить.

· Чтобы задать шрифт для оформления нового текста, измените его до начала ввода текста.

· Чтобы изменит шрифт всего документа, в меню Правка выберите Выделить все, а затем выберите Шрифт Форматирование абзаца

1. Щелкните любое место внутри абзаца, который требуется отформатировать.

2. На панели инструментов щелкните по одной из кнопок выравнивания текста.

Печать

1. Чтобы сменить принтер, нажмите кнопку Печать. Откроется диалоговое окно. Выберите имя принтера в поле со списком Имя.

2. Чтобы начать печатать щелкните по кнопке ОК.

текстовый файл шрифт абзац

2. Код программы

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, ComCtrls, Menus, ExtCtrls, Printers, Buttons, Spin,

ColorGrd;

type

TForm1 = class (TForm)

Panel1: TPanel;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

OpenDialog1: TOpenDialog;

SaveDialog1: TSaveDialog;

PrintDialog1: TPrintDialog;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

N16: TMenuItem;

N17: TMenuItem;

N18: TMenuItem;

N19: TMenuItem;

N20: TMenuItem;

N21: TMenuItem;

N22: TMenuItem;

StatusBar1: TStatusBar;

PopupMenu1: TPopupMenu;

N23: TMenuItem;

N24: TMenuItem;

N25: TMenuItem;

N26: TMenuItem;

N27: TMenuItem;

N28: TMenuItem;

PrintDialog2: TPrintDialog;

PrinterSetupDialog1: TPrinterSetupDialog;

FontDialog1: TFontDialog;

ColorDialog1: TColorDialog;

SpeedButton1: TSpeedButton;

SpeedButton7: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton4: TSpeedButton;

SpeedButton5: TSpeedButton;

SpeedButton10: TSpeedButton;

SpeedButton11: TSpeedButton;

SpeedButton12: TSpeedButton;

SpeedButton13: TSpeedButton;

SpeedButton14: TSpeedButton;

SpeedButton15: TSpeedButton;

SpeedButton16: TSpeedButton;

SpeedButton17: TSpeedButton;

SpeedButton18: TSpeedButton;

ColorBox1: TColorBox;

ComboBox1: TComboBox;

Memo1: TMemo;

SpinEdit1: TSpinEdit;

procedure N23Click (Sender: TObject);

procedure N24Click (Sender: TObject);

procedure N25Click (Sender: TObject);

procedure N26Click (Sender: TObject);

procedure N28Click (Sender: TObject);

procedure N14Click (Sender: TObject);

procedure N15Click (Sender: TObject);

procedure N16Click (Sender: TObject);

procedure N17Click (Sender: TObject);

procedure N18Click (Sender: TObject);

procedure N2Click (Sender: TObject);

procedure N6Click (Sender: TObject);

procedure N7Click (Sender: TObject);

procedure N9Click (Sender: TObject);

procedure N10Click (Sender: TObject);

procedure N20Click (Sender: TObject);

procedure N21Click (Sender: TObject);

procedure N3Click (Sender: TObject);

procedure Memo1KeyDown (Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure Memo1KeyUp (Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure Memo1MouseDown (Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Memo1MouseUp (Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure FormResize (Sender: TObject);

procedure SpeedButton1Click (Sender: TObject);

procedure SpeedButton2Click (Sender: TObject);

procedure SpeedButton3Click (Sender: TObject);

procedure SpeedButton11Click (Sender: TObject);

procedure SpeedButton4Click (Sender: TObject);

procedure SpeedButton5Click (Sender: TObject);

procedure SpeedButton10Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure ColorBox1Change (Sender: TObject);

procedure ComboBox1Change (Sender: TObject);

procedure SpeedButton12Click (Sender: TObject);

procedure SpeedButton13Click (Sender: TObject);

procedure SpeedButton14Click (Sender: TObject);

procedure SpeedButton15Click (Sender: TObject);

procedure SpeedButton16Click (Sender: TObject);

procedure SpeedButton17Click (Sender: TObject);

procedure SpeedButton18Click (Sender: TObject);

procedure SpinEdit1Change (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

EditFile: string;

implementation

{$R *.dfm}

procedure TForm1. N23Click (Sender: TObject);

begin

Memo1.CutToClipboard;

end;

procedure TForm1. N24Click (Sender: TObject);

begin

Memo1.CopyToClipboard;

end;

procedure TForm1. N25Click (Sender: TObject);

begin

Memo1.PasteFromClipboard;

end;

procedure TForm1. N26Click (Sender: TObject);

begin

Memo1.ClearSelection;

end;

procedure TForm1. N28Click (Sender: TObject);

begin

Memo1.SelectAll;

end;

procedure TForm1. N14Click (Sender: TObject);

begin

Memo1.CutToClipboard;

end;

procedure TForm1. N15Click (Sender: TObject);

begin

Memo1.CopyToClipboard;

end;

procedure TForm1. N16Click (Sender: TObject);

begin

Memo1.PasteFromClipboard;

end;

procedure TForm1. N17Click (Sender: TObject);

begin

Memo1.ClearSelection;

end;

procedure TForm1. N18Click (Sender: TObject);

begin

Memo1.SelectAll;

end;

procedure TForm1. N2Click (Sender: TObject);

var mes: Integer;

begin

if Memo1. Modified = true then

begin

mes := MessageDlg (' Хотите сохранить страницу? ', mtConfirmation, [mbYes, mbNo,

mbCancel], 0);

if mes = mrYes then

begin

savedialog1.Execute;

Memo1.Clear;

end;

if mes = mrNo then

Memo1.Clear;

end else

Memo1.Clear;

end;

procedure TForm1. N6Click (Sender: TObject);

begin

SaveDialog1.FileName := 'Страница1.txt';

if SaveDialog1. Execute then

begin

Memo1.Lines.SaveToFile (SaveDialog1.FileName);

Memo1.Modified := false;

end;

end;

procedure TForm1. N7Click (Sender: TObject);

begin

SaveDialog1.FileName := ' Страница1. txt ';

if SaveDialog1. Execute then

begin

EditFile := SaveDialog1. FileName;

Memo1.Lines.SaveToFile (EditFile);

if Memo1. Modified then Memo1. Modified := false;

end;

end;

procedure TForm1. N9Click (Sender: TObject);

begin

PrinterSetupDialog1.Execute;

end;

procedure TForm1. N10Click (Sender: TObject);

var

Stroka:System.TextFile;

i:integer;

begin

if PrintDialog1. Execute then

begin

AssignPrn (Stroka);

Rewrite (Stroka);

Printer.Canvas.Font:=Memo1.Font;

for i:=0 to Memo1.Lines.Count-1 do

Writeln (Stroka, Memo1. Lines[i]);

System.CloseFile (Stroka);

end;

end;

procedure TForm1. N20Click (Sender: TObject);

begin

if fontdialog1. Execute then Memo1. Font := fontdialog1. Font;

end;

procedure TForm1. N21Click (Sender: TObject);

begin

if colordialog1. Execute then Memo1.Font.Color := colordialog1. Color;

end;

procedure TForm1. N3Click (Sender: TObject);

begin

if OpenDialog1. Execute then

begin

EditFile:=OpenDialog1.FileName;

Memo1.Lines.LoadFromFile (EditFile);

Form1.Caption:= 'Документ — '+ExtractFileName (EditFile);

end;

end;

procedure TForm1. Memo1KeyDown (Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

StatusBar1.Panels[0]. Text:=IntToStr (

Memo1.CaretPos.Y+1) + ':'+

IntToStr (Memo1.CaretPos.X+1);

if Memo1. Modified

then StatusBar1. Panels[1]. Text := 'модиф.'

else StatusBar1. Panels[1]. Text := '';

end;

procedure TForm1. Memo1KeyUp (Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

StatusBar1.Panels[0]. Text:=IntToStr (

Memo1.CaretPos.Y+1) + ':'+

IntToStr (Memo1.CaretPos.X+1);

if Memo1. Modified

then StatusBar1. Panels[1]. Text := 'модиф.'

else StatusBar1. Panels[1]. Text := '';

end;

procedure TForm1. Memo1MouseDown (Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

StatusBar1.Panels[0]. Text:=IntToStr (

Memo1.CaretPos.Y+1) + ':'+

IntToStr (Memo1.CaretPos.X+1);

if Memo1. Modified

then StatusBar1. Panels[1]. Text := 'модиф.'

else StatusBar1. Panels[1]. Text := '';

end;

procedure TForm1. Memo1MouseUp (Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

StatusBar1.Panels[0]. Text:=IntToStr (

Memo1.CaretPos.Y+1) + ':'+

IntToStr (Memo1.CaretPos.X+1);

if Memo1. Modified

then StatusBar1. Panels[1]. Text := 'модиф.'

else StatusBar1. Panels[1]. Text := '';

end;

procedure TForm1. FormResize (Sender: TObject);

begin

StatusBar1.Panels[0]. Text:=IntToStr (

Memo1.CaretPos.Y+1) + ':'+

IntToStr (Memo1.CaretPos.X+1);

if Memo1. Modified

then StatusBar1. Panels[1]. Text := 'модиф.'

else StatusBar1. Panels[1]. Text := '';

StatusBar1.Panels[2]. Text := '' +DateToStr (now);

end;

procedure TForm1. SpeedButton1Click (Sender: TObject);

var mes: Integer;

begin

if Memo1. Modified = true then

begin

mes := MessageDlg (' Хотите сохранить страницу? ', mtConfirmation, [mbYes, mbNo,

mbCancel], 0);

if mes = mrYes then

begin

savedialog1.Execute;

Memo1.Clear;

end;

if mes = mrNo then

Memo1.Clear;

end else

Memo1.Clear

end;

procedure TForm1. SpeedButton2Click (Sender: TObject);

begin

if OpenDialog1. Execute then

begin

EditFile:=OpenDialog1.FileName;

Memo1.Lines.LoadFromFile (EditFile);

Form1.Caption:= 'Документ — '+ExtractFileName (EditFile);

end;

end;

procedure TForm1. SpeedButton3Click (Sender: TObject);

begin

SaveDialog1.FileName := 'Страница1.txt';

if SaveDialog1. Execute then

begin

Memo1.Lines.SaveToFile (SaveDialog1.FileName);

Memo1.Modified := false;

end;

end;

procedure TForm1. SpeedButton11Click (Sender: TObject);

begin

Memo1.Undo;

end;

procedure TForm1. SpeedButton4Click (Sender: TObject);

begin

Memo1.CutToClipboard;

end;

procedure TForm1. SpeedButton5Click (Sender: TObject);

begin

Memo1.CopyToClipboard;

end;

procedure TForm1. SpeedButton10Click (Sender: TObject);

begin

Memo1.PasteFromClipboard;

end;

procedure TForm1. FormCreate (Sender: TObject);

begin

ComboBox1.Items := Screen. Fonts;

ComboBox1.ItemIndex := 0;

end;

procedure TForm1. ColorBox1Change (Sender: TObject);

begin

Memo1.Font.Color := ColorBox1. Selected;

ColorBox1.Selected := ColorBox1. Selected;

end;

procedure TForm1. ComboBox1Change (Sender: TObject);

begin

Memo1.Font.Name := ComboBox1.Items.Strings[ComboBox1.ItemIndex];

end;

procedure TForm1. SpeedButton12Click (Sender: TObject);

var

Stroka:System.TextFile;

i:integer;

begin

if PrintDialog1. Execute then

begin

AssignPrn (Stroka);

Rewrite (Stroka);

Printer.Canvas.Font:=Memo1.Font;

for i:=0 to Memo1.Lines.Count-1 do

Writeln (Stroka, Memo1. Lines[i]);

System.CloseFile (Stroka);

end;

end;

procedure TForm1. SpeedButton13Click (Sender: TObject);

begin

memo1.Alignment:= taLeftJustify;

end;

procedure TForm1. SpeedButton14Click (Sender: TObject);

begin

memo1.Alignment := taCenter;

end;

procedure TForm1. SpeedButton15Click (Sender: TObject);

begin

memo1.Alignment := taRightJustify;

end;

procedure TForm1. SpeedButton16Click (Sender: TObject);

begin

memo1.Font.Style := [fsBold];

end;

procedure TForm1. SpeedButton17Click (Sender: TObject);

begin

Memo1.font.style:= [fsItalic];

end;

procedure TForm1. SpeedButton18Click (Sender: TObject);

begin

Memo1.font.style := [fsUnderline]

end;

procedure TForm1. SpinEdit1Change (Sender: TObject);

begin

memo1.Font.Size := spinedit1. value;

end;

end.