procedure BASS_SetVolume(Pos: DWORD);
var
nLeft, bLeft, bTop, bWidth, bHeight: Integer;
begin
if (Pos >= 0) and (Pos <= 100) then begin
BASSChangePos(Pos);
nLeft:= BASS_VolBar.MinLeft + round(BASS_VolBar.BarWidth*BASS_Cfg.Volume/100);
if (nLeft<BASS_VolBar.MinLeft) then nLeft:= BASS_VolBar.MinLeft;
if (nLeft>BASS_VolBar.MaxLeft) then nleft:= BASS_VolBar.MaxLeft;
BtnGetPosition(BASS_VolBar.BarDote, bLeft, bTop, bWidth, bHeight);
BtnSetPosition(BASS_VolBar.BarDote, nLeft, bTop, bWidth, bHeight);
ImgApplyChanges(BASS_VolBar.Parent); // вроде не нужно, но навсякий написал
end;
end;