unit1.~pas

delphi text editor源码

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Open1: TMenuItem;
    Save1: TMenuItem;
    Exit1: TMenuItem;
    Edir1: TMenuItem;
    Font1: TMenuItem;
    BGColor1: TMenuItem;
    OD1: TOpenDialog;
    SD1: TSaveDialog;
    ColorDialog1: TColorDialog;
    FontDialog1: TFontDialog;
    ActionList1: TActionList;
    EditCut1: TEditCut;
    EditCopy1: TEditCopy;
    EditPaste1: TEditPaste;
    EditSelectAll1: TEditSelectAll;
    EditUndo1: TEditUndo;
    EditDelete1: TEditDelete;
    Open: TAction;
    Save: TAction;
    Exit: TAction;
    Font: TAction;
    Color: TAction;
    Copy1: TMenuItem;
    Cut1: TMenuItem;
    Color1: TMenuItem;
    Paste1: TMenuItem;
    SelectAll1: TMenuItem;
    Undo1: TMenuItem;
    procedure OpenExecute(Sender: TObject);
    procedure SaveExecute(Sender: TObject);
    procedure ExitExecute(Sender: TObject);
    procedure FontExecute(Sender: TObject);
    procedure ColorExecute(Sender: TObject);
    procedure EditCut1Execute(Sender: TObject);
    procedure EditCopy1Execute(Sender: TObject);
    procedure EditPaste1Execute(Sender: TObject);
    procedure EditSelectAll1Execute(Sender: TObject);
    procedure EditUndo1Execute(Sender: TObject);
    procedure EditDelete1Execute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.OpenExecute(Sender: TObject);
begin
OD1.execute;
Memo1.Lines.LoadFromFile(OD1.filename);
end;
 
procedure TForm1.SaveExecute(Sender: TObject);
begin
SD1.Execute;
Memo1.lines.savetofile(SD1.filename);
end;

procedure TForm1.ExitExecute(Sender: TObject);
begin
 Close()
end;

procedure TForm1.FontExecute(Sender: TObject);
begin
        FontDialog1.Execute;
        Memo1.Font:=FontDialog1.Font;
end;

procedure TForm1.ColorExecute(Sender: TObject);
begin
    ColorDialog1.Execute;
    Memo1.Color:=ColorDialog1.Color;
end;

procedure TForm1.EditCut1Execute(Sender: TObject);
begin
        Memo1.CutToClipboard;
end;

procedure TForm1.EditCopy1Execute(Sender: TObject);
begin
        Memo1.CopyToClipboard;
end;

procedure TForm1.EditPaste1Execute(Sender: TObject);
begin
        Memo1.PasteFromClipboard;
end;

procedure TForm1.EditSelectAll1Execute(Sender: TObject);
begin
 Memo1.SelectAll;
end;

procedure TForm1.EditUndo1Execute(Sender: TObject);
begin
 Memo1.Undo;
end;

procedure TForm1.EditDelete1Execute(Sender: TObject);
begin
 Memo1.Clear;
 end;

end.