Implemented painting Listview Subitems icons

TfpgListView.Subitems is actually TfpgListViewSubItems and can be casted as such to alter the imageindex of subitems
Updated the example so subitems have an assigned imagelist

1 files changed, 1 insertions, 0 deletions

diff --git a/examples/gui/listviewtest/listviewtest.lpr b/examples/gui/listviewtest/listviewtest.lpr
index e97b86bd..a22c7a7b 100644
--- a/examples/gui/listviewtest/listviewtest.lpr
+++ b/examples/gui/listviewtest/listviewtest.lpr
@@ -137,6 +137,7 @@ begin
     OnSelectionChanged := @ItemSelectionChanged;
     MultiSelect := True;
     Images := FImageList;
+    SubItemImages := FImageList;
     ImagesSelected := FSelectedImageList;
   end;