关于paintbox问题

Question

问题是这样的:我在paintbox绘出了图,但不是一屏幕能展现的,我现在是要把整个图全部导出来,导成任何格式,最好能导成word的.下面是我写的代码.
  b := TBitmap.Create;
  image:= Timage.Create(nil);
  b.Width := PaintBox1.Width;
  b.Height := PaintBox1.Height;
  b.Canvas.CopyRect(b.Canvas.ClipRect,PaintBox1.Canvas,PaintBox1.ClientRect);
  b.SaveToFile('C:\a.bmp');
  b.Free;
这个只能导出部分图,

Answer 1

这两句就有问题，图的宽度不够呀，本来图就比屏幕大嘛(除非你的PaintBox1也和图一样大小，也比屏幕大)
  b.Width := PaintBox1.Width; 
  b.Height := PaintBox1.Height; 

Answer 2

在绘图前使PaintBox1不显示，把长、宽设成你需要的长、宽（可以超出窗口）绘完图保存为图片，把PaintBox1再设成适合的长、宽，然后显示，把保存的图片显示到PaintBox1中，