[ASTUCE] COMMENT OBTENIR UN HINT PAR CELLULE AVEC UN TSTRINGGRID

Commentaire de japee le 01/07/2007 13:05:13 administrateur CS

Efficace, ce code !
J'ai eu beaucoup d'intérêt à l'étudier.

Une suggestion : je sais bien qu'on est tous des surdoués sur delphifr, mais je pense sincèrement que tu peux mettre le niveau à initié, ta modestie dût-elle en souffrir... ^^

Une autre suggestion concernant le code.
Ça se discute, mais il me semble qu'on gagnerait à ce que le temps d'apparition du hint entre chaque cellule soit le même que le temps d'apparition du premier hint en arrivant sur la grille.
Bref, l'explication pouvant sembler confuse, il suffit d'ajouter cette ligne dans "TStringGrid.CMHintShow" (au début du bloc d'instructions par exemple) :
with Application do HintShortPause := HintPause;
(pour pinailler, on stocke la valeur trouvée de HintShortPause qui est en principe 0 et on la restaure, à la fin).

Qu'en penses-tu ?

Commentaire de cincap le 02/07/2007 14:12:42

Bonjour à tous,

@ cirec, j'espère que tu vas bien, je constate en utilisant ton unité (CustomFileCtrl.pas ou autre), que si avec le composant "TfileListbox", sa propriété "Multiselect" est à true, on obtient une erreur en le survolant avec la souris dans le cas ou le mask de ce composant affiche une extension définie ex: *.avi et que l'on se rend dans un répertoire ou dossier ou il n'y a pas ces fichiers avec cette extension.

Peut être le problème se répete aussi sur cette unité d'ou ce message.

@+,

Cincap

Commentaire de cirec le 03/07/2007 13:40:05 administrateur CS

Le problème que tu soulèves vient d'une erreur du TFileListBox de Borland et ne concerne donc pas cette source ...

La réponse à ton problème se trouve ici :
http://www.delphifr.com/codes/ASTUCE-COMMENT-AFFICHER-ICONES-FICHIERS-LISTES-DANS-TFILELISBOX_41025.aspx

Commentaire de bitben le 18/07/2008 10:33:55

un trés grand merci pour ce petit bout de code d'une trés grande utilité. bravo.