Discussion :

[Ph. B.]

A ta meilleure convenance bien entendu.

J'ai commencé à regarder, mais un impondérable a retardé mon analyse...

Ça pique un peu les yeux le code...
J'ai déjà vu quelques petites erreurs que j'ai corrigées...
Après le mode de fonctionnement ne me parait pas toujours adéquat, et loin d'être performant. Une bonne partie du code devrait à mon humble avis être revu (les variables globales, le code non ré-entrant, etc)
En zip, l'unité que j'ai modifiée (Gim01.pas), les modifications ou corrections sont préfixées avec // PB et les explications qui vont avec...
Bonne continuation...

[cincap]

Bonjour à toutes et à tous,

@ Ph. B., merci pour cet excellent travail au niveau des corections, ce qui démontre qu'à 60 ans on a encore tout a apprendre.

Après test, en tant que fiche seule, cela fonctionne à l'exécution, les images du dossier s'affichent bien sans utiliser le TopenDialog.

Par contre si j'utilise cette fiche en passant par une principale, les images s'additionnent à chaque click (après le 2ième !).

Si à l'occasion tu trouves le pourquoi, cela m'intèresse.

On va donc en rester la, car c'est déjà super pour les améliorations.

Encore merci.

@+,

Cincap

[Ph. B.]

Bonjour,

Par contre si j'utilise cette fiche en passant par une principale, les images s'additionnent à chaque click (après le 2ième !).

Problème de code non réentrant comme je l'ai expliqué précédemment.

Lors de mes tests hier soir, pour faire vite, j'ai désactivé la 1° fiche qui ne faisait que créer celle qui posait problème...

Si à l'occasion tu trouves le pourquoi, cela m'intèresse.

Je viens de reprendre le code en ce début de soirée, j'ai trouvé...
Le tableau d'image tbpima et plus particulièrement son compteur associé nbima n'était pas correctement réinitialisé.
J'ai corrigé également le traitement de fermeture de la fiche afin d'éviter les fuites mémoire et la procédure de création de paquet d'images.
Tout cela est précédé du commentaire // PB2 dans l'unité présente dans le zip joint.

Cela étant, même si je vais vous paraitre dur, le code aurait besoin d'être sérieusement restructuré... Ce que j'ai fait s'apparente plus à la pose de rustines; et à la longue plus il y a de rustines, plus ça a des chances de fuir.

[cincap]

@ Ph. B., merci pour ton énorme patience, j'ai testé l'unité, cela fonctionne avec 4 images, plus de 5, l'affichage des vignettes se fait sur 4 malgré le compteur qui indique 15.

L'image 0 ne devrait pas exister me semble t'il car si on utilise le Topendialog, la 1ère image est intitulée 1 et les 15 s'affichent.

Ne perds plus ton temps avec cette source d'autant quelle n'est pas de moi et qui date de D3.

@+,

Cincap

[tourlourou]

J'avais jeté un œil au source original dont tu m'avais passé le lien : sans être franchement codé avec les pieds, il n'est pas sûr que les deux mains aient touché le clavier...

Ph. B. a raison de souligner la difficulté d'adapter un code, et la nécessité de structuration : ici, trop de variables globales et de fonctions qui n'utilisent pas de paramètres => le résultat est là : difficile d'avoir une vision d'ensemble des mécanismes et d'être sûr de la bonne logique.

Pour reprendre ceci, il suffit de s'en inspirer. Pour un affichage de vignettes à partir d'une liste, il peut suffire d'une ScrollBox dans laquelle on colle des TImage et TLabels, ou de les disposer sur une fiche : c'est juste un peu de création dynamique avec des calculs d'intervalles; soit des réglages : le code ne demande plus forcément de logique complexe. Si le source fait plus qu'afficher les vignettes, ça demandera plus d'efforts !

[cincap]

Bonsoir à toutes et à tous,

@ tourlourou, d'accord avec toi mais surprenant car avec la source de base et le TopenDialog, aucun problème d'utilisation ni fuite, va savoir.

Ceci étant dit, je ne peux pas diffamer un autre codeur en sachant bien que sa source n'a pas eu des retours négatifs depuis 2008.

Ceci étant dit merci pour les infos supplémentaires.

@+,

Cincap

[cincap]

Bonjour à toutes et à tous, le problème est résolu en utilisant un TFileListBox au lieu de un TListBox sans pour cela ajouter une fonction de recherche.

L'application se comporte normalement à l'exécution à condition naturellement de pointer le dossier ou se trouve les images.

@+,

Cincap