Iconos del sistema en un TListView

[roman]

No sé de dónde sacas esto del cuarto icono. Bueno, más o menos lo intuyo pero no creo que sea fiable este método y hoy te puede funcionar pero mañana no, quizá en otra pc.

Yo te recomiendo primero que nada olvidarte de extraer el icono. Lo que estás haciendo es copiar el icono a tu propio ImageList, pero es innecesario mantener un ImageList siendo que el sistema ya lo hace. Luego de la llamada a ShGetFileInfo lo único que tienes que hacer es asignar a Item.ImageIndex el valor de ShFileInfo.iIcon.

Eso sí, no te olvides de asignar al ListView los ImageList del sistema tal y como te dijo Federico en el otro hilo.

// Saludos

[[Gunman]]

Pero que imagelist mantiene el sistema? No sé qual es?

[[Gunman]]

Retiro mi duda
ya lo tengo!

procedure GetFileIcon(ImageList: TImageList; ListItem: TListItem; Name: String;
   IconSize: TIconSize);
 var
   FInfo: TSHFileInfo;
   ImageListHandle: THandle;
 begin
   if IconSize = isLarge then
   ImageListHandle := SHGetFileInfo(PAnsiChar(Name),0,FInfo,SizeOf(TSHFileInfo),
   SHGFI_LARGEICON or SHGFI_SYSICONINDEX or SHGFI_USEFILEATTRIBUTES)
   else
   ImageListHandle := SHGetFileInfo(PAnsiChar(Name),0,FInfo,SizeOf(TSHFileInfo),
   SHGFI_SMALLICON or SHGFI_SYSICONINDEX or SHGFI_USEFILEATTRIBUTES);
 
   SendMessage(ListItem.Owner.Owner.Handle, LVM_SETIMAGELIST, LVSIL_SMALL, ImageListHandle);
 
   SendMessage(ListItem.Owner.Owner.Handle, LVM_SETIMAGELIST, LVSIL_NORMAL, ImageListHandle);
 
   ListItem.ImageIndex := FInfo.iIcon;
 end;
 
 procedure TForm1.Button1Click(Sender: TObject);
 begin
   ListView1.Items.Add.Caption := Edit1.Text;
   GetFileIcon(ImageList1,ListView1.Items.Item[ListView1.Items.Count-1],Edit1.Text,isSmall);
 end;

Este es el código, funciona!

[roman]

¡Muy bien! Veo que ya le vas entendiendo. Si me permites, un par de sugerencias.

Aunque quizá no afecte demasiado, toma en cuenta que los ImageList del sistema sólo hace falta obtenerlos una vez. Por ejemplo, en el evento OnCreate del formulario usas ShGetFileInfo pasando una cadena vacía como primer parámetro y usas SendMessage para la asignación de ambos ImageList.

Por otro lado, quizá te llegues a percatar de que cuando tienes muchos elementos, el ListView comienza a alentarse para desplegar los iconos. Si notas esto y quieres agilizarlo entonces será momento de usar el ListView en modo virtual. Esto se acerca más al ejemplo que te mencionó Federico en el otro hilo aunque en tu caso sería, pienso, mucho más sencillo, ya que el ejemplo mencionado despliega no sólo archivos de un folder sino además objetos de otros contenedores, tales como el panel de control, mi pc o el entorno de red.

// Saludos

[[Gunman]]

Roman, estoy viendo que el parámetro Name i ImageList en el procedimiento no son necesarios, verdad? es decir, el parametro name lo puede coger de ListItem.Caption i el parámetro ListView no veo que se use en todo el procedimiento... Tu que opinas? Como simplificarias el procedimiento?

[roman]

Tal como está, supongo que en efecto son innecesarios. De hecho, difícilmente querrás obtener uno de los iconos en el evento OnClick de un botón.

El ListView ofrece el evento OnGetImageIndex que me parece el más adecuado para esto. El evento pasa como parámetro el Item del que necesita saber su icono. Ahí es donde asignas a Item.Imagendex el valor que obtienes con ShGetFileInfo. Y sí, el parámetro que le pasas sería Item.Caption.

// Saludos

[roman]

Te mando dos ejemplos de aplicaciones que usan un ListView para presentar los archivos de una carpeta.

Ambas son iguales excepto porque la segunda (VirtualSysIcons) usa el ListView en modo virtual.

Compara los dos ejemplos contra un directorio con muchos archivos, por ejemplo, C:\Windows\System32, para que veas el porqué de usar el modo virtual.

Los ejemplos ya están compilados para que veas rápidamente la diferencia. Pero también te mando los códigos fuente.

La diferencia entre SysIcons y VirtualSysIcons básicamente está en el método ReadFiles.

En SysIcons, ReadFiles agrega directamente los archivos de una carpeta al Listiew.

En VirtualSysIcons, ReadFiles agrega sólo los nombres de los archivos en un TStringList auxiliar. Entonces usa el evento OnData del Listiew para llenar los datos del item que se llena a partir de lo guardado en el StringList.

El modo virtual se establece poniendo la propiedad OwnerData del ListView en true.

// Saludos

[JMGR]

Una pregunta gunman...¿como haces para mandar el listado de los archivos/carpetas del servidor al cliente?