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
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.