Zitat:
procedure TFX.spSkinTrackBar2Change(Sender: TObject);
begin
AudioPlayer.Bassdllplayer1.initEQ;
AudioPlayer.BassDLLplayer1.UpdateEQ(spSkinTrackbar 2.Value, spSkinTrackbar3.Value, spSkinTrackbar4.Value, spSkinTrackbar5.Value, spSkinTrackbar6.Value, spSkinTrackbar7.Value, spSkinTrackbar8.Value, spSkinTrackbar9.Value, spSkinTrackbar10.Value , spSkinTrackbar11.Value);
end;
Das wird so ja ach nix.
Beispiel:
Delphi-Quellcode:
procedure TForm1.AllEQTrackBarsChange(Sender: TObject);
begin
if CheckBox1.Checked then
BassdllPlayer1.UpdateEQ(
Trackbar1.Position,
Trackbar2.Position,
Trackbar3.Position,
Trackbar4.Position,
Trackbar5.Position,
Trackbar6.Position,
Trackbar7.Position,
Trackbar8.Position,
Trackbar9.Position,
Trackbar10.Position);
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
begin
BassdllPlayer1.InitEQ; // EQ initialisieren u. aktivieren
end else
begin
BassdllPlayer1.RemoveEQ; // EQ entf.
end;
end;
Hier ein kleiner Beispielcode auf die schnelle: