So, jetzt hab ichs durch langes austesten eine Lösung gefunden!!! Eigentlich ziemlich einfach (die CPU Auslastung ist auch bei meinem Rechner auf durchschnittlich schnucklige 4% gesunken).
Guckst du hier:
Delphi-Quellcode:
...
procedure TMainForm.MainTimerEvent(Sender: TObject);
begin
Spectrum.Draw;
end;
...
type
TSpectrum = class (TPanel)
...
end;
...
procedure TSpectrum.Draw;
begin
// mach was: Zeichne in Buffer
...
self.Canvas.Brush.Style:= bsClear; // <-------- diese Zeile ROCKT!!!!!!!!!
BitBlt(self.Canvas.Handle, 0, 0, FBuffer.Width, FBuffer.Height, FBuffer.Canvas.Handle, 0, 0, SRCCOPY);
end;
...
MFG