unit1.pas.~8~

Delphi 2005程序设计教程_实例源文件和教学课件

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, System.ComponentModel, Borland.Vcl.StdCtrls, Borland.Vcl.Menus,
  Printers,Borland.Vcl.ComCtrls;

type
  TfrmMain = class(TForm)
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    MainMenu1: TMainMenu;
    richEdit1:TRichEdit;
    F1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N16: TMenuItem;
    PrinterSetupDialog1: TPrinterSetupDialog;
    PrintDialog1: TPrintDialog;
    ColorDialog1: TColorDialog;
    FontDialog1: TFontDialog;
    N15: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    PageSetupDialog1: TPageSetupDialog;
    FindDialog1: TFindDialog;
    ReplaceDialog1: TReplaceDialog;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    procedure ReplaceDialog1Find(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure ReplaceDialog1Replace(Sender: TObject);
    procedure FindDialog1Find(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure btnAddTextClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.nfm}

procedure TfrmMain.btnAddTextClick(Sender: TObject);
begin
  //添加文本
  richEdit1.Lines.Add('{请添加文本}');
end;

//保存文件
procedure TfrmMain.N3Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
    richEdit1.Lines.SaveToFile(SaveDialog1.FileName);
end;

//打开文件
procedure TfrmMain.N2Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    richEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
end;
//关闭文件
procedure TfrmMain.N5Click(Sender: TObject);
begin
   Close;
end;

//剪切
procedure TfrmMain.N7Click(Sender: TObject);
begin
  if richEdit1.SelLength>0 then
    richEdit1.CutToClipboard;
end;
//复制
procedure TfrmMain.N8Click(Sender: TObject);
begin
  if richEdit1.SelLength>0 then
    richEdit1.CopyToClipboard;
end;
//粘贴
procedure TfrmMain.N9Click(Sender: TObject);
begin
  if richEdit1.SelLength<>0 then
    richEdit1.SelText.Remove(0,richEdit1.SelLength) ;
  richEdit1.PasteFromClipboard;
end;

procedure TfrmMain.N17Click(Sender: TObject);
begin
  if FontDialog1.Execute then
    richEdit1.Font :=FontDialog1.Font ;
end;

procedure TfrmMain.N18Click(Sender: TObject);
begin
  if ColorDialog1.Execute then
    richEdit1.Font.Color :=ColorDialog1.Color ;
end;


procedure TfrmMain.N14Click(Sender: TObject);
begin
  PageSetupDialog1.Execute
end;

procedure TfrmMain.N16Click(Sender: TObject);
begin
 if PrintDialog1.Execute then
    richEdit1.Print('Caption');
end;

procedure TfrmMain.N11Click(Sender: TObject);
begin
  FindDialog1.Execute();
end;

procedure TfrmMain.N12Click(Sender: TObject);
begin
  ReplaceDialog1.Execute(); 
end;

procedure TfrmMain.FindDialog1Find(Sender: TObject);
var
  index:LongInt;
  start,toend:Integer;
begin
  with richEdit1 do
  begin
    if SelLength<>0 then
      start:=SelStart+SelLength
    else
      start:=0;
    toend:=Length(Text)-start;
    index:=FindText(FindDialog1.FindText,start,toend,[stMatchCase]);
    if index<>-1 then
    begin
      setFocus;
      SelStart:=index;
      SelLength:=Length(FindDialog1.FindText );
    end;
  end;
end;

procedure TfrmMain.ReplaceDialog1Replace(Sender: TObject);
var
  selPos:Integer;
begin
  with TReplaceDialog(Sender) do
  begin
    selPos:=Pos(FindText,richEdit1.Lines .text);
    if selPos>0 then
    begin
      richEdit1.SelStart :=selPos-1;
      richEdit1.SelLength :=Length(FindText);
      richEdit1.SelText :=ReplaceText;
    end
    else
      MessageDlg(Concat('Could not find"',FindText),mtError,[mbOk],0);
  end;
end;

procedure TfrmMain.FormResize(Sender: TObject);
begin
  richEdit1.Height :=frmMain.Height;
  richEdit1.Width :=frmMain.Width ;
end;


procedure TfrmMain.N1Click(Sender: TObject);
begin
  richEdit1.Clear ;
end;

procedure TfrmMain.ReplaceDialog1Find(Sender: TObject);
var
  index:LongInt;
  start,toend:Integer;
begin
  with richEdit1 do
  begin
    if SelLength<>0 then
      start:=SelStart+SelLength
    else
      start:=0;
    toend:=Length(Text)-start;
    index:=FindText(ReplaceDialog1.FindText,start,toend,[stMatchCase]);
    if index<>-1 then
    begin
      setFocus;
      SelStart:=index;
      SelLength:=Length(ReplaceDialog1.FindText );
    end;
  end;
end;

end.