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.
