Canvas "verwischt" ... wie kann man es ändern?

[Luckie]

Zitat von Wuaegner:

Genau aber wie? Habe das nicht in deiner Beschreibung gefunden
Gruß Flo

Und was ist das:

Delphi-Quellcode:

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
  { bei Bedarf neu zeichnen }
  BitBlt(PaintBox1.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, bmp.Canvas.Handle,
    0, 0, SrcCopy);
end;