Prueba con tStringList
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
|