SelAttributes bei RichEdit funktioniert manchmal nicht

[MasterEvil]

Hallo,

ich habe ein kleines, nerviges Problem mit der TRichEdit Komponente.
Ich hab eine Art Log-Fenster in das ich Netzwerk-Traffic schreibe.
Ist es Traffic, den der Server versendet, soll der Text Blau sein, andernfalls rot.

Dies klappt zu 90% auch wunderbar mit meiner folgenden Lösung:

Delphi-Quellcode:

if Receive then RichEdit.SelAttributes.Color:=clBlue
else RichEdit.SelAttributes.Color:=clRed;

RichEdit.Lines.Add(Text);

Und ab und zu ist ein Textblock dann plötzlich schwarz ...
Es kann kein Text an der Funktion vorbei ins RichEdit kommen.
Irgendwie funktioniert das SelAttributes ab und zu nicht.

Jemand eine Idee?
Gruß,
Steffen

[Flocke]

Es könnte sein, dass die Auswahl sich nicht am Ende befindet. Lösung wäre hier:

Delphi-Quellcode:

RichEdit.SelStart := RichEdit.GetTextLength;
RichEdit.SelAttributes.Color := ...
RichEdit.SelText := DeinHinzuzufuegenderText + #13#10;
// oder:
// RichEdit.SelText := #13#10 + DeinHinzuzufuegenderText;

[shmia]

Könnte ein Nebeneffekt des berüchtigten [google]"Richedit line insertion error"[/google] sein.
Versuch mal:

Delphi-Quellcode:

if Receive then RichEdit.SelAttributes.Color:=clBlue 
else RichEdit.SelAttributes.Color:=clRed; 
RichEdit.SelStart := RichEdit.GetTextLen;   // <==
RichEdit.Lines.Add(Text);

[MasterEvil]

Hallo,

danke für eure Hilfe.
Alleine das SelStart zu setzen, hat leider nicht geholfen, aber mit dem SelText zusammen scheint es zu funktionieren (ist jedenfalls bislang noch nicht wieder aufgetreten).

Gruß,
Steffen