Delphi-Quellcode:
procedure TKlasse.draw(
var Backpuffer: TBitmap
var
Canvas: TCanvas;
begin
Canvas := TCanvas.Create;
Canvas.Handle := Backpuffer.Canvas.Handle;
//!!!
canvas.pen.color := cllime;
Canvas.Rectangle(10,10,50,random(60)+10);
canvas.Free;
// Damit löscht Du das Canvas Handle vom Bitmap
end;
Sollte vor Free nicht Canvas.Handle:=0 sein?
Zumindest mach ich das immer so.