benu.pas

上各个 日上佛高热个 饿饭三脚架圣诞节高热噶啊啊爱国日 安定哦如果日啊技术靠个噶爱国.

unit benu;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, Mask, ExtCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N5: TMenuItem;
    N19: TMenuItem;
    RichEdit1: TRichEdit;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    FindDialog1: TFindDialog;
    ReplaceDialog1: TReplaceDialog;
    FontDialog1: TFontDialog;
    procedure N11Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure FindDialog1Find(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure ReplaceDialog1Replace(Sender: TObject);
    procedure ReplaceDialog1Find(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
 //   procedure FormCloseQuery(Sender: TObject;var CanClose:boolean);
 //   procedure RichEdit1SelectionChange(Sender: TObject);
    private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses aboutu;

{$R *.dfm}
const cap1 ='当前文件：';

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


procedure TForm1.N7Click(Sender: TObject);
begin
  richedit1.Clear ;
  opendialog1.FileName := '';
  form1.Caption := '简约记事本｜'+cap1+'未命名';
end;

procedure TForm1.N8Click(Sender: TObject);
begin
  with opendialog1 do
       if execute then
          begin
            richedit1.Lines.LoadFromFile (filename);
            form1.Caption := '简约记事本｜'+cap1+filename;
          end;
end;

procedure TForm1.N9Click(Sender: TObject);
begin
  if opendialog1.FileName <> '' then
     richedit1.Lines.SaveToFile (opendialog1.FileName)
  else N10Click(Sender);
end;

procedure TForm1.N10Click(Sender: TObject);
begin
  with savedialog1 do
       if execute then
          begin
            richedit1.Lines.SaveToFile (filename);
            form1.Caption := '简约记事本｜'+filename;
            opendialog1.FileName := filename;
          end;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
  finddialog1.Options := [frhidematchcase,frhidewholeword,frhideupdown];
  finddialog1.Execute ;
end;

procedure TForm1.FindDialog1Find(Sender: TObject);
var
  FoundAt: LongInt;
  StartPos, ToEnd: Integer;
begin
  with richedit1 do
  begin
    { begin the search after the current selection if there is one }
    { otherwise, begin at the start of the text }
    if SelLength <> 0 then
      StartPos := SelStart + SelLength
    else
      StartPos := 0;
    { ToEnd is the length from StartPos to the end of the text in the rich edit control }
    ToEnd := Length(Text) - StartPos;
    FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, [stMatchCase]);
    if FoundAt <> -1 then
    begin
      SetFocus;
      SelStart := FoundAt;
      SelLength := Length(FindDialog1.FindText);
    end
    else showmessage('查找完成！');
  end;
end;

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

procedure TForm1.ReplaceDialog1Find(Sender: TObject);
var
  FoundAt: LongInt;
  StartPos, ToEnd: Integer;
begin
  with RichEdit1 do
  begin
    { begin the search after the current selection if there is one }
    { otherwise, begin at the start of the text }
    if SelLength <> 0 then
      StartPos := SelStart + SelLength
    else
      StartPos := 0;
    { ToEnd is the length from StartPos to the end of the text in the rich edit control }
    ToEnd := Length(Text) - StartPos;
    FoundAt := FindText(ReplaceDialog1.FindText, StartPos, ToEnd, [stMatchCase]);
    if FoundAt <> -1 then
    begin
      SetFocus;
      SelStart := FoundAt;
      SelLength := Length(ReplaceDialog1.FindText);
    end
    else showmessage('查找完成！');
  end;
end;

procedure TForm1.ReplaceDialog1Replace(Sender: TObject);
begin
  if frReplaceAll in replacedialog1.Options then
             repeat
               replacedialog1Find(sender);
               if richedit1.SelText <> '' then
                  richedit1.SelText := replacedialog1.ReplaceText
               else exit;
             until false
  else begin
         replacedialog1Find(sender);
         if richedit1.SelText <> '' then
            richedit1.SelText := replacedialog1.ReplaceText ;
       end
end;

procedure TForm1.N16Click(Sender: TObject);
begin
  if fontdialog1.Execute then
     if richedit1.SelLength > 0 then
        richedit1.SelAttributes.Assign (fontdialog1.Font )
     else
        richedit1.defAttributes.Assign (fontdialog1.Font );
  richedit1.SetFocus ;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  richedit1.ScrollBars := ssVertical;
end;

procedure TForm1.N18Click(Sender: TObject);
begin
 aboutbox.showmodal;
end;

procedure TForm1.N17Click(Sender: TObject);
begin
 showmessage('帮助就是这样，慢慢习惯吧！');
end;

procedure TForm1.N15Click(Sender: TObject);
begin
  richedit1.SelectAll;
end;

procedure TForm1.N12Click(Sender: TObject);
begin
  richedit1.Perform(wm_cut,0,0);
  //richedit1.perform(wm_clear,0,0); 删除命令
end;

procedure TForm1.N13Click(Sender: TObject);
begin
  richedit1.Perform(wm_copy,0,0);
end;

procedure TForm1.N14Click(Sender: TObject);
begin
  richedit1.Perform(wm_paste,0,0);
end;
{procedure TForm1.FormCloseQuery(Sender: TObject;var CanClose:boolean);
begin
  CanClose:=not richedit1.modified;
  if not canclose then
  begin
    case application.messagebox('文件没有保存！需要保存吗？','提示',MB_YESNOCANCEL+MB_ICONQUESTION) of
    idyes:canclose:=savefile;
    idno:=canclose:=true;
    end;
  end;
end; }
end.