No, lo puse rápidamente, sin comporbarlo.
Mirando el Help de Delphi sobre TListItem encontré esta propiedad que supongo te puede servir:
Cita:
TListItem.DisplayRect
Returns the bounding rectangle of the list item.
type TDisplayCode = (drBounds, drIcon, drLabel, drSelectBounds);
function DisplayRect(Code: TDisplayCode): TRect;
Description
Use DisplayRect to get the coordinates of the list item in the client coordinates of the containing listview. The Code parameter specifies what part of the item the bounding rectangle surrounds. These are the possible values for the Code parameter.
Value Meaning
drBounds Returns the bounding rectangle of the entire list item, including the icon and label.
drIcon Returns the bounding rectangle of the icon or small icon
drLabel Returns the bounding rectangle of the item text
drSelectBounds Returns the union of the icon and label rectangles, but excludes columns in report view
|
Podrías escribir un rectánculo de color sobre el canvas de "Sender"