note.pas

用Delphi编的一个简单的记事本,这里面实现了一些简单的功能~！

unit note;

interface

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

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    PopupMenu1: TPopupMenu;
    Replace1: TMenuItem;
    Find1: TMenuItem;
    Paste1: TMenuItem;
    Copy1: TMenuItem;
    Cut1: TMenuItem;
    Undo1: TMenuItem;
    N7: TMenuItem;
    ImageList1: TImageList;
    File1: TMenuItem;
    Exit1: TMenuItem;
    N1: TMenuItem;
    PrintSetup1: TMenuItem;
    Print1: TMenuItem;
    N2: TMenuItem;
    SaveAs1: TMenuItem;
    Save1: TMenuItem;
    Open1: TMenuItem;
    New1: TMenuItem;
    Edit1: TMenuItem;
    Replace2: TMenuItem;
    Find2: TMenuItem;
    N4: TMenuItem;
    Paste2: TMenuItem;
    Copy2: TMenuItem;
    Cut2: TMenuItem;
    N5: TMenuItem;
    Undo2: TMenuItem;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolBar2: TToolBar;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ToolButton15: TToolButton;
    ToolButton16: TToolButton;
    ToolButton17: TToolButton;
    ToolButton18: TToolButton;
    ToolButton19: TToolButton;
    ToolButton20: TToolButton;
    ToolButton21: TToolButton;
    RichEdit1: TRichEdit;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    ColorDialog1: TColorDialog;
    procedure FormCreate(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
    procedure ToolButton12Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure ToolButton17Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  combobox1.Items:=screen.Fonts;
end;

procedure TForm1.ToolButton1Click(Sender: TObject);
begin  //新建
  richedit1.Lines.Clear;
end;

procedure TForm1.ToolButton2Click(Sender: TObject);
begin //打开
  if opendialog1.Execute then
    richedit1.Lines.LoadFromFile(opendialog1.FileName);
end;

procedure TForm1.ToolButton3Click(Sender: TObject);
begin //保存
  if savedialog1.Execute then
    richedit1.Lines.SaveToFile(savedialog1.FileName);
end;

procedure TForm1.ToolButton6Click(Sender: TObject);
begin  //剪切
  richedit1.CutToClipboard;
end;

procedure TForm1.ToolButton7Click(Sender: TObject);
begin  //复制
  richedit1.CopyToClipboard;
end;

procedure TForm1.ToolButton8Click(Sender: TObject);
begin   //粘贴
  richedit1.PasteFromClipboard;
end;

procedure TForm1.ToolButton11Click(Sender: TObject);
begin  //撤消
  richedit1.Undo;
end;

procedure TForm1.ToolButton12Click(Sender: TObject);
begin  //粗体
 if toolbutton12.Down then
  richedit1.SelAttributes.Style:=richedit1.SelAttributes.Style+[fsbold]
 else
   richedit1.SelAttributes.Style:=richedit1.SelAttributes.Style-[fsbold];
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin  //字体样式
  richedit1.SelAttributes.Name:=combobox1.Text;
end;

procedure TForm1.ComboBox2Change(Sender: TObject);
begin //字体大小
  richedit1.SelAttributes.Size:=strtoint(combobox2.Text)
end;

procedure TForm1.ToolButton17Click(Sender: TObject);
begin  //颜色
  if colordialog1.Execute then
  richedit1.SelAttributes.Color:=colordialog1.Color
end;

end.