procedure TForm1.TrackBar1Change(Sender: TObject); var PE: BASS_DX8_PARAMEQ; (BASS_BFX_PEAKEQ) begin BASS_ChannelRemoveFX(FileStream, FX); // чтобы убрать предыдущую настройку FX := FBASS_ChannelSetFX(FileStream, BASS_FX_DX8_PARAMEQ, 1); PE.fCenter := 80; // частота регулируемой полосы (в герцах, от 80 до 16000) PE.fGain := TrackBar1.Position; // задаваемое значение (от -15 до 15) BASS_FXSetParameters(FX, @PE); end;
