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.