unit Unit1;

interface

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

type
TForm1 = class(TForm)
CoolBar1: TCoolBar;
StatusBar1: TStatusBar;
ToolBar1: TToolBar;
ToolBar2: TToolBar;
ToolBar3: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
MainMenu1: TMainMenu;
S1: TMenuItem;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
T1: TMenuItem;
C1: TMenuItem;
S2: TMenuItem;
H1: TMenuItem;
H3: TMenuItem;
N7: TMenuItem;
U1: TMenuItem;
ImageList1: TImageList;
ImageList2: TImageList;
ImageList3: TImageList;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
ToolButton11: TToolButton;
ToolButton12: TToolButton;
ToolButton13: TToolButton;
ToolButton14: TToolButton;
ToolButton15: TToolButton;
ToolButton16: TToolButton;
ToolButton17: TToolButton;
ToolButton18: TToolButton;
ToolButton19: TToolButton;
ToolButton22: TToolButton;
ToolButton23: TToolButton;
ToolButton24: TToolButton;
ToolButton25: TToolButton;
ToolButton26: TToolButton;
ToolButton27: TToolButton;
ToolButton28: TToolButton;
ToolButton29: TToolButton;
ToolButton30: TToolButton;
ToolButton31: TToolButton;
ToolButton32: TToolButton;
ToolButton33: TToolButton;
ToolButton34: TToolButton;
ToolButton35: TToolButton;
ToolButton36: TToolButton;
ToolButton37: TToolButton;
PopupMenu1: TPopupMenu;
Text1: TRichEdit;
C2: TMenuItem;
S3: TMenuItem;
N8: TMenuItem;
X1: TMenuItem;
V1: TMenuItem;
S4: TMenuItem;
ToolBar4: TToolBar;
ComboBox1: TComboBox;
ToolButton20: TToolButton;
procedure FormResize(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure ToolButton8Click(Sender: TObject);
procedure C1Click(Sender: TObject);
procedure ToolButton22Click(Sender: TObject);
procedure ToolButton23Click(Sender: TObject);
procedure ToolButton24Click(Sender: TObject);
procedure ToolButton25Click(Sender: TObject);
procedure ToolButton26Click(Sender: TObject);
procedure ToolButton27Click(Sender: TObject);
procedure ToolButton28Click(Sender: TObject);
procedure ToolButton29Click(Sender: TObject);
procedure ToolButton30Click(Sender: TObject);
procedure ToolButton31Click(Sender: TObject);
procedure ToolButton32Click(Sender: TObject);
procedure ToolButton33Click(Sender: TObject);
procedure ToolButton34Click(Sender: TObject);
procedure ToolButton35Click(Sender: TObject);
procedure ToolButton36Click(Sender: TObject);
procedure ToolButton37Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton9Click(Sender: TObject);
procedure ToolButton10Click(Sender: TObject);
procedure ToolButton11Click(Sender: TObject);
procedure ToolButton12Click(Sender: TObject);
procedure ToolButton13Click(Sender: TObject);
procedure ToolButton14Click(Sender: TObject);
procedure ToolButton15Click(Sender: TObject);
procedure ToolButton16Click(Sender: TObject);
procedure ToolButton17Click(Sender: TObject);
procedure ToolButton18Click(Sender: TObject);
procedure ToolButton19Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure X1Click(Sender: TObject);
procedure C2Click(Sender: TObject);
procedure V1Click(Sender: TObject);
procedure U1Click(Sender: TObject);
procedure S2Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure H3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6;

{$R *.dfm}

procedure TForm1.FormResize(Sender: TObject);
begin
text1.left:=0;
text1.Width:=form1.ClientWidth;
text1.Height:=form1.ClientHeight-coolbar1.Height-StatusBar1.Height;
end;

procedure TForm1.N1Click(Sender: TObject);
begin
text1.Lines.LoadFromFile('data\self1.txt');
end;

procedure TForm1.N2Click(Sender: TObject);
begin
text1.Lines.LoadFromFile('data\self2.txt');
end;

procedure TForm1.N3Click(Sender: TObject);
begin
text1.Lines.LoadFromFile('data\self3.txt');
end;

procedure TForm1.N4Click(Sender: TObject);
begin
text1.Lines.LoadFromFile('data\self4.txt');
end;

procedure TForm1.N5Click(Sender: TObject);
begin
text1.Lines.LoadFromFile('data\self5.txt');
end;

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

procedure TForm1.C1Click(Sender: TObject);
begin
formc.show
end;

procedure TForm1.ToolButton22Click(Sender: TObject);
begin
text1.Lines.LoadFromFile('data\love.txt');
end;

procedure TForm1.ToolButton23Click(Sender: TObject);
begin
text1.Lines.LoadFromFile('data\flower.txt');
end;

procedure TForm1.ToolButton24Click(Sender: TObject);
begin
text1.Lines.LoadFromFile('data\people.txt');
end;

procedure TForm1.ToolButton25Click(Sender: TObject);
begin
text1.Lines.LoadFromFile('data\present.txt');
end;

procedure TForm1.ToolButton26Click(Sender: TObject);
begin
text1.Lines.LoadFromFile('data\sensibility.txt');
end;

procedure TForm1.ToolButton27Click(Sender: TObject);
begin
text1.Lines.LoadFromFile('data\buffoon.txt');
end;

procedure TForm1.ToolButton28Click(Sender: TObject);
begin
text1.Lines.LoadFromFile('data\holiday.txt');
end;

procedure TForm1.ToolButton29Click(Sender: TObject);
begin
text1.Lines.LoadFromFile('data\animal.txt');
end;

procedure TForm1.ToolButton30Click(Sender: TObject);
begin
text1.Lines.LoadFromFile('data\car.txt');
end;

procedure TForm1.ToolButton31Click(Sender: TObject);
begin
text1.Lines.LoadFromFile('data\house.txt');
end;

procedure TForm1.ToolButton32Click(Sender: TObject);
begin
text1.Lines.LoadFromFile('data\pet.txt');
end;

procedure TForm1.ToolButton33Click(Sender: TObject);
begin
text1.Lines.LoadFromFile('data\bird.txt');
end;

procedure TForm1.ToolButton34Click(Sender: TObject);
begin
text1.Lines.LoadFromFile('data\tools.txt');
end;

procedure TForm1.ToolButton35Click(Sender: TObject);
begin
text1.Lines.LoadFromFile('data\fish.txt');
end;

procedure TForm1.ToolButton36Click(Sender: TObject);
begin
text1.Lines.LoadFromFile('data\word.txt');
end;

procedure TForm1.ToolButton37Click(Sender: TObject);
begin
text1.Lines.LoadFromFile('data\food.txt');
end;

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
formc.show
end;

procedure TForm1.ToolButton9Click(Sender: TObject);
begin
text1.Lines.LoadFromFile('data\phrase\love.txt');
end;

procedure TForm1.ToolButton10Click(Sender: TObject);
begin
text1.Lines.LoadFromFile('data\phrase\admiremm.txt');
end;

procedure TForm1.ToolButton11Click(Sender: TObject);
begin
text1.Lines.LoadFromFile('data\phrase\admire.txt');
end;

procedure TForm1.ToolButton12Click(Sender: TObject);
begin
text1.Lines.LoadFromFile('data\phrase\1234.txt');
end;

procedure TForm1.ToolButton13Click(Sender: TObject);
begin
text1.Lines.LoadFromFile('data\phrase\yearn.txt');
end;

procedure TForm1.ToolButton14Click(Sender: TObject);
begin
text1.Lines.LoadFromFile('data\phrase\lead.txt');
end;

procedure TForm1.ToolButton15Click(Sender: TObject);
begin
text1.Lines.LoadFromFile('data\phrase\bye.txt');
end;

procedure TForm1.ToolButton16Click(Sender: TObject);
begin
text1.Lines.LoadFromFile('data\phrase\loveword.txt');
end;

procedure TForm1.ToolButton17Click(Sender: TObject);
begin
text1.Lines.LoadFromFile('data\phrase\netlove.txt');
end;

procedure TForm1.ToolButton18Click(Sender: TObject);
begin
text1.Lines.LoadFromFile('data\phrase\what.txt');
end;

procedure TForm1.ToolButton19Click(Sender: TObject);
begin
text1.Lines.LoadFromFile('data\phrase\wed.txt');
end;

procedure TForm1.N6Click(Sender: TObject);
begin
form3.Show;
end;

procedure TForm1.ToolButton2Click(Sender: TObject);
begin
form3.show;
end;

procedure TForm1.N7Click(Sender: TObject);
begin
form4.ShowModal
end;

procedure TForm1.X1Click(Sender: TObject);
begin
text1.CutToClipboard
end;

procedure TForm1.C2Click(Sender: TObject);
begin
text1.CopyToClipboard
end;

procedure TForm1.V1Click(Sender: TObject);
begin
text1.PasteFromClipboard
end;

procedure TForm1.U1Click(Sender: TObject);
begin
shellexecute(handle,nil,pchar('http://www.skycn.com/soft/7324.html'),nil,nil,sw_shownormal);

end;



procedure TForm1.S2Click(Sender: TObject);
begin
form6.show
end;

procedure TForm1.ToolButton4Click(Sender: TObject);
begin
form6.show
end;

procedure TForm1.H3Click(Sender: TObject);
begin
shellexecute(handle,nil,pchar('help.htm'),nil,nil,sw_shownormal);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.

unit Unit6;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, Buttons, ExtCtrls, Shellapi;

type
TForm6 = class(TForm)
Panel1: TPanel;
PageControl1: TPageControl;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
TabSheet2: TTabSheet;
TabSheet1: TTabSheet;
GroupBox1: TGroupBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
CheckBox1: TCheckBox;
GroupBox2: TGroupBox;
CheckBox2: TCheckBox;
Edit1: TEdit;
GroupBox3: TGroupBox;
Label1: TLabel;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
GroupBox4: TGroupBox;
Label2: TLabel;
Edit3: TEdit;
Button3: TButton;
Button4: TButton;
TabSheet3: TTabSheet;
GroupBox5: TGroupBox;
Label3: TLabel;
Edit4: TEdit;
Button5: TButton;
Button6: TButton;
GroupBox6: TGroupBox;
Label4: TLabel;
Edit5: TEdit;
Button7: TButton;
Button8: TButton;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form6: TForm6;

implementation

{$R *.dfm}

procedure TForm6.BitBtn2Click(Sender: TObject);
begin
form6.Close
end;

procedure TForm6.BitBtn1Click(Sender: TObject);
begin
form6.Close
end;

end.

unit Unit3;

interface

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

type
TForm3 = class(TForm)
StatusBar1: TStatusBar;
MainMenu1: TMainMenu;
N11: TMenuItem;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
PopupMenu1: TPopupMenu;
C1: TMenuItem;
RichEdit1: TRichEdit;
V1: TMenuItem;
X1: TMenuItem;
procedure FormResize(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N15Click(Sender: TObject);
procedure C1Click(Sender: TObject);
procedure V1Click(Sender: TObject);
procedure X1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.FormResize(Sender: TObject);
begin
richedit1.Left:=0;
richedit1.Height:=form3.ClientHeight-statusbar1.Height;
richedit1.Width:=form3.ClientWidth;
end;

procedure TForm3.N5Click(Sender: TObject);
begin
richedit1.Lines.LoadFromFile('data\self1.txt');
end;

procedure TForm3.N6Click(Sender: TObject);
begin
richedit1.Lines.LoadFromFile('data\self2.txt');
end;

procedure TForm3.N7Click(Sender: TObject);
begin
richedit1.Lines.LoadFromFile('data\self3.txt')
end;

procedure TForm3.N8Click(Sender: TObject);
begin
richedit1.Lines.LoadFromFile('data\self4.txt')
end;

procedure TForm3.N9Click(Sender: TObject);
begin
richedit1.Lines.LoadFromFile('data\self5.txt')
end;

procedure TForm3.N10Click(Sender: TObject);
begin
richedit1.Lines.SaveToFile('data\self1.txt')
end;

procedure TForm3.N12Click(Sender: TObject);
begin
richedit1.Lines.SaveToFile('data\self2.txt')
end;

procedure TForm3.N13Click(Sender: TObject);
begin
richedit1.Lines.SaveToFile('data\self3.txt')
end;

procedure TForm3.N14Click(Sender: TObject);
begin
richedit1.Lines.SaveToFile('data\self4.txt')
end;

procedure TForm3.N15Click(Sender: TObject);
begin
richedit1.Lines.SaveToFile('data\self5.txt')
end;

procedure TForm3.C1Click(Sender: TObject);
begin
richedit1.CopyToClipboard
end;

procedure TForm3.V1Click(Sender: TObject);
begin
richedit1.PasteFromClipboard
end;

procedure TForm3.X1Click(Sender: TObject);
begin
richedit1.CutToClipboard;
end;

end.

unit Unit4;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;

type
TForm4 = class(TForm)
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
BitBtn1: TBitBtn;
Memo1: TMemo;
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form4: TForm4;

implementation

{$R *.dfm}

end.

unit Unit2;

interface

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

type
TFormc = class(TForm)
StatusBar1: TStatusBar;
RichEdit1: TRichEdit;
procedure FormResize(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Formc: TFormc;

implementation

{$R *.dfm}

procedure TFormc.FormResize(Sender: TObject);
begin
richedit1.Left:=0;
richedit1.Height:=formc.ClientHeight-statusbar1.Height ;
richedit1.Width:=formc.ClientWidth;
end;

procedure TFormc.FormCreate(Sender: TObject);
begin
richedit1.Lines.LoadFromFile('data\bat.txt')
end;

procedure TFormc.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
richedit1.Lines.SaveToFile('data\bat.txt');
end;

end.