[astuce] comment afficher les icônes des fichiers listés dans un tfilelisbox

Description

Unité : CustomFileCtrl

Crée en réponse à une question posée sur le forum de DelphiFr :
Comment afficher les icônes des fichiers listés dans un TFileLisBox
http://www.delphifr.com/infomsg_TFILELISTBOX_861879.aspx#13
Et
http://www.delphifr.com/infomsg_TFILELISTBOX_867341.aspx#5

J'en ai profité pour modifier également TDirectoryListBox et TDriveComboBox

ceci sans installation supplémentaire de composants contrairement au composant qui se trouve ici :
http://jansfreeware.com/janfilelistbox.zip qui était proposé par WhiteHippo

Il suffit simplement d'ajouter "CustomFileCtrl" dans les uses
(dans la partie Interface) de l'unité et surtout après FileCtrl (Voir Démo)

Les modifications ne sont pas visible en mode Designe Time
Uniquement en mode Run Time

Je précise également que je n'utilise pas d'ImageList

Source / Exemple :


All in Zip

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.