Discussion :

[colorid]

Bonjour,

J'initialise la progressbar telle que:

Code :

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

1
2
3
4
 
  ProgressBar1.Position:= 0;
  ProgressBar1.Min:= 0;
  ProgressBar1.Max:= MaxiValue;

Je souhaite mettre à jour la Progressbar dans une boucle telle que :

Code :

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

1
2
3
4
5
6
7
 
for k:=0 to MaxiValue-1 do
begin
  // Fait quelque chose de long
  ProgressBar1.Position:= k;
  ProgressBar1.Repaint;
end;

Problème : Windows ne met pas la progressbar à jour en temps réel
Comment faire ?
Quelqu'un connait-il la solution ?

[Cl@udius]

Salut

Essaye comme ceci:

Code :

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

1
2
3
4
5
6
 
for k:=0 to MaxiValue-1 do
begin
  // Fait quelque chose de long
  ProgressBar1.StepIt;
end;

@+ Claudius

[ShaiLeTroll]

tu peux utiliser Refresh au lieu de Repaint ..., il faut savoir qu'il faut laisser à ton programme le temps de redessiner la barre, ou de gérer le message lié au dessin et autoriser windows de dessiner ... donc soit tu appele Refresh qui va interrompre ton traitement pour dessiner, soit tu appele Application.ProcessMessages qui va gérer les messages de l'application comme le dessinement global de la fenêtre (évite la fenêtre blanche) ainsi que la ProgressBar, mais aussi la souris, le click sur un bouton, il faut donc être conscient que cela ralenti le traitement et qu'il soit nécessaire de protéger ses boutons qui pourrait lancer un autre traitement contradictoire au premier ...

[Cl@udius]

C'est pour cela que je préconise l'utilisation de la méthode StepIt qui elle se charge de faire un Refresh sur le contrôle.

@+

[colorid]

La progressbar se remplit au 3/4 seulement !

[Cl@udius]

Quelle la valeur de Step ? Elle doit être à 1 d'après ton code.

[ShaiLeTroll]

C'est pour cela que je préconise l'utilisation de la méthode StepIt qui elle se charge de faire un Refresh sur le contrôle.

Ah !
J'utilise StepIt aussi parce que c'est plus joli que Postion := Position + 1

Sinon, StepIt ne fait pas de Refresh, elle n'envoi qu'un message à la barre, peut-être que PBM_STEPIT est plus efficacement traîté par windows que PBM_SETPOS

[colorid]

J'ai mis step à 1 mais ce n'est plus au 3/4 que le progressbar se remplit mais à 10%. pourtant la valeur k n'est pas réinitilalisée dans la boucle