Listbox - einzelne Itemstrings farbig kennzeichnen?

[Sharky]

Hai EL,

hier ist mal ein Beispiel bei dem ich die "FarbInformation" in der Object eigenschaft der Items hinterlege:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  ndx: Integer;
  farbe : Integer;
begin
  ListBox1.Style := lbOwnerDrawFixed;
  ListBox1.Clear;
  for ndx := 0 to 20 do
  begin
    Case ndx of
      0,4,7,9,18 : farbe := clred;
      1,6,13,17 : farbe := clgreen;
    else
      farbe := clBlack;
    end;
    ListBox1.AddItem(IntToStr(ndx),TObject(farbe));
  end;
end;

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with (Control as TListbox) do begin
    Canvas.Font.Color := Integer(Items.Objects[index]);
    Canvas.TextRect(Rect, Rect.Left+2, Rect.Top, Items[Index]);
  end;
end;