Progressbar défilanteRésolu

Question

bonjour à tous :)
En ce dimanche j'ai une petite question.

Ne pouvant mesurer la progression d'un scan, je voudrais mettre une barre de progression dont son contenu défile en continu sans marquer l'état de progression.
Un comme la fonction barreprogression.pulse() en Python.


J'avais vu une source là-dessus mais c'était très lourd pour si peu de chose.
Merci de votre aide.

Bacterius · Accepted Answer

Et voilà.

Tu as Marquee, qui définit si la progressbar est indéfinie ou définie (Marquee = False, comportement standard), Active qui dit si la progressbar doit défiler indéfiniment, et Speed qui donne la vitesse. Met l'unité en dernier dans ton projet (vérifie qu'il n'y ait pas une autre unité qui se soit placée après).

Remarque : les propriétés ne seront pas dans l'inspecteur d'objets, il te faut les appeller depuis le code.

Note : j'ai pas tellement testé mon composant surchargé, à toi de voir si il fonctionne et à le perfectionner.

Cordialement, Bacterius !

cs_yanb · Answer

Salut,
Cirec à dit "tout simplement"
donc :
uses ... 
MarqueeProgressBar;
...
var
  Form1 : TForm1;
  Bar   : TMarqueeProgressBar;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
    Bar:=TMarqueeProgressBar.Create(Self);
    Bar.Parent:=Self;
    Bar.Active:=True;
    Bar.AnimationSpeed:=10;// Exemple: 1 => rapide 100 => lent
end;

@+yanb

Cirec · Answer

bon 
1°) quelle OS utilises-tu ?
2°) il faut absolument déposer un TXPMan sur la fiche pour que ça fonctionne


[hr]@+Cirec
[hr]

cs_JackNUMBER · Answer

Merci yanb, je test ça ce soir.
@ cirec > WinXP et le TXPMan était bien présent.

Bacterius · Answer

Salut Jacknumber,
si tu as Windows XP ou supérieur, il te faut utiliser les API Windows en surchargeant la propriété CreateParams de ton ProgressBar. Il faut lui ajouter le flag PBM_SETMARQUEE ou un truc du genre. Ensuite tu envoies des messages à ta progressbar avec SendMessage pour changer la vitesse de défilement, pour l'activer et l'arrêter, ... Je te conseille de faire un composant surchargé de TProgressBar sinon tu n'y arriveras pas.

Regarde ce lien : http://msdn.microsoft.com/en-us/library/bb760842%28VS.85%29.aspx

Cordialement, Bacterius !

[*]

Bacterius · Answer

Il me semble que j'avais déposé une source qui contenait l'unité MarqueeBar.pas, qui surchargeait le TProgressBar en ajoutant des propriétés. Si tu retrouves ce fichier, il te faut le mettre EN DERNIER dans la clause uses de ta fiche, et tu as alors des propriétés nouvelles sur le TProgressBar (Active ou Marquee, je sais plus, et si tu as une version récente de l'unité il y aura ptet Speed).



Cordialement, Bacterius !

Caribensila · Answer

... Et vous trouvez que le ProgressBar est fait pour cet usage, vous ? 

A ce train, on pourrait p'têt aussi en faire une horloge comtoise

Bacterius · Answer

Ben oui moi je trouve ça normal ??
C'est juste une barre défilante indéfinie, qui montre qu'une tâche est en cours, mais qu'on n'a pas d'indication sur son état. Ca me semble une utilisation tout à fait rationnelle ...

Cordialement, Bacterius !

Caribensila · Answer

Au niveau du concept et de l'utilisateur final, tu as raison, Bacterius.

Mais au niveau pragmatique, pour le développeur en design-time, ça ne le fait pas, je trouve. C'est "lourd" à tout point de vue pour un résultat qui, somme toute, peut être obtenu bien plus simplement.

Pour moi, c'est un peu comme si, sur une voiture, on surchargeait un compteur de vitesse pour indiquer que le moteur est démarré.

cs_JackNUMBER · Answer

@ yanb > ton code ne marche pas.
MarqueeProgressBar n'est même pas reconnu dans uses.

Cirec · Answer

[quote=Caribensila]C'est "lourd" à tout point de vue pour un résultat qui, somme toute, peut être obtenu bien plus simplement. /quoteil y a rien de lourd dans ce code !!!
c'est prévu par MS depuis XPSP2 
on ne fait qu'utiliser l'existant et avec beaucoup de facilité 

d'ailleurs dans ta dernière version de Delphi c'est inclus tu peux directement utiliser l'option "Marquee" depuis l'inspecteur d'objets.

[quote=JackNUMBER]MarqueeProgressBar n'est même pas reconnu dans uses./quotebon faudrait voir à fournir un petit effort quand même ... 

le lien que je t'ai donné mène sur le code d'une unité "MarqueeProgressBar" 
à toi de recopier ce code et de l'enregistrer sous "MarqueeProgressBar.pas" et seulement après avoir fait cela ... tu peux tester le code yanb !!!


[hr]@+Cirec
[hr]

Caribensila · Answer

C'est pas le code qui est lourd, mon cher Cirec. 
C'est sans doute moi qui veux imposer mon point de vue!   

Mais enfin, devoir ajouter plusieurs unités au projet afin de créer un p'tit bitoniau qui tourne en rond pour indiquer qu'une action est en cours... c'est pas non plus ce que j'appelle de la légèreté.


Et 'faut quand même pas oublier que l'utilisateur final se fout de la version de Delphi utilisée pour faire son logiciel. 
Et que, tant que ça ne se sent pas, il se contrefout du talent du programmeur.

Francky23012301 · Answer

Mais enfin, devoir ajouter plusieurs unités au projet afin de créer un p'tit bitoniau qui tourne en rond pour indiquer qu'une action est en cours... c'est pas non plus ce que j'appelle de la légèreté.



Oh bas faire joujou avec ton bitoniau, franchement je te connais tu as l'habitude 


Oki je sors

Caribensila · Answer

Tiens ?!
T'es pas en Afrique du Sud, Francky ?

Y'a un congrès de bouffons là-bas... et y t'auraient oublié ?!

Cirec · Answer

Déjà il n'y a qu'une unité à ajouter au projet ... et c'est tout !!!

par contre ton code demande un TLabel mais surtout un TTimer ... pour simuler une action longue c'est pas top d'amputer le temps processeur avec un timer à 200 ms qui qui va bouffer une bonne partie des cycles sans compter l'affichage (Application.ProcessMessages <-- très très lourd) dans ton exemple tu n'en as pas besoin ... c'est normal ton code ne fait rien d'autre ... je veux dire par la qu'il n'est pas occupé par une tâche gourmande !!

Alors que là c'est prévu par MS ça ne bouffe rien et ton application garde toute la "puissance" pour effectuer la longue tâche.

Et quand je faisais référence à ta dernière version de Delphi c'était pour toi et non pour l'utilisateur final ... juste pour que tu jettes un oeil au travers de l'inspecteur d'objets sur quasi tous les composants standards ... ils ont tous de nouvelles propriétés mais pas crées par les Dev de Delphi ces nouveautés ont étés apportés par Windows ... ils nous permettent juste de les utiliser facilement.

En comparaison c'est comme utiliser le thème XP avec une version antérieur à D7 .. on a tous copié le manifest une fois pour toute par la suite il suffisait juste d'ajouter cette ressource où composant (pour ceux qui l'ont fait) au projet et ça fonctionnait 

[hr]@+Cirec
[hr]

Francky23012301 · Answer

Y'a un congrès de bouffons là-bas... et y t'auraient oublié ?!  Non mais j'avais qu'un seul ticket donc je l'ai refilé à une ex copine  : je savais que cela lui ferait plaisir de concourir

Caribensila · Answer

Ok. Je reconnais que Cirec a raison ( une fois de plus ;)
Et Bacterius aussi, par voie de conséquence.
Je retire donc tout ce que j'ai dit (sauf pour Francky).

Bacterius · Answer

Toutefois il semblerait que mes trois posts consécutifs aient été ignorés par JackNumber ... 

Cordialement, Bacterius !

cs_JackNUMBER · Answer

@ Bacterius > non non, t'inquiète pas ^^
j'ai pas eu le temps de me repencher sur vos propositions.

Caribensila · Answer

C'est pas un bitoniau qui faut. C'est un Karcher.

Francky23012301 · Answer

On appelle Nic et Carla  ?

Et en profite pas pour sortir ton bitoniau 

Oki je sours

Progressbar défilante

40 réponses

Votre réponse

Discussions similaires