Zeilenanfang färben (TRichEdit)

[dominikkv]

hi und Willkommen bei DP
so hab ich das in meinem chat gelöst

Delphi-Quellcode:

ChatWnd.Lines.Add('('+TimeToStr(Now)+') '+copy(s, Pos('/',s)+1, Pos('\',s)-Pos('/',s)-1)+': '+ copy(s, Pos('|',s)+1, length(s)-Pos('|', s)));
ChatWnd.SelStart := Length(chatWnd.Text)-length(s)-length(TimeToStr(Now))+1;
ChatWnd.SelLength := Length(TimeToStr(now))+4+Pos('\', s)-Pos('/', s);
ChatWnd.SelAttributes.Color := clBlue;