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:

markieren

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

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

markieren

Delphi-Quellcode:

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

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

markieren

Delphi-Quellcode:

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

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