[ASTUCE] COMMENT AFFICHER LES ICÔNES DES FICHIERS LISTÉS DANS UN TFILELISBOX

Commentaire de cincap le 09/01/2007 10:03:31

Mon premier message à l'air d'avoir été effacé.

Bonjour,

Bravo pour ce super code qui répond au challenge lancé il y a quelque temps.

Cela ne m'étonne pas que ce soit l'ami Cirec à l'origine de cette réponse, comme quoi.............

@+,

Cincap

Commentaire de cincap le 09/01/2007 22:02:34

Bonsoir,

@ DorotheeJ, pourquoi après des messages d'insistance, l'ami DRJEROME n'a jamais répondu, n'a jamais voulu montrer même un bout de code de son astuce.

Je pense tout simplement que si il avait su faire cette application sans composant externe, il n'aurait pas hésité à le placer sur le forum, car vu la difficulté, personne sur les forums n'a su répondre à ce challenge.

Nous a t'il tous bluffé ??????????????????????

L'important c'est que l'ami CIREC n'a pas hésité à en faire profiter tout le monde et je l'en félicite.

@+,

Cincap

Commentaire de japee le 09/01/2007 23:22:35 administrateur CS

Bonsoir,

On fait confiance à DorotheeJ pour mettre DRJerome au courant des dernières évolutions du débat, pas vrai ? ;-)

Cirec > Simplement bravo et merci.
- Bravo pour l'intérêt technique du code. Je n'ai pas encore eu le temps de me pencher sur ses finesses, mais je compte bien le faire, tu peux me croire.
- Merci de mettre à la disposition des pauvres malheureux qui codent encore sous D4 cette belle TFileListBox qui agrémentera leurs tristes interfaces (ah, les beaux ShellListView et ShellListView des versions ultérieures...) :-)

A +

Commentaire de DRJEROME le 10/01/2007 00:21:23

PS: drjerome = JROD

Commentaire de DRJEROME le 10/01/2007 09:00:49

Salut,

je parlais du forum ou le débat avait débuté avec "duguesclin" (ce n'était pas dans le présent forum)

pour le côté désagréable c'était : http://www.delphifr.com/infomsg_TFILELISTBOX_867341.aspx#7

tu disais : "Pas de réponse, pourtant ce message s'adressait principalement à DRJEROME qui filtre ses aides et ses explications alors que les amis CIREC et WHITEHIPPO entres autres n'hésites pas à trouver et à proposer à tous, une solution exploitable."

c'était maladroit, je ne suis pas toujours à toute heure sur tous les forums, si le message m'était adressé, il fallait mettre dans le titre : "@ drjerome", ça aurait évité les vexations inutiles, je ne regarde pas tous les messages du forum, quand je suis tombé là-dessus ça m'a surpris. Je pense que d'autres ne t'auraient pas fait de cadeau... Je suis resté correct cependant.

bref, comme tu dis, on ne va pas polémiquer.

regarde les différentes méthodes et construis-toi la tienne personnalisée

Bonne prog

Drjerome

Commentaire de cincap le 10/01/2007 09:16:46

Bonjour JROD,

Tu as raison, cette annotation est relative au "sans réponse à mon message privé concernant ton exe" donc pas de problème avec ce qui vient de se passer et sans rancune.

Comme confirmé, je programme sous D6 pour mon usage personnel et comme déjà dit, je suis plus attiré par la difficulté du code concernant un composant comme dans ce cas le TfileListBox et de constater jusqu'ou on peut aller pour le forcer à d'autres propriétés, car je ne pense pas que la propriété canvas de ce composant existe.

Bravo à JROD et à CIREC.

@+,

Cincap

Commentaire de DRJEROME le 10/01/2007 09:53:01

oups j'ai oublié de répondre au dernier point

j'ai utilisé le canvas du TfileListBox dans ma méthode

Commentaire de cirec le 10/01/2007 14:53:40 administrateur CS

Bon alors il faut quand même que je réponde ... lol

Merci à vous pour vos appréciations et remarques.

ensuite :

Je n'utilise pas du tout la même méthode que DrJérome que ce soit pour récupérer ou pour afficher les Icônes dans le FileLisBox (avec les mêmes résultats)

La ou il pourrait y avoir similitude c'est dans le TDirectoryListBox et TDriveComboBox
Mais c'est déjà hors "challenge" ... lol

Ensuite sur des gros répertoires ta version est effectivement plus rapide que la mienne mais de loin pas aussi fluide ...

Pourquoi ?

Tout simplement parce que je charge une fois pour toute les Icônes de tout le répertoire en une fois ... Alors que toi tu recharges l'icône a chaque appel de la Méthode : DrawItem

Donc si tu charges le répertoire Systèm32 avec ta méthode le chargement initial est plus rapide certes mais la navigation dans le répertoire est ralenti pour cause de chargement d'icônes répétés ce qui chez moi ne se fait pas et du coup l'affichage est beaucoup plus rapide et fluide (avec l'ascenseur vertical)

Je vais peut être réfléchir à une méthode intermédiaire:
Entre le chargement complet et partiel bien sûr sans re-chargement à chaque affichage :) (à voir)


Autre chose : vous pouvez mettre deux ou trois TFileListBox sur une même fiche et tout fonctionne parfaitement

Et pour ceux qui ne l'aurait pas encore remarqué vous pouvez cliquer sur un Fichier de la FileListBox pour voir s'afficher des informations supplémentaires (à vous de les compléter si vous en voulez plus)

Sinon moi aussi je code sous D4 Pro
à ce propos:
@Japee : si ça t'intéresse j'ai fait un XPMan pour D4
ce qui est plus facile d'utilisation que les autres méthodes :)

ps : je confirme pour HALFTONE de DrJérome c'est grâce à lui que je connais cette astuce

et pour répondre à Cincap la propriété Canvas existe belle et bien dans TFileListBox mais elle n'est pas public (pas accessible) pour qu'elle le devienne tu dois dériver la Class TFileListBox comme nous l'avons fait DrJérome et moi même. Mais l'existence d'un Canvas n'est pas obligatoire pour pouvoir dessiner sur un composant mais c'est un autre débat ...

@+
Cirec

Commentaire de cincap le 10/01/2007 15:54:38

Bonjour,

@ Cirec, j'avais remarqué ce petit plus lors du click sur le fichier, fallait y penser !

Et j'avais bien compris que la propriété canvas n'était pas public.

Encore bravo à vous deux pour cet excellent code.

@+,

Cincap

Commentaire de DRJEROME le 10/01/2007 21:17:43

(ps : j'ai 2118 fichiers dans system32 ça a l'air ok)

Commentaire de DRJEROME le 11/01/2007 07:56:15

Salut,

merci pour avoir testé ;)

j'ai trouvé l'amélioration pour la fluidité

je n'ai pas Delphi ici.

Je vous donnerai le code à tester ce soir

drjerome

A+

Commentaire de DRJEROME le 11/01/2007 10:43:50

en fait dans mon code les icones sont configurables automatiquement pour avoir toutes les tailles (proportionnellement à TfileListbox.itemHeight)

drjerome JROD

Commentaire de cincap le 12/01/2007 09:37:08

Bonjour,

@ Japee, tu es certain que ce lien

http://www.phidels.com/php/forum/
forum.php3?forumtable=posts&mode=showpost&postid=112071,

corresponde à ton message au sujet de XPman ?

Pour le Hajftone, Je connaissai aussi Jean-Yves Qienec qui était aussi un crack dans la manipulation des bmp et qui a laissé assez bien de sources en ce sens.

@+,

Cincap

Commentaire de cirec le 12/01/2007 10:21:05 administrateur CS

Je pense que Japee c'est un peut trompé dans le lien :
http://www.delphifr.com/codes/UTILISER-STYLE-XP-D1-D7-ASTUCE_20810.aspx

Sinon il n'a rien de révolutionnaire en soit mais il offre un avantage (pour moi) c'est d'avoir un composant XPManifest sous D4 ce qui donne un code qui est compatible avec D7 et plus.

ps : Le composant de Delphi ne fait rien d'autre que l'astuce de Costello ... le seul avantage c'est d'avoir un code compatible peut importe la version de Delphi.

@+
Cirec

Commentaire de DRJEROME le 13/01/2007 07:48:25

Hello !

j'ai essayé de charger en mémoire les icônes (par exemple pour "system32") c'est lent à charger c'est rapide à scroler...

j'ai essayé des méthodes intermédiares non concluantes pour le moment (un coup c'est rapide un coup ça rame)

tu as du nouveau Cirec sur les méthodes intermédiaires?

Commentaire de dugueclin le 10/02/2007 14:22:32

Bonjour à tous,
Désolé de répondre aussi tardivement.

Merci Cirec pour ton formidable code!!! j'ai qu'une chose à dire: Félicitation!!!

je l'utilise dans un de mes project.L'affichage des icônes est plus jolis.
Vivement la mise à jour !!!.

par contre,j'utilise la procédure suivante:
// je liste des classeurs excels.Vous la connaissez tous je pense...

Trouve:=FindFirst(('C:\Mes documents')+'*.xls*',faAnyFile, Fichiers);
   While Trouve=0 do
    begin
      Filename:=Fichiers.Name;
      Trouve:=FindNext(Fichiers);
      ExtPart:=ExtractFileExt(FileName);
      LgExt:=Length(ExtPart);
      Delete(FileName, Length(FileName)-LgExt+1,LgExt);
      Result:=(FileName);
      FileListBox1.Items.Add(Result);
    end;
      begin
        FindClose(Fichiers);
      end;

mais le problème c'est que, ben ça marche plus et je n'ai pas réussi à déclarer le repertoire ainsi que l'extention ".xls" dans le fichier CustomFileCtrl.pas.

Quelqu'un pourrait-il me dire comment faire??.dans le TJanFileListBox j'avais réussi à le modifier, mais là, avec le nouveau code c'est plus compliqué pour moi.
En vous remercient par avance et en re-félicitant l'auteur,
Sincères salutations et bon codding à tous

Commentaire de cirec le 03/07/2007 13:37:53 administrateur CS

Tu me déçois un peut là ....
Si tu avais pris le temps (2 secondes)  de mettre un point d'arrêt dans l'unité concernée tu aurais pu remarquer que l'erreur vient de borland ... et plus exactement du TFileListBox.

Quand aucune sélection n'est faite ou que la liste est vide, ItemIndex renvoi   -1
Jusque là rien d'anormal ...
Mais si la propriété MultiSelect est à True  ItemIndex renvoi 0  et ce même si la liste est vide

Il suffit donc de remplacer dans "procedure TFileListBox.CMHintShow"
Ceci : If ItemIndex > -1 Then

Par  : If (ItemIndex > -1) and (ItemIndex < Count) Then

et ça fonctionne ;-)