[valvl63]

Привет.
Продолжаю делать PlayerMp3 на bass.dll.
Нужна помощь.
Есть код индикатора уровня (для примера на ProgressBar-е.
ProgressBar1.Max:=28000):

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
    var
  L,R,L1,R1: integer;
  Level: DWORD; //Переменная для получения данных с канала
begin
   if Bass_ChannelIsActive (stream) <> Bass_Active_Playing then  exit;
   //Если канал не воспроизводится, то выводим отсюда then exit
   Level:=Bass_ChannelGetLevel (stream);
   L:=HiWord (Level);
   R:=LoWord (Level);

     ProgressBar1.position:=HiWord (Level);
     ProgressBar2.Position:=LoWord (Level);
end;

Нужно сделать индикатор зависимым от положения регулятора громкости

Код:

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
   BASS_ChannelSetAttribute(stream, BASS_ATTRIB_VOL, Trackbar1.position / 20);
  
end;

Подкиньте, пожалуйста, идею.