unit1.pas

文本编辑器,虽然功能比较简单,但是还是希望能够给初学者一些帮助.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    filen1: TMenuItem;
    editn2: TMenuItem;
    formatn3: TMenuItem;
    helpn4: TMenuItem;
    filenew: TMenuItem;
    fileopen: TMenuItem;
    filesave: TMenuItem;
    fileexit: TMenuItem;
    editcut: TMenuItem;
    editcopy: TMenuItem;
    editpaste: TMenuItem;
    auto1: TMenuItem;
    selectall1: TMenuItem;
    align: TMenuItem;
    leftalign: TMenuItem;
    centeralign: TMenuItem;
    rightalign: TMenuItem;
    font1: TMenuItem;
    bold1: TMenuItem;
    italic: TMenuItem;
    underline1: TMenuItem;
    color1: TMenuItem;
    background: TMenuItem;
    aboutnotebook: TMenuItem;
    StatusBar1: TStatusBar;
    ColorDialog1: TColorDialog;
    FontDialog1: TFontDialog;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Memo1: TMemo;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    procedure ShowHint(Sender:TObject);
    procedure filenewClick(Sender: TObject);
    procedure fileopenClick(Sender: TObject);
    procedure filesaveClick(Sender: TObject);
    procedure fileexitClick(Sender: TObject);
    procedure editcutClick(Sender: TObject);
    procedure editcopyClick(Sender: TObject);
    procedure editpasteClick(Sender: TObject);
    procedure selectall1Click(Sender: TObject);
    procedure auto1Click(Sender: TObject);
    procedure leftalignClick(Sender: TObject);
    procedure centeralignClick(Sender: TObject);
    procedure rightalignClick(Sender: TObject);
    procedure bold1Click(Sender: TObject);
    procedure italicClick(Sender: TObject);
    procedure underline1Click(Sender: TObject);
    procedure color1Click(Sender: TObject);
    procedure backgroundClick(Sender: TObject);
    procedure aboutnotebookClick(Sender: TObject);
  private
    //procedure ShowHint(Sender: TObject);

    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



{ TForm1 }

{ TForm1 }
procedure TForm1.ShowHint(Sender: TObject);
begin
  statusbar1.Panels[1].Text:=application.Hint;
end;


procedure TForm1.filenewClick(Sender: TObject);
begin
  Memo1.Clear;
  Memo1.SetFocus;
  Memo1.Color:=clMenu;
  Memo1.Font.Color:=clBlue;
  Memo1.Font.Size:=10;
end;

procedure TForm1.fileopenClick(Sender: TObject);
begin
  if opendialog1.Execute then
    Memo1.Lines.LoadFromFile(opendialog1.FileName);
end;

procedure TForm1.filesaveClick(Sender: TObject);
begin
  if savedialog1.Execute then
    Memo1.Lines.SaveToFile(savedialog1.FileName);
end;

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

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

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

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

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

procedure TForm1.auto1Click(Sender: TObject);
begin
  auto1.Checked:=not auto1.Checked;
    if auto1.Checked then
      memo1.WordWrap:=true
    else
      memo1.WordWrap:=false;
end;

procedure TForm1.leftalignClick(Sender: TObject);
begin
  leftalign.Checked:=not leftalign.Checked;
    if leftalign.Checked then
      Memo1.Alignment:=taLeftJustify;
end;

procedure TForm1.centeralignClick(Sender: TObject);
begin
  centeralign.Checked:=not centeralign.Checked;
    if centeralign.Checked then
      Memo1.Alignment:=taCenter;
end;

procedure TForm1.rightalignClick(Sender: TObject);
begin
  rightalign.Checked:=not rightalign.Checked;
    if rightalign.Checked then
      memo1.Alignment:=taRightJustify;
end;

procedure TForm1.bold1Click(Sender: TObject);
begin
  bold1.Checked:=not bold1.Checked;
    if bold1.Checked then
      memo1.Font.Style:=memo1.Font.Style+[fsBold]
    else
      memo1.Font.Style:=memo1.Font.Style-[fsBold]

end;

procedure TForm1.italicClick(Sender: TObject);
begin
  italic.Checked:=not italic.Checked;
    if italic.Checked then
      memo1.Font.Style:=memo1.Font.Style+[fsItalic]
    else
      memo1.Font.Style:=memo1.Font.Style-[fsItalic]
end;

procedure TForm1.underline1Click(Sender: TObject);
begin
  underline1.Checked:=not underline1.Checked;
    if underline1.Checked then
      memo1.Font.style:=memo1.Font.Style+[fsunderline]
    else
      memo1.Font.Style:=memo1.Font.Style-[fsunderline]
end;

procedure TForm1.color1Click(Sender: TObject);
begin
  if colordialog1.Execute then
    memo1.Font.Color:=colordialog1.Color;
end;

procedure TForm1.backgroundClick(Sender: TObject);
begin
  if colordialog1.Execute then
    memo1.Color:=colordialog1.Color;
end;

procedure TForm1.aboutnotebookClick(Sender: TObject);
begin
showmessage('版本信息！')
end;

end.