http://stackoverflow.com/questions/3...al-string-tree
Das lässt sich auch anpassen:
http://code.google.com/p/virtual-tre.../detail?id=224
Für die Komponente VirtualStringTree kann ich jetzt nichts testen -> nicht installiert...
Für eine ListBox sieht das so aus:
Vielleicht kann das jemand anpassen?
Delphi-Quellcode:
procedure TForm2.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with Control as TListBox do begin
chgcol:= not chgcol; //globale Boolean
if chgcol then Canvas.Brush.Color:= clsilver else Canvas.Brush.Color:= clGray;
Canvas.FillRect(Rect);
Canvas.Font.Color := TColor(Items.Objects[Index]);
Canvas.TextOut(Rect.Left + 2, Rect.Top, Items[Index]);
end;
end;
procedure TForm2.Button10Click(Sender: TObject);
var
i: Integer;
begin
for i := 0 to 99 do
begin
if Odd(i) then
ListBox1.Items.AddObject('Rotes Item', Pointer(clred))
else
ListBox1.Items.AddObject('Grünes Item', Pointer(cllime));
end;
end;