unit1.~pas

多媒体播放器 可随意载,本人没意见,呵呵,为了大家学习

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    PopupMenu1: TPopupMenu;
    F1: TMenuItem;
    N1: TMenuItem;
    O1: TMenuItem;
    S1: TMenuItem;
    A1: TMenuItem;
    N2: TMenuItem;
    P1: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    E1: TMenuItem;
    U1: TMenuItem;
    N6: TMenuItem;
    T1: TMenuItem;
    N7: TMenuItem;
    P2: TMenuItem;
    L1: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    W1: TMenuItem;
    W2: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    H1: TMenuItem;
    H2: TMenuItem;
    A2: TMenuItem;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton11: TToolButton;
    StatusBar1: TStatusBar;
    ImageList1: TImageList;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    FontDialog1: TFontDialog;
    PrintDialog1: TPrintDialog;
    RichEdit1: TRichEdit;
    N15: TMenuItem;
    FindDialog1: TFindDialog;
    ReplaceDialog1: TReplaceDialog;
    Timer1: TTimer;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    A3: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N3: TMenuItem;
    ColorDialog1: TColorDialog;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ToolButton4: TToolButton;
    ToolButton7: TToolButton;
    procedure N1Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure O1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure S1Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure A1Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure U1Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
    procedure T1Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure P2Click(Sender: TObject);
    procedure L1Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure W2Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure P1Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  s:string ;
implementation

{$R *.dfm}

procedure TForm1.N1Click(Sender: TObject);
var
s:integer;
begin
if richedit1.Modified then
s:=application.MessageBox('文件已改变是否保存','确认框',MB_YESNOCANCEL)
else
richedit1.Clear;
if s=idYES then
begin
savedialog1.Filter:='*.txt';
savedialog1.FileName:='*.txt' ;
if savedialog1.Execute then
begin
richedit1.Lines.SaveToFile(savedialog1.FileName);
richedit1.Clear;
end;
end
else
richedit1.Clear;
end;

procedure TForm1.ToolButton1Click(Sender: TObject);
var
s:integer;
begin
if richedit1.Modified then
s:=application.MessageBox('文件已改变是否保存','确认框',MB_YESNOCANCEL)
else
richedit1.Clear;
if s=idYES then
begin
savedialog1.Filter:='*.txt';
savedialog1.FileName:='*.txt' ;
if savedialog1.Execute then
begin
richedit1.Lines.SaveToFile(savedialog1.FileName);
richedit1.Clear;
end;
end
else
richedit1.Clear;
end;

procedure TForm1.O1Click(Sender: TObject);
begin
opendialog1.FileName:='*.txt';
opendialog1.Filter:='text files(*.txt)|*.txt|all file(*.*)|*.*';
if opendialog1.Execute=true then
    begin
    richedit1.Lines.LoadFromFile(opendialog1.FileName);
    form1.Caption:=s;
    end;
     s:=opendialog1.FileName;
    end;
procedure TForm1.ToolButton2Click(Sender: TObject);
begin
opendialog1.FileName:='*.txt';
opendialog1.Filter:='text files(*.txt)|*.txt|all file(*.*)|*.*';
if opendialog1.Execute=true then
    begin
    richedit1.Lines.LoadFromFile(opendialog1.FileName);
form1.Caption:=s;
    end;
     s:=opendialog1.FileName;
    end;

procedure TForm1.S1Click(Sender: TObject);
begin
if s='' then
  begin
  if savedialog1.Execute=true then
  begin
  savedialog1.DefaultExt:='txt';
  savedialog1.Filter:='text files(*.txt)|*.txt|all file(*.*)|*.*';
  richedit1.Lines.SaveToFile(savedialog1.FileName);
  end;
  end
else
richedit1.Lines.SaveToFile(s);
end;

procedure TForm1.ToolButton3Click(Sender: TObject);
begin
if s='' then
  begin
  if savedialog1.Execute=true then
  begin
  savedialog1.DefaultExt:='txt';
  savedialog1.Filter:='text files(*.txt)|*.txt|all file(*.*)|*.*';
  richedit1.Lines.SaveToFile(savedialog1.FileName);
  end;
  end
else
richedit1.Lines.SaveToFile(s);
end;

procedure TForm1.A1Click(Sender: TObject);
begin
 savedialog1.Filter:='text files(*.txt)|*.txt|all file(*.*)|*.*';
 if savedialog1.Execute=true then
 richedit1.Lines.SaveToFile(savedialog1.FileName);
 end;

procedure TForm1.ToolButton5Click(Sender: TObject);
begin
 savedialog1.Filter:='text files(*.txt)|*.txt|all file(*.*)|*.*';
 if savedialog1.Execute=true then
 richedit1.Lines.SaveToFile(savedialog1.FileName);
 end;

procedure TForm1.U1Click(Sender: TObject);
begin
  richedit1.Undo
end;

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

procedure TForm1.ToolButton11Click(Sender: TObject);
begin
    richedit1.Undo
end;

procedure TForm1.T1Click(Sender: TObject);
begin
if richedit1.SelLength>0 then
   richedit1.CutToClipboard;
end;

procedure TForm1.N7Click(Sender: TObject);
begin
if richedit1.SelLength>0 then
   richedit1.CopyToClipboard;
end;

procedure TForm1.ToolButton8Click(Sender: TObject);
begin
if richedit1.SelLength>0 then
   richedit1.CopyToClipboard;
end;

procedure TForm1.ToolButton9Click(Sender: TObject);
begin
   richedit1.PastefromClipboard;
end;

procedure TForm1.P2Click(Sender: TObject);
begin
   richedit1.PastefromClipboard;
end;

procedure TForm1.L1Click(Sender: TObject);
begin
   if richedit1.SelLength>0 then
   richedit1.ClearSelection;
end;

procedure TForm1.N11Click(Sender: TObject);
begin
   richedit1.SelectAll;
end;
procedure TForm1.N5Click(Sender: TObject);
var
s:integer;
begin
if richedit1.Modified then
s:=application.MessageBox('文件已改变是否保存','确认框',MB_YESNOcancel)
else
form1.Close;
if s=idYES then
begin
savedialog1.Filter:='*.txt';
savedialog1.FileName:='*.txt' ;
if savedialog1.Execute then
begin
richedit1.Lines.SaveToFile(savedialog1.FileName);
form1.Close;
end;
end;
if s=idNO then
form1.Close;
end;

procedure TForm1.N12Click(Sender: TObject);
begin
   fontdialog1.Device:=fdscreen;
   if fontdialog1.Execute then
   richedit1.SelAttributes.Assign(fontdialog1.Font);
end;

procedure TForm1.W2Click(Sender: TObject);
begin
if n21.Checked=false then
   begin
   n21.Checked:=true;
   richedit1.WordWrap:=true;
   end
   else
   begin
   n21.Checked:=false;
   richedit1.WordWrap:=false;
end;
end;
procedure TForm1.N14Click(Sender: TObject);
begin
if n23.Checked=false then
 begin
  n23.Checked:=true;
  statusbar1.Visible:=true;
  end
  else
  begin
  n23.Checked:=false;
  statusbar1.Visible:=false;
  end;
end;

procedure TForm1.N16Click(Sender: TObject);
begin
richedit1.Text:=richedit1.Text+datetostr(Date)+'  '+timetostr(time);
end;

procedure TForm1.N9Click(Sender: TObject);
begin
finddialog1.Position:=point(richedit1.Left+richedit1.Top,richedit1.Width);
finddialog1.Execute;
end;

procedure TForm1.N17Click(Sender: TObject);
begin
ReplaceDialog1.Execute;
end;

procedure TForm1.P1Click(Sender: TObject);
var
i: integer;
begin
i:=0;
if  printdialog1.Execute then
begin
printdialog1.Collate:=true;
for i:=printdialog1.FromPage to printdialog1.ToPage do
end;
end;
procedure TForm1.N18Click(Sender: TObject);
begin
if n23.Checked=false then
 begin
  n23.Checked:=true;
  ToolBar1.Visible:=true;
  end
  else
  begin
  n23.Checked:=false;
  ToolBar1.Visible:=false;
  end;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
if n23.Checked=false then
 begin
  n23.Checked:=true;
  ToolBar1.Visible:=true;
  end
  else
  begin
  n23.Checked:=false;
  ToolBar1.Visible:=false;
  end;
end;
procedure TForm1.N22Click(Sender: TObject);
begin
richedit1.Paragraph.Alignment:=tacenter;
end;

procedure TForm1.N23Click(Sender: TObject);
begin
richedit1.Paragraph.Alignment:=taleftjustify;
end;

procedure TForm1.N24Click(Sender: TObject);
begin
richedit1.Paragraph.Alignment:=tarightjustify;
end;

end.