Hola,
A ver si esto puede servirte de algo:
Código Delphi
[-]
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if Item.Checked then
Sender.Canvas.Brush.Color := clLime
else
Sender.Canvas.Brush.Color := clWindow;
end;