Item in TListView einfärben

[BastardOp]

also so schaut der code aus

Delphi-Quellcode:

procedure TForm1.ListView6CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
with ListView6.Canvas.brush do
  begin
    if (Item.SubItems[5] = 'ja') then
    begin
      Color := clgreen;
    end ;
    if (Item.SubItems[5] = 'nein') then
    begin
      Color := clred;
    end ;
  end;
    end;
end.

und so schaut das pic in dem fall aus