Lecteur multimédia + progressbar

Bonjour,

Je travaille actuellement sur la conception d un lecteur audio voire video. J'aimerais pour cela offrir à l'utilisateur une barre de progression indiquant à quel endroit de la musique il se trouve.

Pour cette tache, je ne pense pas avoir de difficulté. En revanche je ne trouve pas de topic expliquant comment en cliquant sur une progressbar puis en deplacant la souris on peut faire varier le progressbar.position.

J'ai bien des idées farfelues à base de timer et de coordonnées de la souris mais elles sont relativement moches.

L'exemple de ce que je desire realiser est la barre de progression de windows media player, ou encore celle du controle de volume.

J'ai ausi remarquer la presence du composant trackbar, mais je le trouve TRES moche donc son utilisation à moins de pouvoir lui ravaler la facade, m est proscrite !

Merci de votre aide.

C'est bien une espèce de trackbar qu'il te faut, et il en existe des "à facade ravalée" ou "ravalable". TJvSlider (comme winamp) de la JVCL par exemple. Sinon vas fouiner chez torry.net ou autre ;)

j'ai déja essayé de faire ca auparavant et j'ai utilisé une scrollbar (je sais pas si c'est ca que tu cherche mais je peux te donner les sources de mon lecteur) source

a++

Merci de vos réponses, est ce que les scrollbars sont skinnables ? Peut on leur donner des couleurs chatoyantes ? :mrgreen:

Concernant le TJvSlider, oui, tu le skinnes comme winamp. :)

Bon alors en bidouillant un truc qui finalement est propre, j'ai fait ceci :

Code:

---

1 2 3 4 5 6

procedure TForm1.ProgressBar1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Form1.ProgressBar1.Position := Round((X * 100)/400); end;

---

Ca fonctionne très bien !

En revanche, je ne trouve votre TJvSlider ! Ou se trouve ce composant ? Existe t il dans delphi7 ?

Citation:

---

Envoyé par DMO

TJvSlider de la JVCL par exemple

---

J'ai ajouté le lien, c'est une bibliothèque de composants bien connue et dont je conseille vivement l'utilisation.

Ok merci je regarderai!