JVGradientProgressbar : ProgressBar qui tourne en continue

Version imprimable

salut a tous

voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 procedure Tmenu.FormCreate(Sender: TObject); begin StatusBar1.ControlStyle := StatusBar1.ControlStyle +[csAcceptsControls]; JvGradientProgressBar1.Parent := StatusBar1; JvGradientProgressBar1.SetBounds(600, 2, 150, 16); JvGradientProgressBar1.BringToFront; end; procedure Tmenu.Timer1Timer(Sender: TObject); begin JvGradientProgressBar1.Position:=JvGradientProgressBar1.Position+5; end;
La question que je pose c'est : je veux que mon progressbar tourne en continue ici il tourne 1 fois et il s'arrete, :oops: moi je veux qu'il tourne en continue :koi: , ma 2eme question je veux faire apparaitre mon texte en couleur dans le statubar et qu'il clignote en même temps, pour que ca fasse jolie.
merci d'avance :oops:

09/12/2005, 15h55
LadyWasky

Première réponse :

Code:

JvGradientProgressBar1.Position:=(JvGradientProgressBar1.Position+5) mod (JvGradientProgressBar1.max+5);

:wink:

Ce qui se passe, c'est que lors de l'incrémentation de ton progressba, tu ne vérifie pas le dépassement de la borne max, du coup il ne se remet pas à 0.
Essaye un truc du type

Code:

1
2
3
4
5
6
7
8
9
10
11
procedure Tmenu.Timer1Timer(Sender: TObject); 
var 
nouvelle_position : integer
begin
nouvelle_position:= JvGradientProgressBar1.Position+5;
if nouvelle_position > JvGradientProgressBar1.max then 
            begin
           JvGradientProgressBar1.Position:=JvGradientProgressBar1.min
           end;
JvGradientProgressBar1.Position:=JvGradientProgressBar1.Position+5; 
end;

09/12/2005, 16h00
LadyWasky

Avec un modulo, ça rend le code plus clair.
09/12/2005, 16h03
Tchaill39

oui modulo c'est bien mais il faut faire attention à la borne mini du progressbar qui n'est pas forcement nulle

Première et deuxième réponse combinées :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure Tmenu.FormCreate(Sender: TObject);
begin
StatusBar1.ControlStyle := StatusBar1.ControlStyle +[csAcceptsControls];
JvGradientProgressBar1.Parent := StatusBar1;
JvGradientProgressBar1.SetBounds(600, 2, 150, 16);
JvGradientProgressBar1.BringToFront;
end; 
 
procedure Tmenu.Timer1Timer(Sender: TObject);
begin
  JvGradientProgressBar1.Position:=(JvGradientProgressBar1.Position+5) mod (JvGradientProgressBar1.max+5);
 
  //si la police de caractère est de la même couleur que le fond (texte invisible)
  if StatusBar1.font.color=StatusBar1.color 
//alors on fait apparaître le texte en rouge
  then  StatusBar1.font.color:=clRed
//sinon, on fait disparaître le texte
  else StatusBar1.font.color:=StatusBar1.color;
  Application.ProcessMessages; //(pour que ça redessine correctement...
end;

09/12/2005, 16h11
LadyWasky
Citation:

Envoyé par Tchaill39

oui modulo c'est bien mais il faut faire attention à la borne mini du progressbar qui n'est pas forcement nulle

Effectivement on supposait que c'était zéro, sinon, on aurait écrit :
Code:

1 2 with JvGradientProgressBar1 do Position:=((Position+5-Min) mod (Max+5-Min))+Min;
10/12/2005, 15h04
kivoch

merci beaucoup pour la réponse

mais si je doit faire bouger mon texte dans le statusbar , de droite a gauche et en continue comment doit je faire :oops:

merci d'avance

L'idée est de mettre ton texte dans une variable string, avec une dizaine de caractères "espaces" supplémentaires ajoutés au début .
A partir de là il suffit de déplacer le premier caractère en fin de chaîne à chaque boucle. Comme ça, le texte semblera bouger de droite à gauche.

Comme ça, par exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
TForm1=Class(TForm)
...
...
...
public
  UnMessage:string;
  ...
end;
 
procedure Tmenu.FormCreate(Sender: TObject);
begin
UnMessage:='                                                                      *** Le message qui apparait dans ta SatusBar ***';
StatusBar1.ControlStyle := StatusBar1.ControlStyle +[csAcceptsControls];
JvGradientProgressBar1.Parent := StatusBar1;
JvGradientProgressBar1.SetBounds(600, 2, 150, 16);
JvGradientProgressBar1.BringToFront;
end;
 
procedure Tmenu.Timer1Timer(Sender: TObject);
begin
  JvGradientProgressBar1.Position:=(JvGradientProgressBar1.Position+5) mod (JvGradientProgressBar1.max+5);
 
  //si la police de caractère est de la même couleur que le fond (texte invisible)
  if StatusBar1.font.color=StatusBar1.color
//alors on fait apparaître le texte en rouge
  then  begin
             StatusBar1.Text:=UnMessage; //Ou StatusBar1.Caption (J'ai pas mon Delphi avec moi, donc c'est écrit à l'aveugle, à vérifier donc) 
             StatusBar1.font.color:=clRed;
             UnMessage:=copy(UnMessage,2,length(UnMessage)-1)+UnMessage[1];
          end;
//sinon, on fait disparaître le texte
  else StatusBar1.font.color:=StatusBar1.color;
  Application.ProcessMessages; //(pour que ça redessine correctement...
end;

voilà le principe.

11/12/2005, 12h25
kivoch

merci beaucoup :lol:

j'y vais de ce pas pour l'intégrer dans mon projet, et encore une fois merci :D