Разработка текстового редактора

       Form1.Memo1.color:=Inifile.ReadInteger('Main','FonColor',0);

       for i:=0 to 5 do

       Memo1.Lines.Delete(Memo1.Lines.Count-1);

       end;

       Memo1.Modified := false;

       end; 
 
 
 

       end; 

       procedure TForm1.N5Click(Sender: TObject);

       begin

       if SaveDialog1.FilterIndex=1 then begin

           SaveDialog1.DefaultExt:='txt';

         end

         else if SaveDialog1.FilterIndex=2 then begin

           SaveDialog1.DefaultExt:='doc';

           end; 

       If SaveDialog1.Execute  then

       begin

       form1.Memo1.Modified:=false;

       form1.Memo1.Lines.SaveToFile(Form1.SaveDialog1.Filename );

       Form1.Caption:=ExtractFileName(Form1.SaveDialog1.FileName); 

       IniFile:=TInifile.Create(ExtractFilePath(SaveDialog1.FileName)+ExtractFileName(Form1.SaveDialog1.FileName));

       with IniFile do begin

       WriteInteger('Main','TxtColor',Form1.Memo1.Font.Color);

       WriteInteger('Main','Height',Form1.Memo1.Font.Height);

       WriteString('Main','Name',Form1.Memo1.Font.Name);

       WriteInteger('Main','Size',Form1.Memo1.Font.Size);

       end;

       with IniFile  do

       WriteInteger('Main','FonColor',Form1.Memo1.Color);

       end;

       end; 

       procedure TForm1.N4Click(Sender: TObject);

       begin

       If form1.SaveDialog1.FileName <> '' then

       begin

       form1.Memo1.Lines.SaveToFile(Form1.SaveDialog1.FileName);

       Form1.Caption:=ExtractFileName(Form1.SaveDialog1.FileName);

       form1.Memo1.Modified:=false;

       if Form1.SaveDialog1.FileName<>'' then

       IniFile:=TInifile.Create(ExtractFilePath(SaveDialog1.FileName)+ExtractFileName(Form1.SaveDialog1.FileName))

       else IniFile:=TInifile.Create(ExtractFilePath(OpenDialog1.FileName)+ExtractFileName(Form1.OpenDialog1.FileName));

       with IniFile, Form1.Memo1.Font do begin

       WriteInteger('Main','TxtColor',Form1.Memo1.Font.Color);

       WriteInteger('Main','Height',Height);

       WriteString('Main','Name',Name);

       WriteInteger('Main','Size',Size);

       end;

       with IniFile  do

       WriteInteger('Main','FonColor',Form1.Memo1.Color);

       end

       else

       if form1.OpenDialog1.FileName<>'' then

       begin

       form1.Memo1.Lines.SaveToFile(Form1.OpenDialog1.FileName);

       Form1.Caption:=ExtractFileName(Form1.OpenDialog1.FileName);

       form1.Memo1.Modified:=false;

       IniFile:=TInifile.Create(ExtractFilePath(OpenDialog1.FileName)+ExtractFileName(Form1.OpenDialog1.FileName));

       with IniFile, Form1.Memo1.Font do begin

       WriteInteger('Main','TxtColor',Form1.Memo1.Font.Color);

       WriteInteger('Main','Height',Height);

       WriteString('Main','Name',Name);

       WriteInteger('Main','Size',Size);

       end;

         with IniFile  do

       WriteInteger('Main','FonColor',Form1.Memo1.Color);

       end

       else

       N5Click(Sender);

       end; 

       procedure TForm1.N2Click(Sender: TObject);

       var a:integer;

       begin

       if form1.Memo1.Modified=true then

       begin

       a:=Application.MessageBox('Сохранить  изменения в документе','',3);

       if a=6 then

       begin

       N4Click(Sender);

       Form1.Memo1.Lines.Clear;

       Form1.SaveDialog1.FileName:='';

       Form1.OpenDialog1.FileName:='';

       Form1.Caption:='Безымянный';

       end

       else

       if a=7 then

       begin

       Form1.Memo1.Lines.Clear;

       Form1.SaveDialog1.FileName:='';

       Form1.OpenDialog1.FileName:='';

       Form1.Caption:='Безымянный';

       end

       end

       else

       begin

       Form1.Memo1.Lines.Clear;

       Form1.SaveDialog1.FileName:='';

       Form1.OpenDialog1.FileName:='';

       Form1.Caption:='Безымянный';

       end

       end; 

       procedure TForm1.N6Click(Sender: TObject);

       var a:integer;

       begin

       if Form1.Memo1.Modified=true then

       begin

       a:=Application.MessageBox('Сохранить  изменения в документе','',3);

       if a=6 then

       N4Click(Sender)

       else if a=7 then

       Form1.Close;

       end

       else Form1.Close;

       end; 

       procedure TForm1.N8Click(Sender: TObject);

       begin

       if Form1.FontDialog1.Execute then

       Form1.Memo1.Font:=Form1.FontDialog1.Font;

       end; 

       procedure TForm1.SpeedButton1Click(Sender: TObject);

       begin

       N2Click(sender);

       end; 

       procedure TForm1.SpeedButton2Click(Sender: TObject);

       begin

       N3Click(Sender);

       end; 

       procedure TForm1.SpeedButton3Click(Sender: TObject);

       begin

       N4Click(Sender);

       end; 

       procedure TForm1.SpeedButton4Click(Sender: TObject);

       begin

       N5Click(Sender);

       end; 

       procedure TForm1.SpeedButton5Click(Sender: TObject);

       begin

       N6Click(Sender);

       end; 

       procedure TForm1.N11Click(Sender: TObject);

       begin

       If Form1.ColorDialog1.Execute then

       Form1.Memo1.Color:=Form1.ColorDialog1.Color;

       end; 
 
 

       procedure TForm1.N10Click(Sender: TObject);

       begin

       If Form1.ColorDialog1.Execute then

       Form1.Memo1.Font.Color:=Form1.ColorDialog1.Color;

       end; 
 

       procedure TForm1.FormResize(Sender: TObject);

       begin

       Memo1.Height:=Form1.Height-110;

       Memo1.Width:=Form1.Width;

       end; 
 

       procedure TForm1.ToolButton1Click(Sender: TObject);

       begin

       N2Click(Sender);

       end; 

       procedure TForm1.ToolButton2Click(Sender: TObject);

       begin

       N3Click(Sender);

       end; 

       procedure TForm1.ToolButton3Click(Sender: TObject);

       begin

       N4Click(Sender);

       end; 

       procedure TForm1.ToolButton4Click(Sender: TObject);

       begin

       N5Click(Sender);

       end; 

       procedure TForm1.ToolButton5Click(Sender: TObject);

       begin

       N6Click(Sender);

       end; 

       procedure TForm1.N21Click(Sender: TObject);

       begin

       Memo1.CutToClipboard;

       end; 

       procedure TForm1.N22Click(Sender: TObject);

       begin

       Memo1.CopyToClipboard;

       end;

       procedure TForm1.N23Click(Sender: TObject);

       begin

       Memo1.PasteFromClipboard;

       end;

       procedure TForm1.N24Click(Sender: TObject);

       begin

       Memo1.ClearSelection;

       end; 

       procedure TForm1.ToolButton6Click(Sender: TObject);

       begin

       N20Click(Sender);

       end; 

       procedure TForm1.ToolButton7Click(Sender: TObject);

       begin

       N21Click(Sender);

       end; 

       procedure TForm1.ToolButton8Click(Sender: TObject);

       begin

       N22Click(Sender);

       end; 

       procedure TForm1.ToolButton9Click(Sender: TObject);

       begin

       N23Click(Sender);

       end; 

       procedure TForm1.ToolButton10Click(Sender: TObject);

       begin

       N24Click(Sender);

       end; 

       procedure TForm1.N20Click(Sender: TObject);

       begin

       Memo1.SelectAll

       end; 
 
 

       procedure TForm1.ToolButton12Click(Sender: TObject);

       begin

       Form1.Memo1.Alignment:=taleftJustify

       end; 

       procedure TForm1.ToolButton13Click(Sender: TObject);

       begin

       Form1.Memo1.Alignment:=taCenter;

       end; 

       procedure TForm1.ToolButton14Click(Sender: TObject);

       begin

       Form1.Memo1.Alignment:=taRightJustify;

       end; 

       procedure TForm1.ToolButton16Click(Sender: TObject);

       begin

       N10Click(Sender);

       end; 

       procedure TForm1.ToolButton17Click(Sender: TObject);

       begin

       N11Click(Sender);

       end; 

       procedure TForm1.ToolButton11Click(Sender: TObject);

       begin

       with Memo1 do

           if HandleAllocated then SendMessage(Handle, EM_UNDO, 0, 0);

       end; 
 

       procedure TForm1.N13Click(Sender: TObject);

       begin

       Form1.N13.Tag:=Form1.N13.Tag+1;

       if (Form1.N13.Tag mod 2)<>0 then

       panel1.Visible:=false

       else panel1.Visible:=true;

       end; 

       procedure TForm1.N14Click(Sender: TObject);