Formatierung innerhalb der Listbox zu langsam

**little_budda**

Hallo,

ich möchte gerne von mehreren Treads aus Statusinformationen in eine Listbox eintragen.
Die Listbox liegt in einer separaten Form (frm_prot) welche ich optional als Statusprotokoll zur Verfügung stelle.
Über die Variante
frm_prot.ListBox1.items.add('TEXT'); klappt das.

Nun wollte ich die Ausgabe farbig gestalten um direkt zwischen "guten" und "schlechten" Meldungen unterscheiden zu können.
Hierzu nutze ich folgenden Code in der Protokollform:

zusammenfalten · markieren

Delphi-Quellcode:

			interface

  procedure setProtItem (outText : string; vgColor, hgColor : tcolor);

...

procedure setProtItem (outText : string; vgColor, hgColor : tcolor);

begin

  frm_prot.ListBox1.Font.Color:= vgColor;  // SchriftFarbe

  frm_prot.ListBox1.Brush.Color:= hgColor;  // HintergrundFarbe

  frm_prot.ListBox1.Canvas.Font.Color:= vgColor;  // SchriftFarbe

  frm_prot.ListBox1.Canvas.Brush.Color:= hgColor;  // HintergrundFarbe

  frm_prot.ListBox1.items.add(outText);

end;

Die Listbox ist formatiert als "lbOwnerDrawFixed".
Im Ereignis "OnDrawItem" habe ich folgenden Code verwendet.

markieren

Delphi-Quellcode:

			  with ListBox1, ListBox1.Canvas do begin

    FillRect(Rect);        // Hintergrund zeichnen

    TextOut(Rect.Left+5, Rect.Top+1, Items[index]);  // Textausgabe

  end;

Aus meiner Primärform verwende ich folgenden Aufrufe
Für "gut":
setProtItem('TEXT', clBlack, clLime); Für "schlecht":
setProtItem('TEXT', clWhite, clRed); Wenn ich die Einträge gemächlich über einen Button erzeuge klappt das klasse.
Jeder Eintrag wird mit den entsprechenden Farben eingetragen.

Kommen die Einträge während der Laufzeit aus meinen Threads so sind sie alle einfarbig.
Es werden so etwa 200 "schlechte" und zwischendurch 3 "gute" eingetragen.
Die guten sollten halt grün werden ...

Ich vermute das die Formatierung der Listbox schon klappt aber bis die Box dazu kommt
ihr "onDrawItem" zu bearbeiten der nächste Thread die Formatierung schon wieder überschrieben hat.

Kann ich die Abarbeitung der Listbox irgendwie beschleunigen?

Gruß Holger.

Formatierung innerhalb der Listbox zu langsam

Formatierung innerhalb der Listbox zu langsam

Forumregeln