Discussion :

[kivoch]

salut a tous

voici mon code :

Code :

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

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, moi je veux qu'il tourne en continue , 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

[LadyWasky]

Première réponse :

Code :

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

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

[Tchaill39]

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 :

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

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;

[LadyWasky]

Avec un modulo, ça rend le code plus clair.

[Tchaill39]

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

[LadyWasky]

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

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
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;

[LadyWasky]

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 :

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

1
2
with JvGradientProgressBar1 do
  Position:=((Position+5-Min) mod (Max+5-Min))+Min;

[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

merci d'avance

[LadyWasky]

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 :

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
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.

[kivoch]

merci beaucoup

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