delphi listview vslist模式，选中行出现图标，未选中的不显示图标，可以实现吗？

delphi listview vslist模式，选中行出现图标，未选中的不显示图标，可以实现吗？

如图我选中了第2行，前面加个小图标，怎么操作呢。

通过自绘，已经解决了！
CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);