Salut Julien,
dans ce genre de problème tu dois avoir le réflexe suivant :
- Les images ne se chargent pas sans débugger
Donc il faut contrôler si les images se chargent dans les 2 cas avec et sans le débugger
Rajoutes la ligne suivante dans la procedure
liste_langue() (c'est la messagerequester )
Code : Tout sélectionner
Image=LoadImage(#pb_any,appdir$+"langues\"+icone$)
MessageRequester(appdir$+"langues\"+icone$, Str(Image), 16)
If IsImage(Image)
UseImage(Image)
AddGadgetItem(#ListIcon_0,-1,Left(nom_fichier$,Len(nom_fichier$)-4),ImageID())
FreeImage(Image)
EndIf
On voit tout de suite que icone$ ne retourne pas la bonne valeur sans débugger et pourquoi ,
regarde quelques lignes au-dessus dans la même procedure
Code : Tout sélectionner
If ReadFile(1, appdir$+"langues\"+nom_fichier$)
Debug res
Debug ReadString()
icone$=ReadString()
Tu vois, le
debug readstring sera effectué avec le débugger mais ne sera pas exécuté sans le débugger
Bien faire attention avec les
debug
Modifie comme ceci et ça devrait aller
Code : Tout sélectionner
If ReadFile(1, appdir$+"langues\"+nom_fichier$)
Debug res
ReadString()
icone$=ReadString()