Poner un icono en un TListView según el tipo de archivo

[bustio]

Empezado por delphi.com.ar

Tienes que asignarle como lista de imágenes, las imágenes del buffer del sistema

Código Delphi [-]
ilHandle := SHGetFileInfo('C:\', 0, shFileInfo, SizeOf(shFileInfo),
SHGFI_SYSICONINDEX or SHGFI_SMALLICON);

SendMessage(tvFileSystem.Handle, TVM_SETIMAGELIST, TVSIL_NORMAL, ilHandle);
SendMessage(lvFileSystem.Handle, LVM_SETIMAGELIST, LVSIL_SMALL, ilHandle);




Luego cada el índice de cada ícono tienes que averiguarlo con la función SHGetFileInfo.

Te recomiendo ver el código de los ShellCtrls que trae de ejemplo Delphi, o un ejemplo llamado "Virtual Listview"

Saludos!

Hola! he visto tu mensaje y me parece muy bueno, pero me surgen unas dudas pues no alcanzo a entender tu codigo al 100%. Supongo que con el segmento anterior pueda obtener todos los iconos de fichero y asociarlos al TreeView, ahora, como controlo que los ficheros seleccionados tengan el icono correspondiente? Yo programe una funcion que a partir de un path me de todos los archivos y carpetas que contenga dentro recursivamente, pero ahora necesito asociarle el icono correspondiente, y es lo qu eno se como hacerlo. Las cosas que he visto por los foros no me aclaran totalmente... Intente obtener el icono del fichero, luego convertirlo a un Bitmap y annadirlo a un ImageList, pero no me funciona. Cual de las dos variantes me recomiendan? Como hacerlas?

[roman]

El código que indica Federico, te sirve para asociar la lista de iconos del sistema al TreeView y lo que requieres es conocer cual es el índice en esa lista del icono asociado a un archivo. Para ello es que usas la función ShGetFileInfo y sólo requieres el nombre del archivo:

Código Delphi [-]
const
  shgfiIconIndex = SHGFI_SYSICONINDEX or SHGFI_USEFILEATTRIBUTES;

var
  ShFileInfo: TShFileInfo;

begin
  ShGetFileInfo('main.pas', 0, ShFileInfo, SizeOf(ShFileInfo), shgfiIconIndex);
  Node.ImageIndex := ShFileInfo.iIcon;

En este ejemplo, paso como parámetro la cadena 'main.pas' a ShGetFileInfo. La función consulta al sistema para saber qué icono está asociado a la extensión .pas y devuelve, en la estructura ShFileInfo, el índice requerido. Ése lo asignarías a la propiedad ImageIndex del nodo, tal como muestra el ejemplo.

En este hilo hay un ejemplo adjunto que hice hace un tiempo para llenar un ListView con los archivos de un directorio, mostrando sus iconos respectivo. La técnica es exactamente la misma que para un TTreeView. Ambas componentes tienen un evento OnGetImageIndex que sería el idóneo para usar el código anterior.

// Saludos

[roman]

Vaya. No sé en qué estaba pensando. El ejemplo del otro hilo no tiene nada que ver. El ejemplo lo adjunto aquí.

// Saludos

[roman]

En este otro ejemplo que adjunto, utilizo un TreeView que muestra los directorios, subdirectorios y archivos del folder que se especifique.

// Saludos

[[seoane]]

Bonito ejemplo Roman

[jhcaboverde]

Roman, ante todo debo darte las gracias porque he estado buscando este ejemplo por dias, me he desesperado y hasta me escribieron pidiendo que no posteara mas hilo referente a ese tema.

Te explico:

Tengo una carpeta cun subcarpetas y archivos de textos, tengo que crear una aplicacion que recorra la carpeta y sub carpetas y archivos "como el explorador de windows" y me lo monte en un ttreeview para con otro componente al hacer click en los archivos se muestre a la derecha. el tema esta que al utilizar tu ejemplo del treeview me da un error cuando hay varias subcarpetas, me puedes ayudar

[FENIXadr]

Hola Gente... vi los ejemplos de Roman y realmente estan buenisimos.. lo del ListView era lo que buscaba... ahora lo del TreeView no es exactamente lo que necesito.. la cosa es que estoy hciendo una lista de las PC's conectadas en una red y necesitaría ponerle los iconos de "Mis Sitios de Red", he buscado info de las funciones y constantes que se usan en los ejemplos pero no logro encontrar la lista que me representa las "Redes de Microsoft", los "grupos de trabajo" y todos esos iconos que justamente estan en "Mis Sitios de Red".. espero que me puedan ayudar.. desde ya muchas gracias.