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

[benniwm]

hui,
ich hab nen chat gemacht und möchte die uhrzeit durch eine andere schriftart hervorheben!
für jede nachricht wird ein neues item in ner listbox angelegt...
das sieht wie folg aus:
[01:30:25]Benutzer: Hallo

kann ich die ersten 10 zeichen also die uhrzeit in ner anderen schriftfarben machen?
thx

[edit=sakura] [Klammern ersetzt] Mfg, sakura[/edit]

[Keldorn]

Hallo

Selberzeichnen im ondrawitem. Du kannst den string teilen und den ersten Teil mit fabre xy zeichnen, mit canvas.textwidth die notwendige Länge bestimmen und ab dort den zweiten Teil in Farbe Z zeichnen.

Mfg Frank

[Bernhard Geyer]

Entweder:

1, Ownerdraw verwenden um jeden Eintrag selbst zu zeichnen
2, Verwendung von ListView mit 2 Spalten (wieß jedoch nicht ob die Stand-ListView unterschiedliche Einstellungen für jede Spalte unterstützt
3, Verwndung von Controls die eine HTML-Formatierung des Textes unterstützen würden (z.B. die HTML-ListBox vom ElPack

[benniwm]

hi
thx für die antworten...
ich hab noch wenig erfahrung drum probier ich jetz mal die lösung mit der komponente von ElPack!
das andere müsstet ihr mir genauer erklären...
thx

[Keldorn]

als Anregung:

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
Var Textbreite:integer;
    s:string;
begin
  //style der listbox auf ownerdrawfixed stellen!
  with control as TListBox do
    begin
      //Hintergrund
      canvas.FillRect(rect);
      //ersten Teil des strings
      s:=copy(items[index],1,10);
      canvas.font.Color:=clred;
      canvas.Font.Style:=[fsbold];
      canvas.TextOut(rect.Left+2,rect.top+2,s);
      Textbreite:=canvas.TextWidth(s);
      //zweiter Teil des strings
      s:=copy(items[index],10,length(items[index]));
      canvas.font.Color:=clWindowText;
      canvas.Font.Style:=[];
      canvas.TextOut(rect.Left+2+Textbreite,rect.top+2,s);
    end;
end;

[benniwm]

morgn!
ich habs jetzt so wie ichs bräuchte:

Delphi-Quellcode:

//Hintergrund
      canvas.FillRect(rect);
      //ersten Teil des strings  (timestamp)
      s:=copy(items[index],0,10);
      canvas.font.Color:=$00E47B07;
      canvas.Font.Style:=[];
      canvas.TextOut(rect.Left+2,rect.top+2,s);
      Textbreite:=canvas.TextWidth(s);
      //zweiter Teil des strings  (nick)
      s2:=copy(items[index],11,10);
      canvas.font.Color:=$00F6AD5B;
      canvas.Font.Style:=[];
      Textbreite:=canvas.TextWidth(s);
      canvas.TextOut(rect.Left+2+Textbreite,rect.top+2,s2);
      //dritter Teil des strings  (:)
      s3:=copy(items[index],0,21);
      s3:=s3[21];
      canvas.font.Color:=$00FCD9B1;
      canvas.Font.Style:=[];
      Textbreite:=canvas.TextWidth(s+s2);
      canvas.TextOut(rect.Left+2+Textbreite,rect.top+2,s3);
     //vierter Teil des strings  (text)
      s4:=copy(items[index],22,length(items[index]));
      canvas.font.Color:=$00D0D0D0;
      canvas.Font.Style:=[];
      Textbreite:=canvas.TextWidth(s+s2+s3);
      canvas.TextOut(rect.Left+2+Textbreite,rect.top+2,s4);

nur hab ich das jetzt mehr oder weniger durch ausprobieren hinbekommen!
könnte mir jemand erklären wie ich es machen kann, dass der 2.teil des strings in einer variablen länge sein kann(so lang wie der text in einem edit!), und eine bestimmte farbe hat und der rest dann wieder ne andere farbe:

[08:44:25]Name:TESTETSTETS

thX!!

[Sharky]

Hai benniwm,

ich würde das ganze mit einem TListView machen. Das ist dann etwas einfacher finde ich.
Im Anhang mal ein kleines Beispiel:

[Keldorn]

du hast gesagt die ersten 10 Zeichen und nicht so viele unterschiedliche Farben ;) Bei soviel wäre eine Listview vielleicht wirklich besser, allerdings erhäslt du dann immer ein Tabellenform der Ausgabe.

Zitat:

Zitat von benniwm

nur hab ich das jetzt mehr oder weniger durch ausprobieren hinbekommen!
könnte mir jemand erklären wie ich es machen kann, dass der 2.teil des strings in einer variablen länge sein kann(so lang wie der text in einem edit!), und eine bestimmte farbe hat und der rest dann wieder ne andere farbe:

Du suchst pos, damit kannst diu ermittlen, wo der : im string ist.
zu deinem Code noch ein paar Anmerkungen:
Den font.style brauchst du nicht zusetzen.

Code:

s3:=s3[21];

wird dir Probleme bereiten, wenn der String nicht 21 Zeichen hat, solltest du abfragen!

Code:

Textbreite:=canvas.TextWidth(s+s2);

besser wäre

Delphi-Quellcode:

Textbreite:=Textbreite+canvas.TextWidth(s2);

Du wirst da jetzt keinen Unterschied bemerken, wenn du jedoch unterschiedliche Schriften, größen, font.styles ... einsetzt, wirst du mit deiner Variante Probleme bekommen, da bei dir die Textbreite nur mit einer Einstellung ermittelt wird.

Mfg Frank

[benniwm]

danke für die antworten nur habe ich jetzt dass näxte problem:
ich bekomme ne string geschickt und zwar so:

Delphi-Quellcode:

procedure read.Execute;
var
instr:string;
begin
while
form1.client.Connected
do
begin
instr := form1.client.Socket.ReadLn;
form1.listbox1.items.Add(instr);
form1.listbox1.Selected[form1.listbox1.Items.Count-1] := true;
end;
end;

diese procedure ist in einer extra unit drin...
drum müsste ich jetzt wahrscheinlich den erhaltenen string aufspalten und dann in das listview einfügen.oder?

[jfheins]

Auch wenn es sich ein bisschen hart anhört:

Nimm statt einer ListBox lieber ein RichEdit. (Register Win32) damit kannst du dann auch mehrzeilige Botschaften darstellen, und rumfärben, wie du willst.

[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]

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

[Sharky]

Zitat:

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.

[benniwm]

ja das schon aber das is ne extra unit..
ich veruschs mal!!!
thx