kbar9.Position := 0;
xitrackbar10.Position := 0;
EQenable := true;
end;
procedure TForm1.RemoveEQ;
var i: integer;
begin
for i := low(EQBand) to high(EQBand) do
begin
BASS_ChannelRemoveFX(lied,EQBand[i].hnd);
end;
end;
procedure TForm1.UpdateEQ(Band1,Band2,Band3,Band4,Band5,Band6,band7,band8,band9: integer);
var i: integer;
fehler: Boolean;
begin
if xitrackbar11.Position = 0 then exit;
InitEQ;
EQBand[0].par.fgain := Band1;
EQBand[1].par.fgain := Band2;
EQBand[2].par.fgain := Band3;
EQBand[3].par.fgain := Band4;
EQBand[4].par.fgain := Band5;
EQBand[5].par.fgain := Band6;
EQBand[6].par.fgain := Band7;
EQBand[7].par.fgain := Band8;
EQBand[8].par.fgain := Band9;
fehler := false;
for i := low(EQBand) to high(EQBand) do
begin
if not BASS_FXSetParameters(EQBand[i].hnd,@EQBand[i].par) then
上一页 [1] [2] [3] [4] 下一页
|
|
