ListView-Eintrag wird bei Windows 7 schwarz

[ChrisE]

Wobei dein Beispiel-Projekt so ja funktioniert, oder?

Delphi-Quellcode:

var
  lv: TListView;  
begin
  If (Stage = cdPostPaint) and (Sender is TListView) then
  begin
    lv := Sender as TListView;
    Button1.PaintTo(lv.Canvas, lv.Columns[0].Width, Item.DisplayRect(drBounds).Top);
    lv.Brush.Style := bsClear; 
  end;
end;

Greez, Chris