VU Meter mit bass.dll

[Muellermilchtrinker]

Hallo DP,

habe folgendes Problem. Möchte mir ein VU Meter mit der Bass Dll basteln.
Zur Anzeige nutze ich einfach zwei ProgressBars (wahrscheinlich nicht die schönste Variante, aber ich möchte es gerne so ). Maximalwert der ProgressBars liegt bei 32768 (maximal Wert des PEAKs von der Bass).

Dann hab ich noch ein Timer (Interval: 50ms) in diesem steht:

Delphi-Quellcode:

procedure TForm3.Timer1Timer(Sender: TObject);
  var VUCH:Cardinal;
begin
  // Get Peaks
  VUCH := BASS_ChannelGetLevel(hChannel(0));

  // XYZ := LOWORD(VUCH) => Linker Kanal, 32768 ist der Maximale Peak Wert pro Chanel
  // XYZ := HIWORD(VUCH); // Rechter Kanal,

  ProgressBar1.Position := LOWORD(VUCH);
  ProgressBar2.Position := HIWORD(VUCH);
end;

Mein Problem ist, dass beim Start der Musik, dass dann die ProgressBars aufs Maximum von 32768 geht und dort bleibt.
Hoffe einer von euch kann mir helfen, ist das erstemal, dass ich mit der bass.dll was mache.