unit1.~pas

一款简简单单的记事本软件 简单的不能再简单了 供那些初学者用来看一看 长长见识用吧

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    filen1: TMenuItem;
    editn2: TMenuItem;
    formatn3: TMenuItem;
    helpn4: TMenuItem;
    filenew: TMenuItem;
    fileopen: TMenuItem;
    filesave: TMenuItem;
    N1: TMenuItem;
    fileexit: TMenuItem;
    editcut: TMenuItem;
    editcopy: TMenuItem;
    editpaste: TMenuItem;
    auto1: TMenuItem;
    selectall1: TMenuItem;
    align: TMenuItem;
    font1: TMenuItem;
    background: TMenuItem;
    leftalign: TMenuItem;
    centeralign: TMenuItem;
    rightalign: TMenuItem;
    bold1: TMenuItem;
    italic: TMenuItem;
    underline1: TMenuItem;
    color1: TMenuItem;
    aboutnotebook: TMenuItem;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ImageList1: TImageList;
    Label1: TLabel;
    SpinEdit1: TSpinEdit;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    FontDialog1: TFontDialog;
    ColorDialog1: TColorDialog;
    Memo1: TMemo;
    StatusBar1: TStatusBar;
    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);
    procedure SpinEdit1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    
  private
    { Private declarations }
  procedure showhint(sender:tobject);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.filenewClick(Sender: TObject);
begin
memo1.Clear;
memo1.setfocus;
memo1.color:=clwhite;
memo1.Font.Color:=clblack;
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
messagedlg('文本编辑软件--笔记本，作者：沈明璋 2000年4月',mtinformation,[mbok],0);

end;

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
memo1.Font.Size:=spinedit1.Value;
end;
procedure tform1.showhint(sender:tobject);
begin
statusbar1.Panels[1].text:=application.Hint;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
application.OnHint:=showhint;
end;

end.