Discussion :

[the_clansman]

Salut à tous,

Je cherche à changer l'icône par défaut 'dossier' dans un composant TDirectoryListBox (onglet Win 3.1).

En effet, l'icône du dossier jaune n'est pas des plus sexy et j'aimerais bien le redéfinir.

Si c'est pas possible de le redéfinir dans l'objet TDirectoryListBox, y'aurait-il moyen que je puisse récupérer un composant faisant la même chose où j'aurais la possibilité de redéfinir cette icône ?

Cette solution serait la meilleure car elle me permettrait d'améliorer mes compétences dans l'héritage des objets provenant de TCustomListBox dont dérive TDirectoryListBox.

D'avance, je vous remercie des réponses que vous voudrez bien m'apporter.

A+

Philippe.

[Aka Guymelef]

D'après l'implémentation que j'ai pu voir à l'intérieur de TDirectoryListBox, il est possible de personnaliser les icônes mais seulement héritant un nouveau composant de ce dernier.

Le composant actuel gère en protected trois bitmap ClosedBMP, OpenedBMP, CurrentBMP représentant les différents icônes des dossiers suivant l'état de la liste. Ces objets sont créés et leur image chargé dans la méthode ReadBitmaps qui en protected et virtual.

Dans le nouveau composant hérité il suffit juste de redéfinir ReadBitmaps, de créer les trois objets TBitmat (ou appeler inherited) et changer l'image affectée.

[the_clansman]

Cool !

Merci beaucoup de cette réponse...

Peux tu me dire comment tu as fait pour accéder aux informations 'protected' de ce composant ? (les 3 bitmaps ClosedBMP, OpenedBMP, CurrentBMP)

On accéder à ces informations par Delphi ?

Parce que si je tape sur F1, je n'arrive pas à accéder à ces informations...

Même question pour la méthode ReadBitmaps et le type des 3 Bitmap (TBitmap) : ce genre d'infos ne peut s'inventer

En clair, plutôt qu'une solution clé en main, j'aimerais obtenir la démarche qui mène à la solution histoire que je me couche moins bête ce soir

Merci en tous cas de ces précieuses informations.

A+

Philippe.

[Aka Guymelef]

Ben pour ça je dirais que ça dépend fortement si tu possèdes Delphi en version personnelle ou professionnelle.

Dans la première tu n'as pas accès aux sources donc rien à faire (ou alors te baser sur l'aide si elle est suffisamment détaillée). Par contre dans la seconde tu as accès aux sources donc un simple CTRL + Clic sur le nom de la classe et hop il t'emmènes à la déclaration et à l'implémentation de la classe.

Après j'ai cherché au plus bas niveau c'est à dire le dessin du composant pour trouvé où était récupéré l'image, puis à partir de là j'ai cherché où était renseigné cette image et voila le résultat de mes investigations.

[the_clansman]

En voilà une info qu'elle est bonne !

Merci beaucoup de ces précisions...

Je viens de faire Ctrl+Clic sur ce composant sous Delphi 7 Entreprise mais rien ne se passe...

Aurais-je une installation pas assez complète pour avoir le détail de ce composant, ou ai-je besoin d'une autre version pour ce faire ?

Peux tu me renseigner ?

Merci en tous cas de toutes ces précisions.

Philippe.

[Cl@udius]

Salut

Je viens de faire Ctrl+Clic sur ce composant sous Delphi 7 Entreprise mais rien ne se passe...

Si tu as fais un Ctrl+Click sur le composant dans la palette effectivement cela ne donne rien. C'est au niveau de l'unité .pas que ceci est fonctionnel.

Pose un composant sur une fiche, et depuis le code fais un Ctrl+Click sur le nom de la classe TDirectoryListBox. Cela va ouvrir l'unité filectrl.pas et pointer sur la classe en question.

@+ Claudius

[the_clansman]

Salut,

En fait, j'avais pas tapé ctrl+clic au niveau de la palette, mais j'avais tapé sur le fichier .pas, au beau milieu de nulle part 'TDirectoryListBox'.

Je voyais bien que le nom se surlignait, mais quand je cliquais dessus, rien ne se passait.

Je supposais donc que ça ne marchait pas...

C'est en faisant la manip de Claudius que je me suis rendu compte qu'il fallait cliquer sur le type du composant lors de la déclaration... et là, nickel : le source est apparu !

Merci donc à tous : je crois que ma requête est résolue... Il ne me reste plus qu'à bosser pour dessiner ce que je veux à la place des icônes standard.

Bonne continuation.

Philippe.