Ver Mensaje Individual
  #2  
Antiguo 13-10-2004
luisdevis luisdevis is offline
Miembro
 
Registrado: mar 2004
Posts: 32
Reputación: 0
luisdevis Va por buen camino
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
Responder Con Cita