Problem mit Invalidate

[punker76]

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