unit Unit1;

interface

uses

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

  Dialogs, Menus, StdCtrls;



type

  TForm1 = class(TForm)

    Memo1: TMemo;

    MainMenu1: TMainMenu;

    DOSYA1: TMenuItem;

    A1: TMenuItem;

    Yeni1: TMenuItem;

    DZEN1: TMenuItem;

    Kes1: TMenuItem;

    Kopyala1: TMenuItem;

    Yaptr1: TMenuItem;

    BM1: TMenuItem;

    Yaztipi1: TMenuItem;

    OpenDialog1: TOpenDialog;

    SaveDialog1: TSaveDialog;

    FontDialog1: TFontDialog;

    procedure Yeni1Click(Sender: TObject);

    procedure k1Click(Sender: TObject);

    procedure Kes1Click(Sender: TObject);

    procedure Kopyala1Click(Sender: TObject);

    procedure Yaztipi1Click(Sender: TObject);

    procedure Yaptr1Click(Sender: TObject);

    procedure Sil1Click(Sender: TObject);

    procedure A1Click(Sender: TObject);

    procedure Katdet1Click(Sender: TObject);

    procedure Kaydet1Click(Sender: TObject);

    procedure emizle1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



procedure TForm1.Yeni1Click(Sender: TObject);

begin

memo1.Text:='';

end;



procedure TForm1.k1Click(Sender: TObject);

begin

close;

end;



procedure TForm1.Kes1Click(Sender: TObject);

begin

        memo1.CutToClipboard ;

end;



procedure TForm1.Kopyala1Click(Sender: TObject);

begin

        Memo1.CopyToClipboard ;

end;



procedure TForm1.Yaztipi1Click(Sender: TObject);

begin

FontDialog1.Execute;

memo1.Font :=FontDialog1.Font ;

memo1.Font.Size :=FontDialog1 .font.Size ;

memo1.Font.Style:=FontDialog1 .Font.Style ;

end;



procedure TForm1.Yaptr1Click(Sender: TObject);

begin

        memo1.PasteFromClipboard ;

end;



procedure TForm1.Sil1Click(Sender: TObject);

begin

        memo1.Text:=''

end;



procedure TForm1.A1Click(Sender: TObject);

begin

        OpenDialog1.Execute ;

end;



procedure TForm1.Katdet1Click(Sender: TObject);

begin

        SaveDialog1.Execute ;

end;



procedure TForm1.Kaydet1Click(Sender: TObject);

begin

        SaveDialog1.Execute;

        memo1.Lines.SaveToFile(SaveDialog1.FileName+'.txt');

end;



procedure TForm1.emizle1Click(Sender: TObject);

begin

memo1.text:=''

end;



end.





zeki yılmaz

d_3vil@hotmail.com