unit1.pas

本人用delphi编写的一个记事本。功能是模拟windows自带的记事本。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, ExtDlgs, ExtCtrls, ComCtrls, ToolWin, ImgList,unit2,unit3,
  WinSkinData;

type
  Tfrmmain = class(TForm)
    MainMenu1: TMainMenu;
    F1: TMenuItem;
    N1: TMenuItem;
    O1: TMenuItem;
    S1: TMenuItem;
    A1: TMenuItem;
    N2: TMenuItem;
    U1: TMenuItem;
    P1: TMenuItem;
    N3: TMenuItem;
    X1: TMenuItem;
    E1: TMenuItem;
    U2: TMenuItem;
    T1: TMenuItem;
    N4: TMenuItem;
    C1: TMenuItem;
    P2: TMenuItem;
    L1: TMenuItem;
    F2: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    R1: TMenuItem;
    G1: TMenuItem;
    N7: TMenuItem;
    A2: TMenuItem;
    D1: TMenuItem;
    O2: TMenuItem;
    W1: TMenuItem;
    F3: TMenuItem;
    N8: TMenuItem;
    V1: TMenuItem;
    S2: TMenuItem;
    H1: TMenuItem;
    H2: TMenuItem;
    N9: TMenuItem;
    A3: TMenuItem;
    Memo1: TMemo;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    OpenPictureDialog1: TOpenPictureDialog;
    SavePictureDialog1: TSavePictureDialog;
    FontDialog1: TFontDialog;
    ColorDialog1: TColorDialog;
    PrintDialog1: TPrintDialog;
    PrinterSetupDialog1: TPrinterSetupDialog;
    FindDialog1: TFindDialog;
    ReplaceDialog1: TReplaceDialog;
    PageSetupDialog1: TPageSetupDialog;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    PopupMenu1: TPopupMenu;
    N10: TMenuItem;
    C2: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    A4: TMenuItem;
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    ToolButton6: TToolButton;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton7: TToolButton;
    N14: TMenuItem;
    ToolButton8: TToolButton;
    SkinData1: TSkinData;
    procedure D1Click(Sender: TObject);
    procedure O1Click(Sender: TObject);
    procedure S1Click(Sender: TObject);
    procedure A1Click(Sender: TObject);
    procedure U1Click(Sender: TObject);
    procedure P1Click(Sender: TObject);
    procedure X1Click(Sender: TObject);
    procedure T1Click(Sender: TObject);
    procedure C1Click(Sender: TObject);
    procedure P2Click(Sender: TObject);
    procedure L1Click(Sender: TObject);
    procedure A2Click(Sender: TObject);
    procedure F3Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure F2Click(Sender: TObject);
    procedure FindDialog1Find(Sender: TObject);
    procedure U2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Memo1Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure C2Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure A4Click(Sender: TObject);
    procedure A3Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure S2Click(Sender: TObject);
    procedure W1Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure R1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure H2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var

  frmmain: Tfrmmain;
  cfname:string;
implementation

{$R *.dfm}

procedure Tfrmmain.D1Click(Sender: TObject);
begin
 memo1.Text:=FormatDateTime('现在是： yyyy年mm月dd日hh:nn:ss ',now);
end;

procedure Tfrmmain.O1Click(Sender: TObject);
begin

  if openDialog1.Execute   then
  begin
    cfname:=opendialog1.FileName ;
     memo1.Lines.LoadFromFile(openDialog1.FileName);
     frmmain.Caption:=Extractfilename(cfname)+'-'+application.Title ;

     end;
end;

procedure Tfrmmain.S1Click(Sender: TObject);
begin
 if cfname='' then
    a1.Click
  else
    begin
    memo1.Lines.SaveToFile(cfname);
    end;
     memo1.Modified :=false;
end;

procedure Tfrmmain.A1Click(Sender: TObject);
begin
if savedialog1.Execute  then
   begin
     cfname:=savedialog1.FileName;
     memo1.Lines.SaveToFile(cfname);
     frmmain.Caption :=extractfilename(cfname)+'-'+application.Title ;
   end;
    memo1.Modified :=false;
end;

procedure Tfrmmain.U1Click(Sender: TObject);
begin
  if printersetupdialog1.Execute  then
     memo1.Lines.LoadFromFile(printersetupdialog1.Name );

end;

procedure Tfrmmain.P1Click(Sender: TObject);
begin
  if printdialog1.Execute  then
    memo1.Lines.LoadFromFile(printdialog1.Name );
end;

procedure Tfrmmain.X1Click(Sender: TObject);
begin
  frmmain.Close;
end;

procedure Tfrmmain.T1Click(Sender: TObject);
begin
  memo1.CutToClipboard;
end;

procedure Tfrmmain.C1Click(Sender: TObject);
begin
 memo1.CopyToClipboard;
end;

procedure Tfrmmain.P2Click(Sender: TObject);
begin
  memo1.PasteFromClipboard;
end;

procedure Tfrmmain.L1Click(Sender: TObject);

begin
  memo1.ClearSelection;
end;

procedure Tfrmmain.A2Click(Sender: TObject);
begin
 memo1.SelectAll;
end;

procedure Tfrmmain.F3Click(Sender: TObject);
begin
  if FontDialog1.Execute  then
      memo1.Font:=FontDialog1.Font ;

end;

procedure Tfrmmain.N8Click(Sender: TObject);
begin
   if colorDialog1.Execute  then
      memo1.Color :=colorDialog1.Color ;

end;

procedure Tfrmmain.N1Click(Sender: TObject);
var
 r,helpctx:integer;
begin
  helpctx:=0;
  if memo1.Modified  then
   begin
   r:= messagedlg('此文件已经被修改,是否保存？',mtconfirmation,[mbYes,mbNo,mbCancel],helpctx);
    if r=mrYes then
      a1.Click
    else if r=mrCancel  then
      exit;

   end;

  cfname:='';
  frmmain.Caption:='无标题-'+application.Title ;
  memo1.Lines.Clear ;

end;

procedure Tfrmmain.F2Click(Sender: TObject);

begin
   finddialog1.Execute;
end;

procedure Tfrmmain.FindDialog1Find(Sender: TObject);
  var
  p:integer;
begin
   memo1.SetFocus;

  p:=pos(finddialog1.FindText ,memo1.Text );
  if p=0 then
   showmessage('找不到'+finddialog1.FindText )
  else
   begin
    memo1.SelStart :=p-1;
    memo1.SelLength:=length(finddialog1.FindText );
   end;

end;

procedure Tfrmmain.U2Click(Sender: TObject);
begin
 memo1.Perform(em_undo,0,0);
end;

procedure Tfrmmain.Timer1Timer(Sender: TObject);
begin
  statusbar1.Panels[2].Text := FormatDateTime(' yyyy年mm月dd日hh:nn:ss ',now);
end;

procedure Tfrmmain.Memo1Click(Sender: TObject);
begin
  statusbar1.Panels[1].Text := Format('  Col:%d  Ln:%d',[memo1.CaretPos.X+1,memo1.CaretPos.Y+1]);
end;

procedure Tfrmmain.N12Click(Sender: TObject);
begin
  l1.Click;
end;

procedure Tfrmmain.N10Click(Sender: TObject);
begin
  t1.Click;
end;

procedure Tfrmmain.C2Click(Sender: TObject);
begin
  c1.Click;
end;

procedure Tfrmmain.N11Click(Sender: TObject);
begin
   p2.Click;
end;

procedure Tfrmmain.A4Click(Sender: TObject);
begin
  a2.Click;
end;

procedure Tfrmmain.A3Click(Sender: TObject);
begin
   form2.Show ;
end;

procedure Tfrmmain.ToolButton1Click(Sender: TObject);
begin
  n1.Click;
end;

procedure Tfrmmain.ToolButton2Click(Sender: TObject);
begin
  o1.Click;
end;

procedure Tfrmmain.ToolButton3Click(Sender: TObject);
begin
   s1.Click;
end;

procedure Tfrmmain.ToolButton4Click(Sender: TObject);
begin
   t1.Click;
end;

procedure Tfrmmain.ToolButton5Click(Sender: TObject);
begin
 c1.Click;
end;

procedure Tfrmmain.ToolButton6Click(Sender: TObject);
begin
  p2.Click;
end;

procedure Tfrmmain.N14Click(Sender: TObject);
begin
  toolbar1.Visible :=not toolbar1.Visible ;
  n14.Checked :=not n14.Checked; 
end;

procedure Tfrmmain.S2Click(Sender: TObject);
begin
  statusbar1.Visible := not statusbar1.Visible;
  s2.Checked :=not s2.Checked;
end;

procedure Tfrmmain.W1Click(Sender: TObject);
begin
  if w1.Checked=false then
  begin
    w1.Checked :=true;
    memo1.ScrollBars :=ssVertical;
  end
  else
  begin
   w1.Checked :=false;
   memo1.ScrollBars:= ssHorizontal;
  end;
end;

procedure Tfrmmain.N6Click(Sender: TObject);
begin
   finddialog1.Execute;
end;

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

procedure Tfrmmain.FormClose(Sender: TObject; var Action: TCloseAction);
var
r:integer;
begin
  if memo1.Modified  then
   begin
   r:= messagedlg('此文件已经被修改,是否保存？',mtconfirmation,[mbYes,mbNo,mbCancel],0);
    if r=mrYes then
      a1.Click
    else if r=mrCancel  then
      exit;

   end;

end;

procedure Tfrmmain.H2Click(Sender: TObject);
begin
  form3.show;
end;

procedure Tfrmmain.FormCreate(Sender: TObject);
begin
  statusbar1.Panels[0].Text :='  QL记事本--版权所有，翻版必究'
end;

procedure Tfrmmain.ToolButton8Click(Sender: TObject);
begin
  h2.Click;
end;

end.