Ich fands interessant und solange es Google findet, ist es für andere auch wertvoll.
Ich habs ausprobiert und fand, nachdem ich mich gefragt hatte, wozu das
"RichEdit1.ClearSelection;"
eigentlich da ist, dass es gar nicht nötig ist. Der Code geht genauso:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.SelAttributes.Color := clRed;
RichEdit1.SelText := 'Text rot ';
RichEdit1.SelAttributes.Color := clBlue;
RichEdit1.SelText := 'Text blau ';
RichEdit1.SelAttributes.Color := clGreen;
RichEdit1.SelText := 'Text schwarz';
RichEdit1.Lines.Append('');
RichEdit1.SelAttributes.Color := clBlack;
RichEdit1.SelAttributes.Style := [fsBold];
RichEdit1.SelText := 'Text FETT';
RichEdit1.SelAttributes.Color := clMaroon;
RichEdit1.SelAttributes.Style := [fsUnderline];
RichEdit1.SelText := ' ENDE';
RichEdit1.Lines.Append('');
end;