xie.pas

利用Delphi制作的一个简单的文档编辑器。由于我是初学者

unit xie;

interface

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

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    ToolBar1: TToolBar;
    F1: TMenuItem;
    N1: TMenuItem;
    O1: TMenuItem;
    S1: TMenuItem;
    A1: TMenuItem;
    N2: TMenuItem;
    P1: TMenuItem;
    N3: TMenuItem;
    X1: TMenuItem;
    E1: TMenuItem;
    U1: TMenuItem;
    N4: TMenuItem;
    X2: TMenuItem;
    X3: TMenuItem;
    V1: TMenuItem;
    D1: TMenuItem;
    N5: TMenuItem;
    F2: TMenuItem;
    R1: TMenuItem;
    N6: TMenuItem;
    S2: TMenuItem;
    O2: TMenuItem;
    F3: TMenuItem;
    A2: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    H1: TMenuItem;
    F4: TMenuItem;
    A3: TMenuItem;
    PopupMenu1: TPopupMenu;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    PrintDialog1: TPrintDialog;
    Editor: TRichEdit;
    FindDialog1: TFindDialog;
    ReplaceDialog1: TReplaceDialog;
    FontDialog1: TFontDialog;
    PrinterSetupDialog1: TPrinterSetupDialog;
    N15: TMenuItem;
    N16: TMenuItem;
    procedure X1Click(Sender: TObject);
    procedure O1Click(Sender: TObject);
    procedure X2Click(Sender: TObject);
    procedure V1Click(Sender: TObject);
    procedure X3Click(Sender: TObject);
    procedure P1Click(Sender: TObject);
    procedure U1Click(Sender: TObject);
    procedure D1Click(Sender: TObject);
    procedure S2Click(Sender: TObject);
    procedure F2Click(Sender: TObject);
    procedure R1Click(Sender: TObject);
    procedure F3Click(Sender: TObject);
    procedure S1Click(Sender: TObject);
    procedure A1Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.X1Click(Sender: TObject);
begin
  close;
end;

procedure TForm1.O1Click(Sender: TObject);
begin
    if OpenDialog1.execute  then
    Editor.lines.LoadFromFile(OpenDialog1.FileName);
end;

procedure TForm1.X2Click(Sender: TObject);
begin
  Editor.CopyToClipboard ;
end;

procedure TForm1.V1Click(Sender: TObject);
begin
  Editor.PasteFromClipboard ;
end;

procedure TForm1.X3Click(Sender: TObject);
begin
  Editor.CutToClipboard ;
end;

procedure TForm1.P1Click(Sender: TObject);
begin
  if PrintDialog1.Execute then
  Editor.Print(Editor.Text );
end;

procedure TForm1.U1Click(Sender: TObject);
begin
  editor.Undo ;
end;

procedure TForm1.D1Click(Sender: TObject);
begin
  editor.ClearSelection;
end;

procedure TForm1.S2Click(Sender: TObject);
begin
  editor.SelectAll;
end;

procedure TForm1.F2Click(Sender: TObject);
begin
  finddialog1.Execute ;
end;

procedure TForm1.R1Click(Sender: TObject);
begin
  replacedialog1.Execute ;
end;

procedure TForm1.F3Click(Sender: TObject);
begin
   FontDialog1.Font :=Editor.Font ;
   if FontDialog1.Execute then
    Editor.SelAttributes.Assign(FontDialog1.Font );
end;

procedure TForm1.S1Click(Sender: TObject);
begin
    if SaveDialog1.execute  then
    Editor.lines.LoadFromFile(SaveDialog1.FileName);
end;


procedure TForm1.A1Click(Sender: TObject);
begin
    if SaveDialog1.execute  then
    Editor.lines.LoadFromFile(SaveDialog1.FileName);
end;

procedure TForm1.N1Click(Sender: TObject);
begin
  TRichEdit.Create(Self);
end;

procedure TForm1.N15Click(Sender: TObject);
begin
  PrinterSetupDialog1.Execute ;
end;

procedure TForm1.N11Click(Sender: TObject);
begin
    editor.Undo ;
end;

procedure TForm1.N13Click(Sender: TObject);
begin
    Editor.CopyToClipboard ;
end;

procedure TForm1.N16Click(Sender: TObject);
begin
    Editor.CutToClipboard ;
end;

procedure TForm1.N14Click(Sender: TObject);
begin
  Editor.PasteFromClipboard ;
end;

end.