Текстовый редактор

    N3: TMenuItem;

    N4: TMenuItem;

    N5: TMenuItem;

    N6: TMenuItem;

    N7: TMenuItem;

    N8: TMenuItem;

    N9: TMenuItem;

    OpenDialog1: TOpenDialog;

    SaveDialog1: TSaveDialog;

    FontDialog1: TFontDialog;

    N10: TMenuItem;

    N11: TMenuItem;

    N12: TMenuItem;

    N13: TMenuItem;

    N14: TMenuItem;

    SpeedButton1: TSpeedButton;

    SpeedButton2: TSpeedButton;

    N15: TMenuItem;

    N16: TMenuItem;

    N17: TMenuItem;

    ColorDialog1: TColorDialog;

    SpeedButton3: TSpeedButton;

    SpeedButton4: TSpeedButton;

    SpeedButton5: TSpeedButton;

    N18: TMenuItem;

    Edit1: TEdit;

    SpeedButton6: TSpeedButton;

    Label1: TLabel;

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure N2Click(Sender: TObject);

    procedure N3Click(Sender: TObject);

    procedure N4Click(Sender: TObject);

    procedure N6Click(Sender: TObject);

    procedure N7Click(Sender: TObject);

    procedure N9Click(Sender: TObject);

    procedure N10Click(Sender: TObject);

    procedure N11Click(Sender: TObject);

    procedure N12Click(Sender: TObject);

    procedure N13Click(Sender: TObject);

    procedure N14Click(Sender: TObject);

    procedure SpeedButton1Click(Sender: TObject);

    procedure SpeedButton2Click(Sender: TObject);

    procedure N17Click(Sender: TObject);

    procedure SpeedButton3Click(Sender: TObject);

    procedure SpeedButton4Click(Sender: TObject);

    procedure SpeedButton5Click(Sender: TObject);

    procedure N16Click(Sender: TObject);

    procedure N18Click(Sender: TObject);

    procedure SpeedButton6Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form2: TForm2;

 

implementation

uses Unit4;

 

{$R *.dfm}

 

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Form2.Destroy;

end;

 

procedure TForm2.N2Click(Sender: TObject);

begin

if OpenDialog1.Execute then

RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);

end;

 

procedure TForm2.N3Click(Sender: TObject);

begin

if SaveDialog1.Execute then

RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);

end;

 

procedure TForm2.N4Click(Sender: TObject);

begin

Form2.Close();

end;

 

procedure TForm2.N6Click(Sender: TObject);

begin

if FontDialog1.Execute then

RichEdit1.SelAttributes.Assign(fontdialog1.font);

RichEdit1.SetFocus;

end;

 

procedure TForm2.N7Click(Sender: TObject);

begin

RichEdit1.Lines.Clear;

end;

 

procedure TForm2.N9Click(Sender: TObject);

begin

ShowMessage('Автор данной программы студент группы 10-ИСТ Насретдинов А.И.');

end;

 

procedure TForm2.N10Click(Sender: TObject);

begin

Richedit1.Undo

end;

 

procedure TForm2.N11Click(Sender: TObject);

begin

//with printer do begin

//begindoc;

//CanvasFont:=RichEdit1.Font;

//Canvas.TextOut(100,100,richedit1.text);

//enddoc;

end;

//end;

 

procedure TForm2.N12Click(Sender: TObject);

begin

Richedit1.CopyToClipboard;

end;

 

procedure TForm2.N13Click(Sender: TObject);

begin

Richedit1.PasteFromClipboard;

end;

 

procedure TForm2.N14Click(Sender: TObject);

begin

Richedit1.CutToClipboard;

end;

 

procedure TForm2.SpeedButton1Click(Sender: TObject);

begin

N2Click(sender);

end;

 

procedure TForm2.SpeedButton2Click(Sender: TObject);

begin

N3Click(sender);

end;

 

procedure TForm2.N17Click(Sender: TObject);

begin

if ColorDialog1.Execute then

begin

RichEdit1.Font.Color:=ColorDialog1.Color;

end;

end;

 

procedure TForm2.SpeedButton3Click(Sender: TObject);

begin

N10Click(sender);

end;

 

procedure TForm2.SpeedButton4Click(Sender: TObject);

begin

N12Click(sender);

end;

 

procedure TForm2.SpeedButton5Click(Sender: TObject);

begin

N11Click(sender);

end;

 

procedure TForm2.N16Click(Sender: TObject);

begin

Application.CreateForm(TForm4,Form4);

end;

 

procedure TForm2.N18Click(Sender: TObject);

var // Объявляем переменные

Find:string; // Искомая строка

i:integer; // Счетчик для цикла

begin

find:=Edit1.Text; // Записываем в find текст из Edit

For i:=0 to RichEdit1.Lines.Count-1 do // Запускаем цикл поиска строки

If Pos(FIND, RichEdit1.Lines.Text)<>0

Then

Begin

RichEdit1.SetFocus();

RichEdit1.SelStart:=Pos(FIND,RichEdit1.Lines.Text)-1;

RichEdit1.SelLength:=Length(FIND);

End;

end;

procedure TForm2.SpeedButton6Click(Sender: TObject);

begin

N18Click(sender);

end;

 

end.

unit Unit3;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, StdCtrls, ComCtrls, ImgList, Jpeg, MPlayer;

 

type

  TForm3 = class(TForm)

    Label1: TLabel;

    Timer1: TTimer;

    ImageList1: TImageList;

    Image1: TImage;

    DTP: TDateTimePicker;

    Month: TMonthCalendar;

    OpenDialog1: TOpenDialog;

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure Timer1Timer(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure DTPChange(Sender: TObject);

    procedure MonthClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

    procedure SetImage;

  end;

 

var

  Form3: TForm3;

  const

  MonthSt : array[0..11] of String = (

    '1', '2', '3', '4', '5', '6',

    '7', '8', '9', '10', '11', '12');

 

implementation

uses

  DateUtils;

 

{$R *.dfm}

 

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Form3.Destroy;

end;

 

procedure TForm3.Timer1Timer(Sender: TObject);

begin

Label1.Caption:=timetostr(time)

end;

 

procedure TForm3.SetImage;

var

  St : String;

begin

  St := MonthSt[MonthOf(DTP.Date) - 1] + '.jpg';

  if FileExists(St) then

    Image1.Picture.LoadFromFile(St);

end;

 

 

procedure TForm3.FormCreate(Sender: TObject);

begin

SetImage;

end;

 

 

procedure TForm3.DTPChange(Sender: TObject);

begin

Month.Date := DTP.Date;

  SetImage;

end;

 

procedure TForm3.MonthClick(Sender: TObject);

begin

DTP.Date := Month.Date;

  SetImage;

end;

 

end.