BASS Library - Delphi Snippet source code

[navbuoy]

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:

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:

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;