Coloré texte dans la même ligne dans TRichEdit

Comment écrire du texte dans la même ligne, mais avec des couleurs différentes? (j'utilise richedit).

procedure TForm1.btnEClick(sender: TObject);
begin

  m0.SelAttributes.Color := clBlue;
  m0.SelAttributes.Style := [fsBold];
  m0.lines.add('This is blue and it is bold');
  m0.SelAttributes.Color := clGreen;
  m0.SelAttributes.Style := [fsBold];
  m0.lines.add ('This is Green and it is bold');
  m0.lines.add('');
  m0.lines.add('But how to write text in the same line with different color?');
  // i want to have both blue and green in the same line 
end;

Meilleurs Vœux,
Abeille

OriginalL'auteur Bianca | 2013-11-25

  1. 21

    Vous êtes sur la bonne voie. Il suffit de changer SelAttributes et l'utilisation SelText au lieu de Lines.Add:

    procedure TForm4.FormCreate(Sender: TObject);
begin
  RichEdit1.Clear;
  RichEdit1.SelAttributes.Color := clBlue;
  RichEdit1.SelAttributes.Style := [fsBold];
  RichEdit1.SelText := 'This is bold blue text.';
  RichEdit1.SelAttributes.Color := clRed;
  RichEdit1.SelAttributes.Style := [fsItalic];
  RichEdit1.SelText := #32'This is italic red text';
end;

    Ce produit

    Coloré texte dans la même ligne dans TRichEdit

    OriginalL'auteur Ken White