RichEdit ähnliche Komponente mit Formatierungsmöglichkeit

[NikoMitDaMacht]

hier das hatte ich benutzt um ein protokol zu schreiben

Delphi-Quellcode:

procedure AddProtocol(caption,text: string; col1,col2 :Tcolor; style1,style2:Tfontstyles);
var              
  Line: Integer; 
  MsgString :string;
begin 
  MSGString:=text;
  
  with ProtokollForm.RichEdit1 do
  begin
  Lines.Add(Caption + ' ' + MSGString + ' ('+TimeToStr(now)+')');
  Line:= Perform(EM_LINEINDEX, lines.Count-1, 0);

  SelStart  := line;
  SelLength := Length(Caption);
  SelAttributes.Style:=style1;
  SelAttributes.Color:=col1;
  SelLength:=0;
  
  SelStart  := line+ Length(Caption)+1;
  SelLength := Length(Lines[lines.Count-1]);
  SelAttributes.Color:=col2;
  SelAttributes.Style:=style2;
  SelLength:=0;

  SelStart  := line + Length(Caption + ' ' + MsgString);
  SelLength := Length(Lines[lines.Count-1]);
  SelAttributes.Color:=clBlack;
  SelAttributes.Style:=[];
  SelLength:=0;
 end;
end;

[edit=Luckie]Code-Tags korrigiert. Mfg, Luckie[/edit]