一个图形多样化显示的问题。

Question

newbmp:= TBitmap.Create;
  newbmp.Width:=image1.Width;
  newbmp.Height:=image1.Height;
  bmpheight:=image1.Height;
  bmpwidth:=image1.Width;
  for i:=0 to bmpheight do begin
    newbmp.Canvas.CopyRect(Rect
    (0,bmpheight-i,bmpwidth,bmpheight),
    image1.Canvas,
    Rect(0,0,bmpwidth,i));
    form1.Canvas.Draw(120,100,newbmp);
  end;
  newbmp.free;其中这一句 报错
  newbmp.Canvas.CopyRect(Rect
    (0,bmpheight-i,bmpwidth,bmpheight),
    image1.Canvas,
    Rect(0,0,bmpwidth,i));
谁知道如何解决吗

Answer 1

for i:=0 to bmpheight do begin
//合并到一行。。代码没问题，可能是你放的格式不对。
newbmp.Canvas.CopyRect(Rect(0,bmpheight-i,bmpwidth,bmpheight),image1.Canvas,Rect(0,0,bmpwidth,i));
    form1.Canvas.Draw(120,100,newbmp);
  end;