Discussion :

[cincap]

Bonsoir,

Question, y aurait t'il un moyen d'utiliser le comportement d'un Tgauge avec un TProgressBar.

Car dans mes composants, je possède des compos TProgressBar plus jolis que celui par défaut de Delphi.

Merci de votre attention.

@+,

Cincap

[sat83]

y aurait t'il un moyen d'utiliser le comportement d'un Tgauge avec un TProgressBar

De quel comportement parle-tu?

[cincap]

Bonjour à toutes et à tous,

@ sat83, merci de ta réponse, J'utilise un Tgauge (P1) pour traiter une liste de fichiers.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Var
x : integer;
Begin
x := 0;
 p1.Maxvalue:=listeimg.Count -1;
-----
//Traitements
try
   for x:= 0 to listeimg.Count -1 do
   begin
     p1.Progress := x;
---
Finally
p1.Progress:=0;

J'ai essayé sans résultat avec un TProgressBar, il faut peut être l'alimenter par un TTimer ?

@+,

Cincap

[sat83]

Il suffit de remplacer les propriétés Progress par Position et MinValue/MaxValue par Min/Max.

Mais tu peux utiliser un TProgressBar comme tu utilise un TGauge.

[cincap]

@sat83, naturellement, c'est ce que j'avais fait, le TprogressBar bouge à peine !

Donc il y a forcément une autre raison si c'est deux composants existent.

@+,

Cincap

[sat83]

le TprogressBar bouge à peine

Peut etre est-ce un problème de rafraichissement, dans ce cas là tu peux ajouter un Application.Processmessage dans ta boucle.

Sinon les deux composants ont le même comportement.

[cincap]

@sat83, comment faire, puisque je poste après avoir longuement essayé.

Je cherche encore.

@+,

Cincap

[cincap]

@sat83, ok c'est mieux ainsi avec Application.Processmessage dans ma boucle.

Je viens de tester, j'ai juste du ajouter +1 au code pour que le TprogressBar aille jusqu'au bout.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Var
x : integer;
Begin
x := 0;
 p1.Maximum:=listeimg.Count -1;
-----
//Traitements
try
   for x:= 0 to listeimg.Count -1 do
   begin
    Application.ProcessMessages;
         p1.Position := x+1;

         case

------
end;
     p1.Position := 0;
Finally

Merci à toi.

@+,

Cincap