Bestimmte Zeilen einer TListbox färben

[bitsetter]

Hallo,

vom Prinzip her könnte man es so machen:

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  if Control is TListbox then
  begin
    TListbox(Control).Canvas.FillRect(Rect);
    if TListbox(Control).Items.Strings[Index] = 'verliehen' then
      TListbox(Control).Canvas.Font.Color := clRed
    else
    if odSelected in  State then
      TListbox(Control).Canvas.Font.Color := graphics.clHighlightText
    else
      TListbox(Control).Canvas.Font.Color := graphics.clBtnText;

    TListbox(Control).Canvas.TextOut(Rect.Left, Rect.Top, TListbox(Control).Items[Index]);
  end;
end;

Der Code müsste allerdings noch erweitert werden, wenn es noch besser aussehen soll.