TListView using modern styles known from Windows XP Explorer


Looking for a way to display data grouped, but without leaving the standard VCL components, I remembered the way Windows Explorer is able to group TListView items since Windows XP (to be exact, since the Common Controls have reached version 6).
Searching for a way to implement that, if possible through a standard TListView, I came across the article Tilemodus und Gruppierung von List-View-Items (WinXP) (Tile mode and grouping of list view items on Windows XP) at the German Delphi-PRAXiS forum, which gives a few examples. Now, ever since I read about class helpers, I wanted to play around with them, and this seemed to a good chance, so I created snlListView.pas (also needed: CommCtrl_Fragment from the DP forum link above), which extends TListView and TListItem to allow grouping and tile mode. A look at the source will show you the new properties, e.g. GroupViewEnabled (which, by the way, needs to be enabled AFTER FormCreate), AddGroup to add a new group, ViewStyle = vsTile for the new fifth display mode, and each items new GroupId.
