Lecteur multimédia + progressbar

**gobgob** · 03/07/2006, 13h54

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.

**DMO** · 03/07/2006, 14h02

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

**Jeannot Alpin** · 03/07/2006, 14h31

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

**gobgob** · 03/07/2006, 15h11

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

**DMO** · 03/07/2006, 15h19

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

**gobgob** · 03/07/2006, 17h20

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

Code :

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

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;