procedure TRTFEditorForm.ToolButton10Click(Sender: TObject);
begin
RichEdit1.Paragraph.Alignment:=
TAlignment(TToolButton(Sender).Tag);
end;
procedure TRTFEditorForm.ToolButton14Click(Sender: TObject);
begin
RichEdit1.Paragraph.Numbering:=
TNumberingStyle(ToolButton14.Down);
end;
procedure TRTFEditorForm.ToolButton15Click(Sender: TObject);
begin
ColorDialog1.Color:=SelectedText.Color;
if ColorDialog1.Execute then begin
SelectedText.Color:=ColorDialog1.Color;
end;
end;
procedure TRTFEditorForm.FormCreate(Sender: TObject);
var
i: integer;
begin
ComboBox1.Items.Assign(Screen.Fonts);
for i:=6 to 72 do begin
ComboBox2.Items.Add(IntToStr(i));
end;
end;