markering af bestemt linjer i Listview

OnCustomDrawItem og OnCustomDrawSubItem

procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
var
  I: Integer;
  R: TRect;
begin
  R := Item.DisplayRect(drBounds);
  for I := 0 to SubItem -1 do
    R.Left := R.Left + Sender.Column[I].Width;

  Sender.Font.Style := [fsBold];
  with Sender.Canvas do
  begin
    TextOut(R.Left, R.Top, 'hest');
  end;
end;

Something like that...

jeg formoder at OwnerDraw skal være True

så kan jeg bare ikke få noget tekst frem med Item.Caption etc.

Sæt OwnerDraw til False... Det virker i hvert fald med False her når man bruge OnCustomDraw!