Changing spacing in icons view
Frage / Problem
How can I add more or less space between the items in the TJamShellList or TJamFileList?
Antwort / Lösung
In icon based viewstates (viewstyle = vsIcon) you can use the Win32 function "ListView_SetIconSpacing" to determine horizontal and vertical spacing in the ListView.
The following code reduces the vertical space by 10 Pixels:
var lSpace, lVert, lHoriz: DWord;
begin
lSpace := ListView_GetItemSpacing(ListView1.Handle, 0);
lVert := HiWord(lSpace);
lHoriz := LoWord(lSpace);
ListView_SetIconSpacing(ListView1.Handle, lHoriz, lVert - 10); //unit CommCtrl
ListView1.Invalidate();
end;
Note, that this might result in overlapping items.