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:

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.

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.

[Luckie]

Wie schreiben, denn die Threads in die Listbox? Du solltest Zugriffe auf VCL Komponenten mit der Methode Synchronize synchronisieren.

[Bernhard Geyer]

Falscher Ansatz!

1, Direktes Eintragen von Thread in GUI-Controls wird über kurz oder lange krachen. Diese Aufrufe dürfen nur Synchronisiert erfolgen
2, Deine farbig-Markierungen gehen flöten sobald die ganze ListBox neu gezeichnet werden muss.


Möglicher Lösungsansatz:

1, Nimm statt TListBox ein TListView und betreibe es im Virtual-Modus
2, Verwalte deine Meldungen in einer eigenen List welche Text, Farbe, ... speichert. Im entsprechenden Draw-Event der ListView kannst Du die Items entsprechend Formatieren.
3, Die kommunikation Thread -> GUI kannst Du z.B. über eine TThreadList machen, wo du deine neuen Einträge hinzufügst und z.B. über eine Windows-Message asynchron ein neuzeichnen der TListview auslöst.

[little_budda]

Danke.

Ich werde die Liste verwenden.
Um Synchronize zu verwenden müste ich noch einen extra Thread anlegen für das Eintrag in die Box.

Gruß Holger.

[Bernhard Geyer]

Zitat von little_budda:

Um Synchronize zu verwenden müste ich noch einen extra Thread anlegen für das Eintrag in die Box.

Nix da. Das Eintragen in die Listbox (GUI-Control) darf nur im Hauptthread der Anwendung erfolgen!!!!
Und wenn Du das TListView-Control verwendest wird ja der OnItemDraw (wenn es genau so heißt)-Event im Hauptthread ausgelößt und du hast kein Problem.

[little_budda]

Ich werde es mal angehen.