unit1.pas

delphi课程设计的内容,包括源代码,文本的设计,菜单的设计等.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    DELPHI1: TMenuItem;
    N16: TMenuItem;
    StatusBar1: TStatusBar;
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    Timer1: TTimer;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    Memo1: TMemo;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    FontDialog1: TFontDialog;
    ColorDialog1: TColorDialog;
    procedure Timer1Timer(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton12Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    statusbar1.panels[2].text:=timetostr(time);
end;

procedure TForm1.N12Click(Sender: TObject);
begin
   if colordialog1.Execute then
      memo1.color:=colordialog1.Color;
end;

procedure TForm1.N13Click(Sender: TObject);
begin
    if fontdialog1.Execute then
       memo1.font:=fontdialog1.font;
end;

procedure TForm1.N9Click(Sender: TObject);
begin
    if opendialog1.Execute then
      memo1.lines.loadfromfile(opendialog1.filename);
end;

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

procedure TForm1.N10Click(Sender: TObject);
begin
    if savedialog1.Execute then
       memo1.lines.savetofile(savedialog1.filename);
end;

procedure TForm1.ToolButton3Click(Sender: TObject);
begin
    if opendialog1.Execute then
      memo1.lines.loadfromfile(opendialog1.filename);
end;

procedure TForm1.ToolButton2Click(Sender: TObject);
begin
    if savedialog1.Execute then
       memo1.lines.savetofile(savedialog1.filename);
end;

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
   if savedialog1.Execute then
       memo1.lines.savetofile(savedialog1.filename);
end;

procedure TForm1.ToolButton8Click(Sender: TObject);
begin
    
       memo1.Font.style:=memo1.font.style+[fsbold];
end;

procedure TForm1.ToolButton9Click(Sender: TObject);
begin
    memo1.font.style:=memo1.font.style+[fsitalic];
end;

procedure TForm1.ToolButton10Click(Sender: TObject);
begin
    memo1.font.style:=memo1.font.style+[fsunderline];
end;

procedure TForm1.ToolButton5Click(Sender: TObject);
begin
    memo1.font.name:='宋体';
end;

procedure TForm1.ToolButton6Click(Sender: TObject);
begin
    memo1.font.name:='华文行楷';
end;

procedure TForm1.ToolButton7Click(Sender: TObject);
begin
     memo1.font.name:='隶书';
end;

procedure TForm1.ToolButton12Click(Sender: TObject);
begin
    memo1.Lines.Clear;
end;

end.