Discussion :

[AgriFlash]

Bonjour à tous,

J'aimerai savoir si un composant existe. Celui d'une barre de chargement mais non pas pour indiquer un % mais simplement des petits carrés qui défilent pour faire patienter. Comme au démmarage de Windows XP par exemple.

Si aucun composant n'existe pour faire ceci, comment faire ?

Merci d'avance,
Tom.

[kevinou55]

Salut
tu peux utiliser le composant ProgressBar et jouer avec la propriété Position pour faire varier tes "carrés"

[AgriFlash]

Non car si je change la valeur Position, ça ne défile pas mais ça remplis la barre !

[kevinou55]

a oui desolé je n'avais pas compris ton probleme.
il te suffit de modifier la propriété "Left" d'une barre que tu fait défiler.
C'est bien ca que tu veux faire non ?? c'est la barre toute entiere qui doit traverser ton ecran... ??

[AgriFlash]

En fait je voudrai pouvoir faire ceci, mais la c'est en gif :

[Sub0]

http://sub0.developpez.com/delphi/opengif.zip

Non, non, en fait, c'est lourd d'utiliser un gif juste pour ça.
Ya plus simple avec 2 Timage et un Timer...

[kevinou55]

oui le mieux c'est de prendre une image et de la faire defiler au fur et a mesure des ton execution. Mais je ne connais pas de composant.
Mais la bidouille ca peut aider aussi

[Gilbert Geyer]

Salut,

Une autre piste à creuser est de voir s'il n'y a pas la possibilité d'accélérer suffisamment le chargement pour éviter d'avoir à "faire patienter" (c'est agaçant les barres et autres trucs qui font patienter, et celle qui m'horripile le plus c'est celle de l'écran bleu.)

A+

[Sub0]

A mon avis, il s'agit ici d'un téléchargement des données d'un site, mais on ne connait pas la taille finale et dans ce cas, ya-t-il vraiment pas moyen de l'obtenir et d'utiliser une ProgressBar avec affichage des % ?

Sinon, je ne vois pas plus simple qu'une TImage pour l'image de fond une autre TImage pour le curseur, le tout contenu dans un TPanel (pour éviter que le curseur déborde) et un Timer. De tête ça donne :

Code :

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

1
2
3
4
5
6
7
8
9
 
Timer1.Enabled := True; 
Panel1.Visible := True;
Repeat
...
Application.ProcessMessages;
Until(Chargement_termine);
Panel1.Visible := False;
Timer1.Enabled := False;

Code :

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

1
2
3
4
5
6
 
Procedure Form1.Timer1Timer(Sender: TObject);
Begin
  Image2.Left:= Image2.Left + 20; // pixels par itération
  If (Image2.Left >= Image1.Width) Image2.Left := -Image1.Width;
End;

Ensuite, ajuster le nombre de pixel à ajouter à chaque itération et un interval de timer maximal pour obtenir une animation assez fluide sans appeller le timer trop souvent...

[AgriFlash]

Impeccable sub0, ca marche

Merci beaucoup