TRichEdit - Textteile verschieden atrribuieren

[Bloodfire]

Hi!

Vorerst meinen Dank an PierreB, der mir den Tipp gab bei dem Chatfenster ein TRichEdit zu verwenden - funktioniert eigentlich reibungslos, ... wenn's da nicht die kleinen Tücken gäbe:

wenn nun jemanden den Chat verlässt wird wunderbar die Meldung gebracht und grau eingefärbt, jedoch: wenn der benutzer nun 2x einsteigt wird die 2.Anzeige nicht mehr formatiert. (Ich nehme mal an, weil er sich nach dem Auffinden der ersten passenden Textsequenz zufrieden gibt.) Wie kann man alle Textstellen formatieren? (bzw. nur die neuen?)

Ich hoffe das is halbwegs verständlich?

Delphi-Quellcode:

(...)
HasJoinedText:='[ '+FName+' '+HasJoined+' ]';
ChatMemo.Lines.Add(HasJoinedText);
ChatMemo.SelStart:=Pos(HasJoinedText,ChatMemo.Text)-1;
ChatMemo.SelLength:=Length(HasJoinedText);
ChatMemo.SelAttributes.Color:=$00999999;
ChatMemo.SelAttributes.Style:=[fsBold];
(...)

führt also zu:

[ Tester hat den Raum betreten ] // -> neu formatiert
[ Tester hat den Raum verlassen ] // -> neu formatiert
[ Tester hat den Raum betreten ] // -> nicht mehr neu formatiert
[ Tester hat den Raum verlassen ] // -> nicht mehr neu formatiert
[ Tester hat den Raum betreten ] // -> nicht mehr neu formatiert

usw.

Danke!

[Waldteufel]

Hi.

So ein Zufall: Das selbe Problem hatte ich auch mal...
So sollte es funktionieren:

Delphi-Quellcode:

ChatMemo.SelStart := Length(ChatMemo.Lines.Text);
ChatMemo.SelLength := 0;
ChatMemo.SelAttributes.Color := $00999999;
ChatMemo.SelAttributes.Style := [fsBold]; 
HasJoinedText := '[ ' + FName + ' ' + HasJoined + ' ]';
ChatMemo.SelText := #13#10 + HasJoinedText;

//edit: Zeilenumbruch vergessen...