Problem beim Speichern einer mit Canvas gezeichneten Grafik

[DeddyH]

Delphi-Quellcode:

var
  Bitmap : TBitmap;
begin
  if SaveDialog.Execute then
    begin
      Bitmap:=TBitmap.Create;
      Try
        Bitmap.Width:=PaintBox.ClientWidth;
        Bitmap.Height:=PaintBox.ClientHeight;
        BitBlt(Bitmap.Canvas.Handle,0,0,Bitmap.Width,Bitmap.Height,
               PaintBox.Canvas.Handle,0,0,SRCCOPY);
        Bitmap.SaveToFile(SaveDialog.FileName);
      Finally
        Bitmap.Free;
      end;
    end;
end;