Ver Mensaje Individual
  #2  
Antiguo 05-10-2024
navbuoy navbuoy is offline
Miembro
 
Registrado: mar 2024
Posts: 360
Reputación: 3
navbuoy Va por buen camino
otra cosilla es el tema de controlar el volumen del stream o Channel

con un TrackBar podemos hacerlo, editamos su evento OnChange y:

C++Builder:

Código:
void __fastcall TForm1::sTrackBar1Change(TObject *Sender)
{
  // Invertir el valor del TrackBar (esto es para que el maximo volumen quede a la derecha si el TrackBar->Orientation = Horizontal)
	int valorInvertido = sTrackBar1->Max - sTrackBar1->Position;

	int volumen = 100 - valorInvertido;
	BASS_ChannelSetAttribute(stream, BASS_ATTRIB_VOL, 0.01 * volumen);
}
Delphi:

Código:
procedure TForm1.sTrackBar1Change(Sender: TObject);
var
  valorInvertido: Integer;
  volumen: Integer;
begin
  // Invertir el valor del TrackBar
  valorInvertido := sTrackBar1.Max - sTrackBar1.Position;

  volumen := 100 - valorInvertido;
  BASS_ChannelSetAttribute(stream, BASS_ATTRIB_VOL, 0.01 * volumen);
end;
Responder Con Cita