Comment faire pour avoir des lignes avec des polices différentes dans un RichEdit. J'ai pas réussi à, trouver ça dans la doc merci d'avance

DefAttributes
SelAttributes
SelStart
SelLength
 
This example requires a TRichEdit and a TButton. Leave the default text, usually "RichEdit1", in the lines property. The DefAttributes will apply to this text.
 
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;
 
Tu mélanges, tu secous et t'oublis pas   et ça va roulez