Interface

uses

Windows, Messages, SysUtils, Variants, Classes,

Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls,

ComCtrls, Menus;

type

TForm1 = class(TForm)

RichEdit1: TRichEdit;

Panel1: TPanel;

Button1: TButton;

Button2: TButton;

OpenDialog1: TOpenDialog;

SaveDialog1: TSaveDialog;

FontDialog1: TFontDialog;

Button3: TButton;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N10Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

if Opendialog1.Execute

then

Richedit1.Lines.LoadFromFile(OpenDialog1.FileName);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

if SaveDialog1.Execute

then RichEdit1.Lines.SaveToFile(SaveDialog1.Filename);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

if fontDialog1.execute

then Richedit1.SelAttributes.Assign(FontDialog1.Font);

end;

procedure TForm1.N2Click(Sender: TObject);

begin

button1.OnClick(self)

end;

procedure TForm1.N3Click(Sender: TObject);

begin

button2.OnClick(self)

end;

procedure TForm1.N11Click(Sender: TObject);

begin

button3.OnClick(self)

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

RichEdit1.CutToClipboard

end;

procedure TForm1.N6Click(Sender: TObject);

begin

RichEdit1.CopyToClipboard;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

RichEdit1.PasteFromClipboard;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

AboutBox.ShowModal;

end;

end.

Unit Unit2;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls,

StdCtrls, Buttons, ExtCtrls;

type

TAboutBox = class(TForm)

Panel1: TPanel;

ProgramIcon: TImage;

ProductName: TLabel;

Version: TLabel;

Copyright: TLabel;

Comments: TLabel;

OKButton: TButton;

procedure OKButtonClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var AboutBox: TAboutBox;

implementation

{$R *.dfm}

procedure TAboutBox.OKButtonClick(Sender: TObject);

begin

Close

end;

end.