DefAttributes (Delphi)

Description

This example requires a TRichEdit and two TButtons. Leave the default text, usually "RichEdit1", in the lines property. The DefAttributes will apply to this text.

Code

procedure TForm1.Button1Click(Sender: TObject);
begin
  with RichEdit1.SelAttributes do
  begin
    Color := clRed;
    Height := Height + 5;
  end;
  RichEdit1.Lines.Add('This line of text will be red.');
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
  RichEdit1.DefAttributes.Color := clBlue;
  RichEdit1.DefAttributes.Style := [fsBold, fsItalic];
end;

Uses

• Vcl.ComCtrls.TCustomRichEdit.DefAttributes ( fr | de | ja )
• Vcl.ComCtrls.TCustomRichEdit.SelAttributes ( fr | de | ja )
• Vcl.ComCtrls.TTextAttributes.Color ( fr | de | ja )
• Vcl.ComCtrls.TTextAttributes.Height ( fr | de | ja )
• Vcl.ComCtrls.TTextAttributes.Style ( fr | de | ja )