Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Trackbar y volumen (https://www.clubdelphi.com/foros/showthread.php?t=48135)

b2k 17-09-2007 00:57:23

Trackbar y volumen
 
Hola a todos,

Estoy comenzando en delphi, y una de las priemras aplicaciones que quiero lograr es un reproductor de musica.

Voy a utilizar unas librerias creadas por Delphiu, ahora mirandolas veo que el volumen lo puede devolver en Hexadecimal y o Porcentual, pero nose como correrlo con el trackbar..Que sugerencia me dan?

eduarcol 17-09-2007 02:17:41

en el evemto onchange capturas el valor de position, eso es lo que entendi que necesitas si no es asi explicalo un poco mejor suerte espero te sirva

Delphius 17-09-2007 12:09:48

Hola b2k,
Al parecer, estás empleando un componente que hice hace tiempo. Uno que maneja el volumen.

Eduarcol te dio la respuesta, en el envento OnChange debes capturar el valor de position y en basa a este "calcular" el volumen.

Yo te doy un consejo, el cual se me olvidó hacer notar en su momento, se cambia el volumen del sistema y no simplemente dentro del aplicativo. Asi que recuerda y ten presente este hecho cuando emplees el componente.

Limpiando el disco, encontré una prueba que hice. La idea es hacer algo como esto:
Código Delphi [-]
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
with Volumen1 do
  begin
  SetVolumen(TrackBar1.Position);
  Label1.Caption := 'Volumen: '+Volume;
  Label2.Caption := 'PorcVolumen: '+IntToStr(PorcVolume)+'%';
  Label3.Caption := 'Múltiplo: '+IntToStr(Multiplo);
  if Silencio
     then Label4.Caption := 'Silencio: True'
     else Label4.Caption := 'Silencio: False';
  end;
end;

Saludos,
PD: Me alegro que alguien vea que le pueda serle util.:)


La franja horaria es GMT +2. Ahora son las 16:13:31.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi