procedure TForm1.TimerVisTimer(Sender: TObject); var FFTFata : TFFTData; WaveData : TWaveData; begin Spectrum.Height := 20; Spectrum.Height := 100; Spectrum.DrawPeak := True; Spectrum.Mode := 1; Spectrum.LineFallOff := 3; Spectrum.PeakFallOff := 1; Spectrum.Res := 2; if BASS_ChannelIsActive(Channel) <> BASS_ACTIVE_PLAYING then Exit; BASS_ChannelGetData(Channel, @FFTFata, BASS_DATA_FFT1024); Spectrum.Draw (PaintFrame.Canvas.Handle, FFTFata, 50 - 40, 50 - 60); end;
Saludos.