[sariman]

как получить текущую громкость в TrackBar.Position? что бы было в диапазоне от 1 до 100? подскажите плз)

[angvelem]

Громкость чего, в BASS-е несколько понятий громкости. Громкость потока в диапазоне 0..1, глобальная горомкость потока 0..10000, системная громкость 0..1. Так какую нужно изменять? Вот от этого и исходи.

[sariman]

имеется ввиду системная громкость

[angvelem]

Если параметр Max у TrackBar-а равен 100, то:

Код:

  BASS_SetVolume(TrackBar.Position / 100)

иначе:

Код:

  BASS_SetVolume(TrackBar.Position / TrackBar.Max)

и получить также, только используем BASS_GetVolume

[sariman]

та чет не получается, пишет Incompatible types: 'Integer and 'Extended', объявляю переменную VolumeGeneral типа integer.

[angvelem]

Как люди не любят читать справку, там на английском по-белому написано - тип Single. Откуда Integer взялся?
Кстати, разве не видно, что для деления я использую /, а не div?

[sariman]

хорошо,определил тип single пишет Incompatible types: 'Integer' and 'Single', при объявлении var VolumeGeneral: Single; при создании формы назначаю переменную VolumeGeneral:=BASS_GetVolume/100; не пашет

[angvelem]

Код:

var
  fDefMusicVolume : Single;
...
  fDefMusicVolume := BASS_GetVolume;
  TrackBar.Position := Trunc(fDefMusicVolume * 100);

В fDefMusicVolume величина в пределах 0..1, а ты ещё умудрился на 100 разделить.
P.S. тип Single появился с версии 2.4, в 2.3 был Integer;

[sariman]

странно, если ставлю громкость системы на 50% и потом запускаю прогу то выводит только 30% в TrackBar

[angvelem]

Сколько в TrackBar-е Max, если отлично от 100, то нужно пересчитывать.

[sariman]

нет, стоит мин 0 а макс 100

[angvelem]

Ну не знаю как ты ставишь, только в системе (ОС) диапазон регулировки 0..255.

[sariman]

хм..как так? я проматываю его и вижу в hint'е что макс значение 100

[angvelem]

Я про регулировку звука в ОС, там регулируется от 0 до 255.

[sariman]

я про нее и говорю, но и как мне быть?)