So Leute vielen Dank für eure Hilfe und hiermit entschuldige ich mich für meine Dummheit
Für die Visualization wird TPaintBox benutzt und das Image wird dahintergelegt
So sieht das jetzt aus und man braucht kein Repaint usw
Delphi-Quellcode:
procedure TMain_Form.Timer2Timer(Sender: TObject);
var
FFTFata : TFFTData;
begin
if BASS_ChannelIsActive(aChannel) <> BASS_ACTIVE_PLAYING then Exit;
BASS_ChannelGetData(aChannel, @FFTFata, BASS_DATA_FFT512);
Spectrum.Draw(vis.Canvas.Handle, FFTFata,0,0);
end;
Ein Problem hab ich noch mit dem 2. Timer, aber das guck mir jetzt mal in Ruhe an.
Nochmals vielen Dank
