Discussion :

[Duan]

Cela peut sembler drôle mais comme le titre le mentionne, j'aimerais que l'affichage des images dont le nom est contenu dans un TListbox soit ralenti afin de créer un effet semblable à quant on feuillette une revue très rapidement. Jusqu'à présent, j'ai essayé avec sleep et timer sans résultat; Tout ce passe si vite que je ne vois que la dernière image de ma liste. Voici le code de base:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
  Nb2:=Listbox2.items.count;
   for n2:=0 to Nb2-1 do
   begin
     image2.Picture.LoadFromFile(Listbox2.items[n2]);
     LabelNomP2.Caption:=ExtractFileName(Listbox2.items[n2]);
    ..... suite de la procédure
  end;

Si les images pouvaient s'afficher successivement environ tout les 500 ms, ca devrait être parfait. Un sleep la dedans me gèle mon application; j'ai mais image2.picture...... dans le timer et on me retourne indice hors limite, je tourne en rond depuis 2 jours.

Merci de votre aide !

Duan

[Sub0]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
  Nb2 := Listbox2.Items.Count;
  If (Nb2 > 0) Then
    For n2 := 0 To Nb2-1 Do
    Begin
      Image2.Picture.LoadFromFile(Listbox2.items[n2]);
      LabelNomP2.Caption := ExtractFileName(Listbox2.items[n2]);
 
      Image2.Refresh;
      Application.ProcessMessages;
      Sleep(500);
    End;

Image2.Refresh n'est peut-être pas nécessaire, à vérifier. Tu remarqueras que j'ai ajouté une condition suplémentaire avant de lancer la boucle... Tu devrais aussi mettre le chargement de l'image entre Try et Except pour gérer les éventuelles erreurs, par exemple, si le fichier n'existe pas ou si il n'est pas une image valide.

???

[sjrd]

Tu remarqueras que j'ai ajouté une condition suplémentaire avant de lancer la boucle...

... Qui n'est d'ailleurs pas nécessaire Je faisais aussi au début, puis j'ai compris que si on faisait un for 0 to -1 ça ne posait aucun problème : la boucle ne s'exécute pas.

[Pedro]

... Qui n'est d'ailleurs pas nécessaire Je faisais aussi au début, puis j'ai compris que si on faisait un for 0 to -1 ça ne posait aucun problème : la boucle ne s'exécute pas.

Sauf que là, en cas de liste vide, NB2 aurai renvoyé 0 Ce qui aurait déclenché la boucle pour une valeur de n2: la valeur de trop

[Duan]

Merci à vous tous pour vos réponses, cela fonctionne à merveille. Après quelques essais, j'ai mis le sleep à 200 ce qui permet de voir que le prog fait le tour des fichier présents sans passer trop de temps dessus.

J'ai appliqué les suggestions de Sub0 car il est vrai que l'on est jamais assez prudent.

Encore une fois merci et à la prochaine.

Duan

[TicTacToe]

+1 Sjrd
la boucle n'est pas exécutée de 0 à -1
De plus cela fait une condition en moins (certe temps perdu négligeable), mais allège un peu le code visuellement.
Donc c'est une précaution totalement inutile de mettre le 'if' en tete de boucle.

@Pedro
si nb2 vaut 0, la boucle va bien de 0 à -1 car l'indice supérieur est (nb2-1) et n'est donc pas exécutée
(tu m'en veux pas hein hein )