LISTBOX: Immer die ersten 10 Zeichen eines eintrags färben?!

[benniwm]

ich bin für jede methode bereit!
nur da müsste ich dann auch wieder die einzelnen stücke markieren und dann färben lassen oder?

[jfheins]

Ja, aber es ist deutlich einfacher.
Such mal nach selstart sellength , du musst also nicht aufwändig rumzeichnen ...

[benniwm]

glaube ich nicht weil ich ja nen ganzen string habe, und somit ja nicht weiß wann der name aufhört und der text anfängt.
außer ich sende die länge des nicks immer mit:
z.b nickname=Peter
dann würde die nachrihct so aussehen:
5[11:18:03]Peter:NAchricht....
dann könnte ich das erste zeichen aus dem string entfernen und dann so weiter machen:

Delphi-Quellcode:

//Uhrzeit
    richedit1.SelStart := 0;
    richedit1.SelLength := 10;
    richedit1.SelAttributes.Color := clBLue;
//Name
    richedit1.SelStart := 11;
    richedit1.SelLength := 11+Die Zahl die vom string entfernt wurde;
    richedit1.SelAttributes.Color := clRed;
//Text
    richedit1.SelStart :=  richedit1.SelLength := 11+Die Zahl die vom string entfernt wurde;
    richedit1.SelLength := Length(RichEdit1.Text);
    richedit1.SelAttributes.Color := clBLue;

nur weiß ich nicht wie ich die Zahl wegnehmen kann...
thx!!

[Khabarakh]

Such einfach mit Pos nach "]", dann hast du die Uhrzeit. Den Namen bekommst du dann mit PosEx und ":", als Startposition das Ergebnis vom Pos davor.

[benniwm]

so ich hab jetzt folgendes heraus gebracht:

Delphi-Quellcode:

procedure TForm1.RichEdit1Change(Sender: TObject);
var
  Line: string;
  uhr: integer;
  name1: integer;
begin
  line := richedit1.Lines[0];
  uhr := pos(']' , line);
  name1:= pos(']', line)+1;
  richedit1.SelStart := 0;
  richedit1.SelLength := uhr;
  richedit1.SelAttributes.Color := clBLue;
  richedit1.SelStart := uhr+1;
  richedit1.SelLength := name1;
  richedit1.SelAttributes.Color := clLime;
  richedit1.SelStart := uhr+name1;
  richedit1.SelLength := length(line);
  richedit1.SelAttributes.Color := clred;
end;

wenn aber jetzt eine nachricht hinzugefügt wird kommt das:

Zitat:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt client.exe ist eine Exception der Klasse EOutOfResources mit der Meldung 'Fehler beim Einfügen einer Zeile in RichEdit' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------

jetzt bin ich am ende!!
bitte helft mir!
thx

[Sharky]

Hai benniwm,

Du benutzt das Ereigniss .OnChange um auf eine änderung im RichEdit zu reagieren. In der Methode änderst Du das RichEdit aber wieder. Darum wird wieder das OnChange aufgerufen. Dies dürfte der Grund für die Fehlermeldung sein.

[benniwm]

hmm stimmt wohl aber ich habe keine andere idee wie ich das andesr machen kann

[Sharky]

Zitat von benniwm:

... keine andere idee wie ich das andesr machen kann

Mache es doch an der Stelle wo Du den Text in das RichEdit schreibst.

[benniwm]

ich bin mir nicht sicher aber dann würde das nur bei einem selebr so aussehen, weil es sollten ja auch erhaltene nachrichten so aussehen..

[Khabarakh]

Irgendwo wirst du doch wohl den Text vom anderen Gesprächspartner empfangen und ins Richedit einfügen. Genau danach rufst du dann deinen Code auf.