[valvl63]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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;

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

Код:

1 2 3 4 5

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

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

[Uniq!]

Я запутался: вам нужен индикатор громкости?
в библиотеке BassDll должно быть событие OnLevelChange, т.е. событие возникающее при изменении громкости. Вот его нужно отловить и в нём менять положение в ProgressBar.

Если этого события нет, то в TimerOnTimer просто считывайте Level и присваивайте его ProgressBar. (но это как-то фу... )

[Alegun]

Возможно так

Код:

1 2 3 4

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

[valvl63]

Сообщение от Alegun

Возможно так

Код:

Большое спасибо.
Да, это то, что мне нужно.
Только выходит очень большой max где то:

Код:

1	Progressbar1.max:=300000;

Так это должно быть?

[Alegun]

Это всё же пример был, тогда разделите на 20 (как у вас в коде)

[valvl63]

Крутил-вертел и сделал:

Код:

1 2 3 4

ProgressBar max = 8 ... ProgressBar1.position:=(HiWord (Level) * Trackbar1.Position) div 65535; ...

Я думаю сойдет.