unit1.~pas

一个小且实用的文本编辑工具。本工具是用DELPHI开发。重点就是实用！

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Memo1: TMemo;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    ColorDialog1: TColorDialog;
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    FontDialog1: TFontDialog;
    File1: TMenuItem;
    Edit1: TMenuItem;
    Style1: TMenuItem;
    New1: TMenuItem;
    Open1: TMenuItem;
    Save1: TMenuItem;
    Exit1: TMenuItem;
    SelectAll1: TMenuItem;
    Cut1: TMenuItem;
    Copy1: TMenuItem;
    Paste1: TMenuItem;
    Undo1: TMenuItem;
    Font1: TMenuItem;
    Color1: TMenuItem;
    procedure SpeedButton13Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Open1Click(Sender: TObject);
    procedure New1Click(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
    procedure Save1Click(Sender: TObject);
    procedure SelectAll1Click(Sender: TObject);
    procedure Cut1Click(Sender: TObject);
    procedure Copy1Click(Sender: TObject);
    procedure Paste1Click(Sender: TObject);
    procedure Undo1Click(Sender: TObject);
    procedure Font1Click(Sender: TObject);
    procedure Color1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SpeedButton13Click(Sender: TObject);
begin
   Form1.Memo1.Alignment:=taLeftJustify;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
   Form1.New1.OnClick(Sender);
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
   Form1.Open1.OnClick(Sender);
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
   Form1.Save1.OnClick(Sender);
end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
   Form1.Cut1.OnClick(Sender);
end;

procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
   Form1.Copy1.OnClick(Sender);
end;

procedure TForm1.SpeedButton6Click(Sender: TObject);
begin
   Form1.Paste1.OnClick(Sender);
end;

procedure TForm1.SpeedButton7Click(Sender: TObject);
begin
   Form1.Undo1.OnClick(Sender);
end;

procedure TForm1.SpeedButton8Click(Sender: TObject);
var
   flag:boolean;
begin
   flag:=Form1.SpeedButton8.Down;
   if (flag) then
   begin
      Form1.Memo1.Font.Style:=Form1.Memo1.Font.Style+[fsBold];
   end
   else
   begin
      Form1.Memo1.Font.Style:=Form1.Memo1.Font.Style-[fsBold];
   end;
end;

procedure TForm1.SpeedButton9Click(Sender: TObject);
var
   flag:boolean;
begin
   flag:=Form1.SpeedButton8.Down;
   if (flag) then
   begin
      Form1.Memo1.Font.Style:=Form1.Memo1.Font.Style+[fsItalic];
   end
   else
   begin
      Form1.Memo1.Font.Style:=Form1.Memo1.Font.Style-[fsItalic];
   end;
end;

procedure TForm1.SpeedButton10Click(Sender: TObject);
var
   flag:boolean;
begin
   flag:=Form1.SpeedButton8.Down;
   if (flag) then
   begin
      Form1.Memo1.Font.Style:=Form1.Memo1.Font.Style+[fsUnderline];
   end
   else
   begin
      Form1.Memo1.Font.Style:=Form1.Memo1.Font.Style-[fsUnderline];
   end;
end;

procedure TForm1.SpeedButton11Click(Sender: TObject);
begin
   Form1.Memo1.Alignment:=taCenter;
end;

procedure TForm1.SpeedButton12Click(Sender: TObject);
begin
   Form1.Memo1.Alignment:=taRightJustify;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   Form1.Memo1.Font.Color:=RGB(0,0,0);
   Form1.Memo1.Color:=RGB(255,255,255);
   Form1.OpenDialog1.Title:='打开一个文本文件:';
   Form1.OpenDialog1.Filter:='TextFile(*.txt)|*.txt';
   Form1.SaveDialog1.Title:='保存文件：';
   Form1.SaveDialog1.DefaultExt:=String('TXT');
   Form1.SaveDialog1.Filter:='ALL Files(*.*)|*.*|TextFiles(*.txt)|*.txt';
   Form1.FontDialog1.Font:=Form1.Memo1.Font;
   Form1.ColorDialog1.Color:=Form1.Memo1.Color;
end;   
procedure TForm1.Open1Click(Sender: TObject);
begin
   if (Form1.OpenDialog1.Execute) then
   begin
      Form1.Memo1.Lines.LoadFromFile(Form1.OpenDialog1.FileName);
   end;
end;

procedure TForm1.New1Click(Sender: TObject);
begin
   Form1.Memo1.Clear;
end;

procedure TForm1.Exit1Click(Sender: TObject);
begin
   Form1.Close;
end;

procedure TForm1.Save1Click(Sender: TObject);
begin
   if (Form1.SaveDialog1.Execute) then
   begin
      Form1.Memo1.Lines.SaveToFile(Form1.SaveDialog1.FileName);
   end;
end;

procedure TForm1.SelectAll1Click(Sender: TObject);
begin
   Form1.Memo1.SelectAll;
end;

procedure TForm1.Cut1Click(Sender: TObject);
begin
   Form1.Memo1.CutToClipboard;
end;

procedure TForm1.Copy1Click(Sender: TObject);
begin
   Form1.Memo1.CopyToClipboard;
end;

procedure TForm1.Paste1Click(Sender: TObject);
begin
   Form1.Memo1.PasteFromClipboard;
end;

procedure TForm1.Undo1Click(Sender: TObject);
begin
   Form1.Memo1.Undo;
end;

procedure TForm1.Font1Click(Sender: TObject);
begin
   if (Form1.FontDialog1.Execute) then
   begin
      Form1.Memo1.Font:=Form1.FontDialog1.Font;
   end;
end;

procedure TForm1.Color1Click(Sender: TObject);
begin
   if (Form1.ColorDialog1.Execute) then
   begin
      Form1.Memo1.Color:=Form1.ColorDialog1.Color;
   end;
end;

end.