Блокнот на Delphi

[hottabych1607]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    mm1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N23: TMenuItem;
    stat1: TStatusBar;
    tlb1: TToolBar;
    btn1: TToolButton;
    btn3: TToolButton;
    btn5: TToolButton;
    btn6: TToolButton;
    btn7: TToolButton;
    btn9: TToolButton;
    cbb1: TComboBox;
    btn2: TToolButton;
    btn4: TToolButton;
    btn8: TToolButton;
    redt1: TRichEdit;
    btn11: TToolButton;
    dlgOpen1: TOpenDialog;
    dlgSave1: TSaveDialog;
    N4: TMenuItem;
    dlgFind1: TFindDialog;
    dlgReplace1: TReplaceDialog;
    dlgFont1: TFontDialog;
    cbb2: TComboBox;
    dlgColor1: TColorDialog;
    il1: TImageList;
    btn10: TToolButton;
    procedure N3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);

    procedure N4Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure dlgFind1Find(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure dlgReplace1Replace(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure cbb2Click(Sender: TObject);
    procedure cbb1Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
    procedure btn5Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn7Click(Sender: TObject);
    procedure btn9Click(Sender: TObject);
  

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.N3Click(Sender: TObject);
begin
if dlgOpen1.Execute
then
 redt1.Lines.LoadFromFile(dlgOpen1.FileName);
stat1.Panels[0].Text:=dlgOpen1.FileName;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
  if dlgSave1.Execute
  then

  redt1.Lines.SaveToFile(dlgSave1.FileName);
  stat1.Panels[0].Text:=dlgSave1.FileName;
end;




procedure TForm1.N4Click(Sender: TObject);
begin
redt1.Lines.SaveToFile(Form1.Text+'.rtf');

end;

procedure TForm1.N2Click(Sender: TObject);
begin
Form1.Text:='Безымянный';
redt1.Lines.Clear;
stat1.Panels[0].Text:='';

end;

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


procedure TForm1.N10Click(Sender: TObject);
begin
redt1.CopyToClipboard;

end;

procedure TForm1.N9Click(Sender: TObject);
begin
redt1.CutToClipboard;
end;

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

procedure TForm1.N8Click(Sender: TObject);
begin
redt1.Undo;
end;

procedure TForm1.N12Click(Sender: TObject);
begin
redt1.ClearSelection;
end;

procedure TForm1.N13Click(Sender: TObject);
begin
dlgFind1.Execute;
end;

procedure TForm1.dlgFind1Find(Sender: TObject);
begin
if Pos(dlgFind1.FindText,redt1.Text)<>0 then
begin
  redt1.HideSelection:=false;
  redt1.SelStart:=Pos(dlgFind1.FindText,redt1.Text)-1;
  redt1.SelLength:=Length(dlgFind1.FindText);

end;
end;


procedure TForm1.N14Click(Sender: TObject);
begin
dlgReplace1.Execute;
end;

procedure TForm1.dlgReplace1Replace(Sender: TObject);
begin
redt1.HideSelection:=True;
if Pos(dlgReplace1.FindText,redt1.Text)<>0 then
begin
  redt1.SelStart:=Pos(dlgReplace1.FindText,redt1.Text);
  redt1.SelLength:=Length(dlgReplace1.FindText);
  redt1.SelText:=dlgReplace1.ReplaceText;
end;
redt1.HideSelection:=false;
end;

procedure TForm1.N16Click(Sender: TObject);
begin
redt1.Font.Name:='Arial';
redt1.Font.Size:=10;
redt1.Font.Color:=clBlack;
redt1.Color:=clWhite;

end;

procedure TForm1.N19Click(Sender: TObject);
begin
  if dlgFont1.Execute then

redt1.Font:=dlgFont1.Font;
end;

procedure TForm1.cbb2Click(Sender: TObject);
begin
if cbb2.ItemIndex=0 then redt1.Font.Name:='Arial';
if cbb2.ItemIndex=1 then redt1.Font.Name:='Comic Sans MS';
if cbb2.ItemIndex=2 then redt1.Font.Name:='MS Sans Serif';
if cbb2.ItemIndex=3 then redt1.Font.Name:='Txt';
if cbb2.ItemIndex=4 then redt1.Font.Name:='System';

end;

procedure TForm1.cbb1Click(Sender: TObject);
begin
redt1.Font.Size:=cbb1.ItemIndex;
end;

procedure TForm1.N20Click(Sender: TObject);
begin
  if dlgColor1.Execute then
redt1.Color:=dlgColor1.Color;
end;

procedure TForm1.N23Click(Sender: TObject);
begin
aboutbox.showmodal;
end;

procedure TForm1.btn3Click(Sender: TObject);
begin
Form1.Text:='Безымянный';
redt1.Lines.Clear;
stat1.Panels[0].Text:='';
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
if dlgSave1.Execute
  then

  redt1.Lines.SaveToFile(dlgSave1.FileName);
  stat1.Panels[0].Text:=dlgSave1.FileName;
end;

procedure TForm1.btn4Click(Sender: TObject);
begin
if dlgOpen1.Execute
then
 redt1.Lines.LoadFromFile(dlgOpen1.FileName);
stat1.Panels[0].Text:=dlgOpen1.FileName;
end;

procedure TForm1.btn5Click(Sender: TObject);
begin
 if dlgFont1.Execute then

redt1.Font:=dlgFont1.Font;
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
  if dlgColor1.Execute then
redt1.Color:=dlgColor1.Color;
end;

procedure TForm1.btn7Click(Sender: TObject);
begin
redt1.Font.Name:='Arial';
redt1.Font.Size:=10;
redt1.Font.Color:=clBlack;
redt1.Color:=clWhite;

end;

procedure TForm1.btn9Click(Sender: TObject);
begin
aboutbox.showmodal;
end;

end.

Исходник:

Чтобы видеть скрытое содержание Зарегистрируйтесь на форуме!