unit NotePad;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus;

type
  TForm6 = class(TForm)
    Txt: TMemo;
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Create1: TMenuItem;
    Open1: TMenuItem;
    Save1: TMenuItem;
    Saveas1: TMenuItem;
    N1: TMenuItem;
    Exit1: TMenuItem;
    Correction1: TMenuItem;
    Cut1: TMenuItem;
    Copy1: TMenuItem;
    Paste1: TMenuItem;
    SaveDialog1: TSaveDialog;
    OpenDialog1: TOpenDialog;
    format1: TMenuItem;
    WordWrap1: TMenuItem;
    Font1: TMenuItem;
    FontDialog1: TFontDialog;
    procedure OpenClick(Sender: TObject);
    procedure SaveClick(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
    procedure Saveas1Click(Sender: TObject);
    procedure Save1Click(Sender: TObject);
    procedure Open1Click(Sender: TObject);
    procedure Create1Click(Sender: TObject);
    procedure Cut1Click(Sender: TObject);
    procedure Copy1Click(Sender: TObject);
    procedure Paste1Click(Sender: TObject);
    procedure WordWrap1Click(Sender: TObject);
    procedure Font1Click(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;
  FileWork: string;

implementation

{$R *.dfm}

procedure SaveAs;
begin
  if Form6.SaveDialog1.Execute then
  begin
     Form6.Txt.Lines.SaveToFile(Form6.SaveDialog1.FileName);
     FileWork:=Form6.SaveDialog1.FileName;
  end;
end;

procedure TForm6.Copy1Click(Sender: TObject);
begin
  Txt.CopyToClipboard;
end;

procedure TForm6.Create1Click(Sender: TObject);
begin
FileWork:='';
Txt.Clear;
end;

procedure TForm6.Cut1Click(Sender: TObject);
begin
   Txt.CutToClipboard;
end;

procedure TForm6.Exit1Click(Sender: TObject);
begin
   Close;
end;

procedure TForm6.Font1Click(Sender: TObject);
begin
  if FontDialog1.Execute then Txt.Font:=FontDialog1.Font;
end;

procedure TForm6.FormResize(Sender: TObject);
begin
    Txt.Height:=Form6.ClientHeight;
    Txt.Width:=form6.ClientWidth;
end;

procedure TForm6.Open1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
  begin
   Txt.Lines.LoadFromFile(OpenDialog1.FileName);
   FileWork:=OpenDialog1.FileName;
  end;
end;

procedure TForm6.OpenClick(Sender: TObject);
begin
  txt.Lines.LoadFromFile(ExtractFilePath(application.ExeName)+('\test.txt'));
end;

procedure TForm6.Paste1Click(Sender: TObject);
begin
  Txt.PasteFromClipboard;
end;

procedure TForm6.Save1Click(Sender: TObject);
begin
  If FileWork='' then SaveAs else Txt.Lines.SaveToFile(FileWork);
end;

procedure TForm6.Saveas1Click(Sender: TObject);
begin
  SaveAs;
end;

procedure TForm6.SaveClick(Sender: TObject);
begin
 txt.Lines.SaveToFile(ExtractFilePath(application.ExeName)+('\test.txt'));
end;

procedure TForm6.WordWrap1Click(Sender: TObject);
begin
 If Txt.WordWrap then
   begin
    Txt.WordWrap:=false;
   Txt.ScrollBars:=ssBoth;
   WordWrap1.Checked:=False;
  end
 else
  begin
   Txt.WordWrap:=True;
   Txt.ScrollBars:=ssVertical;
   WordWrap1.Checked:=True;
  end;
end;
end.