LINKODOTRON : PETITE BARRE DE RACCOURCIS
lumesh
Messages postés
564
Date d'inscription
jeudi 21 février 2002
Statut
Membre
Dernière intervention
7 novembre 2008
-
2 mars 2002 à 23:26
fabiin Messages postés 329 Date d'inscription mercredi 4 avril 2001 Statut Membre Dernière intervention 8 décembre 2009 - 12 janv. 2004 à 20:46
fabiin Messages postés 329 Date d'inscription mercredi 4 avril 2001 Statut Membre Dernière intervention 8 décembre 2009 - 12 janv. 2004 à 20:46
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/2734-linkodotron-petite-barre-de-raccourcis
https://codes-sources.commentcamarche.net/source/2734-linkodotron-petite-barre-de-raccourcis
12 janv. 2004 à 20:46
merci à tous le monde pour vos commentaires encouragant :) !!!
Il y a de fortes chances que je le reprogramme en delphi ;)
merci
@+
Fabs
12 janv. 2004 à 20:28
Que ce soit sorti de ton imagination ou que tu aies trouvé ça ailleurs, un grand bravo quand même car je torture mon petit esprit et le web depuis un moment pour trouver une solution à l'un de mes problèmes et tu me l'apportes sur un plateau.
Ceux qui critiques, s'ils savent tout, grand bien leur fasse (ils pourraient d'ailleurs en faire profiter la communauté) quant à moi, je te remercie et .... m... je ne peux pas mettre plus de 10/10.
Cordialement
CanisLupus
12 déc. 2003 à 00:43
12 déc. 2003 à 00:41
J'ai jeté un oeil... je vais juste me le personnalier un peu.
Ma note: 10, c'est vraiment impressionnant, tu maîtrises vraiment tout les trucs qui font qu'une appli est vraiment bonne. Les commentaires sont tout juste suffisant, surtout vu la quantité de code.
Par contre j'ai rencontré quelques bugs (sous XP). Certains raccourcis passent mal. Après analyse, c'est le ResolveWindowsShortcut qui passe mal. Voici le code rajouté dans le AjoutBut pour corriger ça.
LeBut.Chemin = ResolveWindowsShortcut(LeBut.Chemin)
If InStr(LeBut.Chemin, ":") <> 2 Then
If InStr(LeBut.Chemin, ":") = Len(LeBut.Chemin) - 1 Then
x = Mid(LeBut.Chemin, InStr(LeBut.Chemin, ":") - 1, 1) & ":"
xx = Mid(LeBut.Chemin, 1, Len(LeBut.Chemin) - 3)
LeBut.Chemin = x & xx
Else
x = Mid(LeBut.Chemin, InStr(LeBut.Chemin, ":") - 1, 1) & ":"
xx = Mid(LeBut.Chemin, 1, InStr(LeBut.Chemin, ":") - 2)
xxx = Mid(LeBut.Chemin, InStr(LeBut.Chemin, ":") + 2)
LeBut.Chemin = x & xxx & xx
End If
End If
J'ai pas fini de regarder mais c'est vraiment génial tout ça :) . Pour moi il a tellement de connaissances dedans que je mettrais ça au moins en niveau 2. M'enfin c'est surement moi qui suis pas très bon non plus ;)
Les autres trucs qui pourraient être cool (en tout cas je vais tenter de me le faire):
- proposer les 2 autres sens pour développer la fenetre (vers le haut et vers la gauche)
- une option sur la vitesse de fermeture de la fenetre (c réglé déjà)
- vérifier que ça fonctionne en multiples sessions (ou au moins sous plusieurs nom d'exe): à placer à différents endroits sur le bureau. Le but: faire des regroupements d'icônes, en rajoutant un nom sur la barre visible.
Ouala ouala j'ai fini ^^
25 avril 2003 à 21:19
Ma note 10/10
Vraiement excellent, je t'encourage même à l'améliorer tu pourrais
surement y pondre un bon petit shareware ou freewares (c'est le choix tu concepteur).
Sinon, je remerciement aussi les personnes qui note vraiment les sources qui teste et donne vraiment leur avis, sans ne pense qu'a critiquer (ceux là, peuvent changer de site, il ne sont pas interressant).
@+ et continue.
3 mars 2002 à 19:58
3 mars 2002 à 13:04
Excellente source !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
3 mars 2002 à 10:18
Merci
3 mars 2002 à 02:24
2 mars 2002 à 23:26