Gezeichnetes bild in paintbox speichern?

[DeddyH]

Mal schnell eingehackt:

Delphi-Quellcode:

procedure PaintboxToBitmap(const pb: TPaintbox;
                           const bm: TBitmap;
                           pf: TPixelformat = pf24Bit);
begin
  bm.PixelFormat := pf;
  bm.Width := pb.Width;
  bm.Height := pb.Height;
  BitBlt(bm.Canvas.Handle,0,0,bm.Width,bm.Height,pb.Canvas.Handle,0,0,SRCCOPY);
end;

procedure TForm1.Button1Click(Sender: TObject);
var bm: TBitmap;
begin
  bm := TBitmap.Create;
  try
    PaintBoxToBitmap(Paintbox1,bm);
    bm.SaveToFile('C:\test.bmp');
  finally
    bm.Free;
  end;
end;