//Выравнивать по центру
procedure TForm1.btnCenterClick(Sender: TObject);
begin
document.Paragraph.Alignment:=TaCenter;
end;
//Выравнивать по левому краю
procedure TForm1.btnLeftClick(Sender: TObject);
begin
document.Paragraph.Alignment:=TaLeftJustify;
end;
//Выравнивать по правому краю
procedure TForm1.btnRightClick(Sender: TObject);
begin
document.Paragraph.Alignment:=TaRightJustify;
end;
procedure TForm1.btnSpisokClick(Sender: TObject);
begin
document.Paragraph.Numbering:=nsbullet;
end;
//Выпадающий список со шрифтами
procedure TForm1.cbFontNameChange(Sender: TObject);
begin
document.selattributes.name:=cbFontName.text;
end;
//Полужирный
procedure TForm1.chBoldClick(Sender: TObject);
begin
if chbold.checked then
document.selattributes.Style:=document.selattributes.style + [fsBold]
Else
document.selattributes.Style:=document.selattributes.style — [fsBold];
end;
//Курсив
procedure TForm1.chItalicClick(Sender: TObject);
begin
if chitalic.checked then
document.selattributes.Style:=document.selattributes.style + [fsItalic]
Else
document.selattributes.Style:=document.selattributes.style — [fsItalic];
end;
//Подчёркнутый
procedure TForm1.chUnderLineClick(Sender: TObject);
begin
if chunderline.checked then
document.selattributes.Style:=document.selattributes.style + [fsUnderLine]
Else
document.selattributes.Style:=document.selattributes.style — [fsUnderLine];
end;
Список с выбором цвета
procedure TForm1.cobFontColorChange(Sender: TObject);
begin
document.Font.color:=cobfontcolor.selected;
end;

procedure TForm1.DocumentSelectionChange(Sender: TObject);
begin
if document.SelLength=0 then begin
micopy.enabled:=false;
micut.enabled:=false;
btncopy.enabled:=false;
btncut.enabled:=false;
end;
if document.SelLength>0 then begin
micopy.enabled:=true;
micut.enabled:=true;
btncopy.enabled:=true;
btncut.enabled:=true;
end;

end;

procedure TForm1.fd_1Find(Sender: TObject);
var
finstr:string;
k:integer;
begin
finStr:=fd_1.FindText;
k:=pos(Finstr,document.text);
if k<>0 then
begin
document.SelStart:=k-1;
document.SelLength:=length(finstr);
document.SetFocus;
end
else showmessage('Текст не найден');
end;

procedure TForm1.miColClick(Sender: TObject);
begin
if ColorD_1.execute then
document.SelAttributes.color:=colorD_1.Color;
end;

procedure TForm1.miCopyClick(Sender: TObject);
begin
mipaste.enabled:=true;
btnpaste.enabled:=true;
document.CopyToClipboard;
end;

procedure TForm1.miCutClick(Sender: TObject);
begin
mipaste.enabled:=true;
btnpaste.enabled:=true;
document.CutToClipboard;
end;

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

procedure TForm1.miFindClick(Sender: TObject);
begin
if fd_1.execute then
begin
end;
end;

procedure TForm1.miFontClick(Sender: TObject);
begin
if fontd_1.execute then
begin
document.SelAttributes.name:=fontd_1.font.Name;
document.SelAttributes.size:=fontd_1.font.size;
end;
end;

procedure TForm1.miOpenFileClick(Sender: TObject);
begin
if od_1.Execute then
document.Lines.loadfromfile(od_1.FileName);
end;

procedure TForm1.miPasteClick(Sender: TObject);
begin
document.PasteFromClipboard;
end;

procedure TForm1.miReplaceClick(Sender: TObject);
begin
if rd_1.execute then
begin
end;
end;

procedure TForm1.miSaveClick(Sender: TObject);
begin
if sd_1.Execute then
document.Lines.SaveToFile(sd_1.FileName);
end;

procedure TForm1.rd_1Replace(Sender: TObject);
var
finstr:string;
k:integer;
begin
finstr:=rd_1.findtext;
k:=pos(finstr,document.text);
if k<>0 then
begin
document.selstart:=k-1;
document.SelLength:=length(finstr);
document.SelText:=rd_1.ReplaceText;
end
Else showmessage('Текст не найден');
end;

procedure TForm1.sdFontSizeChange(Sender: TObject);
begin
document.font.size:=sdfontsize.Value;
end;

procedure TForm1.selectallClick(Sender: TObject);
begin
document.SelectAll;
end;

[читать далее...]