Sry, ich hab gerade nicht die Zeit mich da wieder so ganz reinzuarbeiten, aber vllt hilft dir das ja ein wenig weiter:
Delphi-Quellcode:
if chkbEqualizer.Checked then
frmBullPlayerMain.BassPlayer1.UpdateEQ(
-1 * Trackbar1.Position,
-1 * Trackbar2.Position,
-1 * Trackbar3.Position,
-1 * Trackbar4.Position,
-1 * Trackbar5.Position,
-1 * Trackbar6.Position,
-1 * Trackbar7.Position,
-1 * Trackbar8.Position,
-1 * Trackbar9.Position,
-1 * Trackbar10.Position);
if not ComboEQ then
begin
Equalizer[cmbEQ.ItemIndex].Name := cmbEQ.Text;
Equalizer[cmbEQ.ItemIndex].T1 := Trackbar1.Position;
Equalizer[cmbEQ.ItemIndex].T2 := Trackbar2.Position;
Equalizer[cmbEQ.ItemIndex].T3 := Trackbar3.Position;
Equalizer[cmbEQ.ItemIndex].T4 := Trackbar4.Position;
Equalizer[cmbEQ.ItemIndex].T5 := Trackbar5.Position;
Equalizer[cmbEQ.ItemIndex].T6 := Trackbar6.Position;
Equalizer[cmbEQ.ItemIndex].T7 := Trackbar7.Position;
Equalizer[cmbEQ.ItemIndex].T8 := Trackbar8.Position;
Equalizer[cmbEQ.ItemIndex].T9 := Trackbar9.Position;
Equalizer[cmbEQ.ItemIndex].T10 := Trackbar10.Position;
end;