Delphi 中 的 图 形 显 示 技 巧

领测软件测试网

bmpwidth:=image1.Width;
i:=bmpheight;
while i>0 do
  begin
  for j:=10 to i do
      begin
       newbmp.Canvas.CopyRect(Rect(0,j 
－10,bmpwidth,j)，image1.Canvas,Rect(0,i －10,bmpwidth,i));
       form1.Canvas.Draw(120,100,newbmp);
       end;
  i:=i －10;
  end;
newbmp.free;
end;

文章来源于领测软件测试网 https://www.ltesting.net/