Virtual Listview e iconos virtuales. Muy interesante pero...

[luisdevis]

Si sólo vas a cargar iconos yo suelo emplear un tStringGrid.
En cada celda pongo sólo la ubicación del archivo .ICO y manejo el evento onDrawCell.

Es muy simple y no usas tanta memoria. Sólo la parte de iconos que estas viendo.

Var i : tIcon
Begin
with StringGrid1,canvas do Begin
//-- Limpiamos el contenido visual de la celda
fillrect(rect)

//-- creamos el ICONO y lo asignamos
i := tIcon.create;
i.loadfromfile(StringGrid1.cells[Acol,Arow]);

//-- Lo mostramos en la celda;
draw(rect.left,rect.top,i);

//-- Finalmente eliminamos de memoria el icono
i.free;
end
End